| ! { dg-do run } | |
| ! Test case from PR61933. | |
| use iso_fortran_env | |
| logical :: unit_exists | |
| integer :: tunit, istat | |
| istat = 0 | |
| tunit=-1 ! Represents an internal unit. | |
| unit_exists = .true. | |
| inquire(unit=tunit, exist=unit_exists, iostat=istat) | |
| !print *, "Error Code is : ", IOSTAT_INQUIRE_INTERNAL_UNIT | |
| !print *, "IOSTAT Code is: ", istat | |
| !print *, tunit, unit_exists | |
| if (istat.ne.iostat_inquire_internal_unit) call abort() | |
| if (unit_exists) call abort() | |
| END |