g77 prints correctly, but gfortran fails to correctly pad lines in format
statements to 72 characters. The lines in the file are terminated with a line
feed after the last printable character. If the lines are padded with blanks
out beyond 72 characters gfortran then prints correctly. This was fixed before
-


[dranta:~/tests/gfortran-D] dir% g77 -o write07 write07.f
[dranta:~/tests/gfortran-D] dir% write07
1
          f o l l o w i n g    i s    a    c a r d    i m a g e    l i s t i n
g    o f    t h e    i n p u t    d a t a 

                                                          c o l u m n    n u m
b e r
                    card                1         2         3         4        
5         6         7         8
                   number     
12345678901234567890123456789012345678901234567890123456789012345678901234567890
                   ------     
--------------------------------------------------------------------------------
0          ********************************** e n d    o f    i n p u t    l i
s t i n g **********************************
[dranta:~/tests/gfortran-D] dir% gfortran -o write07 write07.f
[dranta:~/tests/gfortran-D] dir% write07
1
          f o l l o w i n g    i s    a    c a r d    i m a g e    l i s t i n
g    o f    t h e    i n p u t    d a t a 

                                                          c o l u m n    n u m
b e r
                    card                1         2       3         4         5
        6         7         8 /                   number     
12345678901234567890123456789012345678901234567890123456789012345678901234567890
                   ------     
--------------------------------------------------------------------------------
0          ********************************** e n d    o f    i n p u t    l i
s t in g ,**********************************
[dranta:~/tests/gfortran-D] dir% gfortran --v
Using built-in specs.
Target: powerpc-apple-darwin8.3.0
Configured with: ./configure --prefix=/Users/dir/gfortran
--enable-languages=c,f95
Thread model: posix
gcc version 4.2.0 20051205 (experimental)
[dranta:~/tests/gfortran-D] dir% cat write07.f
      program main
      write(6,2000)
      write(6,2030)

 2000 format(1h1/10x,111hf o l l o w i n g    i s    a    c a r d    i m
     1 a g e    l i s t i n g    o f    t h e    i n p u t    d a t a //
     t58x,26hc o l u m n    n u m b e r,/20x,4hcard,16x,71h1         2
     x       3         4         5         6         7         8 /
     y19x,6hnumber, 6x,80h1234567890123456789012345678901234567890123456
     z7890123456789012345678901234567890 /,19x,6(1h-),6x,80(1h-))

 2030 format(1h0,10x,34(1h*),44h e n d    o f    i n p u t    l i s t i
     1n g ,34(1h*))
c
      end


-- 
           Summary: gfortran fails to pad lines in format statements to 72
                    characters.
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dir at lanl dot gov
  GCC host triplet: powerpc-apple-darwin8.3.0


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

Reply via email to