PR target/83368
[official-gcc.git] / gcc / testsuite / gfortran.dg / open_status_2.f90
blobc7e14c0ebbea39b58ba1501cc1f7b3c9ae939774
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 behavior 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