https://gcc.gnu.org/g:cd689b3d374884177e1c14f09429aa013223edad
commit r16-8402-gcd689b3d374884177e1c14f09429aa013223edad Author: Jerry DeLisle <[email protected]> Date: Wed Apr 1 16:14:56 2026 -0700 fortran: Change test case to compile only. PR fortran/124739 gcc/testsuite/ChangeLog: * gfortran.dg/pr124739.f90: Change 'run' to 'compile'. Diff: --- gcc/testsuite/gfortran.dg/pr124739.f90 | 21 +-------------------- 1 file changed, 1 insertion(+), 20 deletions(-) diff --git a/gcc/testsuite/gfortran.dg/pr124739.f90 b/gcc/testsuite/gfortran.dg/pr124739.f90 index f7ed37b413a3..fe1ff7e5a4b2 100644 --- a/gcc/testsuite/gfortran.dg/pr124739.f90 +++ b/gcc/testsuite/gfortran.dg/pr124739.f90 @@ -1,28 +1,9 @@ -! { dg-do run } +! { dg-do compile } program pr integer, parameter :: lun = 42 character(*), parameter :: lfn = 'fort.42' integer :: id = -45 logical :: pending - -! Make sure there is no file with the name we will be using - open (lun, file=lfn, status='old', iostat=iostat) - if (iostat /= 0) then - close (lun, status='delete') - end if - - open (lun, file=lfn) - write (lun,*) 'hello world!' - rewind (lun) - - pending = .true. inquire (file=lfn, id=id, pending=pending) ! Accepted - if (pending) stop 20 - pending = .true. inquire (file="/no/such/file", id=(id), pending=pending) ! Fixed - if (pending) stop 23 - pending = .true. - inquire (unit=lun, id=(15 + 35 - 2*8), pending=pending) ! Fixed - if (pending) stop 23 - close (lun, status='delete') end program pr
