[Bug libfortran/20037] New: libfortran: format termination bug in formatted write

["anlauf at hep dot tu-darmstadt dot de" <gcc-bugzilla at gcc dot gnu dot org>]

Hi,

gfortran does not properly terminate the I/O list in the following example:

! format termination problem: gfortran prints a superfluous parenthesis
!
character (len=*), parameter :: fmt = '(2(1x,"(",f7.2,",",f7.2,")",:))'
write (*,fmt) 1.0, 2.0
end


% gfortran && ./a.out
 (   1.00,   2.00) (

The final parenthesis should not be printed.

Cheers,
-ha

-- 
           Summary: libfortran: format termination bug in formatted write
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: anlauf at hep dot tu-darmstadt dot de
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: i686-pc-linux-gnu


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