Remove old autovect-branch by moving to "dead" directory.
[official-gcc.git] / old-autovect-branch / gcc / testsuite / gfortran.dg / open_status_2.f90
blobce0e71bd36e562ea181e877aee1ed08d7b07d73c
1 ! { dg-do run }
2 ! PR 24945
3 ! Test reopening file without status specifier or with
4 ! status='unknown'. The standard says that these two must behave
5 ! identically, but the actual behaviour is processor dependent.
6 program open_status_2
7 open(10, file="f", form='unformatted', status='unknown')
8 open(10, file="f", form='unformatted', status='unknown')
9 open(10, file="f", form='unformatted')
10 close(10, status='delete')
11 end program open_status_2