anchor.diff:      end subroutine
   
       subroutine TFileStream_Close(this)
  -    class(TFileStream), intent(inout) :: this
  +    class(TFileStream) :: this
       if (this%unit/=0) close(this%unit)
       this%unit=0
       end subroutine TFileStream_Close
   
  -#ifdef __GFORTRAN__
  -    impure elemental subroutine TFileStream_Free(this)
  -#else
       subroutine TFileStream_Free(this)
  -#endif
  -    Type(TFileStream), intent(inout) :: this
  +    Type(TFileStream) :: this
   
       call this%Close()
       end subroutine TFileStream_Free
  
positive.code: 
      end subroutine LoadTxt_1D
  
      function CreateTextFile(fname)
      character(LEN=*), intent(in) :: fname
      Type(TTextFile) :: CreateTextFile
  
negative.code: 
      subroutine LoadTxt_1D(aname, vec, n, comment)
      character(LEN=*), intent(IN) :: aname
      real(kind(1.d0)), allocatable :: vec(:)
      integer nn, j
      Type(TTextFile) :: F
      character(LEN=:), allocatable :: InLine
  