! { 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 |