blob: 26570e6e43eed6396b6b879f88aee6a5dc1a9ac7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { 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
|
