------- Comment #4 from jvdelisle at gcc dot gnu dot org  2009-07-11 17:16 
-------
Another aspect of this bug.  If we do this:

PROGRAM test
OPEN(UNIT=32,FILE="fort.32",STATUS="NEW",ACCESS="SEQUENTIAL",FORM="UNFORMATTED")
!READ(32,END=100)
100 CONTINUE
WRITE (32)
END PROGRAM test

We get:

$ gfc pr40714.f90
$ ./a.out 
$ xxd fort.32 
0000000: 0000 0000 0000 0000 0000 0000            ............

The correct result should be:

$ gfc43 -static pr40714.f90
$ ./a.out 
$ xxd fort.32 
0000000: 0000 0000 0000 0000                      ........

So we need to correctly handle both error recovery and empty writes.


-- 


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

Reply via email to