1! { dg-do run } 2! Test case from PR61933. 3 use iso_fortran_env 4 logical :: unit_exists 5 integer :: tunit, istat 6 istat = 0 7 tunit=-1 ! Represents an internal unit. 8 unit_exists = .true. 9 inquire(unit=tunit, exist=unit_exists, iostat=istat) 10 !print *, "Error Code is : ", IOSTAT_INQUIRE_INTERNAL_UNIT 11 !print *, "IOSTAT Code is: ", istat 12 !print *, tunit, unit_exists 13 if (istat.ne.iostat_inquire_internal_unit) call abort() 14 if (unit_exists) call abort() 15END 16