cdc34b5057
2020-05-14 Thomas Koenig <tkoenig@gcc.gnu.org> PR libfortran/95119 * io/close.c (close_status): Add CLOSE_INVALID. (st_close): Return early on invalid STATUS parameter. 2020-05-14 Thomas Koenig <tkoenig@gcc.gnu.org> PR libfortran/95119 * testsuite/libgomp.fortran/close_errors_1.f90: New test.
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
|