mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-01-11 02:34:43 +08:00
20 lines
526 B
Fortran
20 lines
526 B
Fortran
|
! { 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
|