Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/close_errors_1.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 2b5abeee2509 |
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