$ cat t.f
      program main
      character(len=10) line
      write (*,'(1X,A,T1,A)') 'A','B'
      write (line,'(1X,A,T1,A)') 'A','B'
      print '(A)',line
      end
$ gfortran t.f
$ ./a.out
B
BA
$ gfortran -v
Using built-in specs.
Target: i686-pc-linux-gnu
Configured with: ../../gcc/trunk/configure --prefix=/home/ig25
--enable-languages=c,fortran
Thread model: posix
gcc version 4.2.0 20051204 (experimental)
$ g77 t.f
$ ./a.out
BA
BA


-- 
           Summary: T edit descriptor broken for output on files
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P3
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: tkoenig at gcc dot gnu dot org
OtherBugsDependingO 19292
             nThis:


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25349

Reply via email to