Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/close_errors_1.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | |
children |
line wrap: on
line source
! { 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