------- Comment #4 from tkoenig at gcc dot gnu dot org 2006-12-02 21:56 ------- g77 gets this right:
$ cat eor2.f program eor WRITE(1) 1 REWIND(1) READ(1,ERR=10) I,J,K print *,"no error" stop 10 print *,"error value" end $ g77 eor2.f && ./a.out error value -- tkoenig at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- OtherBugsDependingO| |19292 nThis| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30009