While studying some test cases for pr24268 I discovered this:

      program tl
      real x
      character*13 line
      x = 12.34
      write(line,20) x
 20   format(tr2,tl2,g11.4)
      print *, "123456789012345"
      print *, ">",line,"<"
      end

The tl2 is not getting processed so the numbers printed within the field are
shifted to the right by two spaces.

$ g77 fmt_tl.f
$ ./a.out
 123456789012345
 >  12.34      <
$ gfc fmt_tl.f
$ ./a.out
 123456789012345
 >    12.34    <


-- 
           Summary: tl format specifier not working correctly
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jvdelisle at gcc dot gnu dot org
  GCC host triplet: i696-pc-linux-gnu


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


Reply via email to