This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Bug libfortran/14334] New: [libgfortran] L edit descriptor does not work.


The 'L' edit descriptor prints either T or F, depending on the field width, but
the value printed has no relationship to the value of the data item.

       logical true,false
       true = .TRUE.
       false = .FALSE.
       print*,'true = ',true
       write(6,'(L1)')true
       write(6,'(L4)')true
       print*,'false = ',false
       write(6,'(L1)')false
       write(6,'(L4)')false
       end

$ /usr/local/bin/gfortran -static -g lprint.f90
$ ./a.out
true =   T
F
   T
false =   F
F
   T

$/usr/local/bin/gfortran --version
GNU Fortran 95 (GCC 3.5-tree-ssa 20040228 (merged 20040211))

Using the "gold standard" , g77, here is what the output should be:
$ g77 -static -g lprint.f
$ ./a.out
 true =  T
T
   T
 false =  F
F
   F

-- 
           Summary: [libgfortran] L edit descriptor does not work.
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: bdavis9659 at comcast dot net
                CC: gcc-bugs at gcc dot gnu dot org


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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]