blob: 6edb7da4116f7e47db6ea45af872d2846c95b17a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { dg-do run }
! PR 95115 - this used to hang with -pthread. Original test case by
! Bill Long.
program test
character(len=16) my_status
character(len=1000) :: iomsg
open (unit=10, file='test.dat')
print *,42
write (10, *) 'weird'
rewind (10)
read (10, *) my_status
close (10)
open (unit=10, file='test.dat')
close (unit=10, status=my_status, iostat=ios, iomsg=iomsg)
if (ios == 0) stop 1
if (iomsg /= "Bad STATUS parameter in CLOSE statement") stop 2
close (10, status='delete')
end program test
|
