program wtest implicit none open(1,file='wtest.out') write(1,'("1 2 3 4 5 6 7 8 9")') close(1) open(1,file='wtest.out') write(1,'("9 8 7 6")') close(1) end
[EMAIL PROTECTED] gfortran]$ gfc a.f [EMAIL PROTECTED] gfortran]$ ./a.out [EMAIL PROTECTED] gfortran]$ cat wtest.out 9 8 7 6 1 2 3 4 5 6 7 8 9 [EMAIL PROTECTED] gfortran]$ g77 a.f [EMAIL PROTECTED] gfortran]$ ./a.out [EMAIL PROTECTED] gfortran]$ cat wtest.out 9 8 7 6 -- Summary: closed and re-opened file not overwriten Product: gcc Version: 4.0.0 Status: UNCONFIRMED Severity: normal Priority: P2 Component: libfortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: bdavis at gcc dot gnu dot org CC: gcc-bugs at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=19872