The following testcase from gfortran.dg/g77/1832.f runs successfully with
gfortran.  With g77 it goes into a spin cycle.

This was discovered while testing new patches for array_io in 4.1 branch.  With
new patches, gfortran correctly gives am end-of-record error.

Test case should be dropped or revised for new correct error message.

c { dg-do run }
      character*120 file
      character*5   string
      file = "c:/dos/adir/bdir/cdir/text.doc"
      write(string, *) "a ", file
      if (string .ne. ' a') call abort
C-- The leading space is normal for list-directed output
C-- "file" is not printed because it would overflow "string".
      end

-- 
           Summary: gfortran incorrectly succeeds on record overflow
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: jvdelisle at verizon dot net
        ReportedBy: jvdelisle at verizon dot net
                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=23760

Reply via email to