3 integer (kind
= 8) :: unit8
4 logical (kind
= 8) :: exist8
5 integer (kind
= 4) :: unit4
6 logical (kind
= 4) :: exist4
7 integer (kind
= 2) :: unit2
8 logical (kind
= 2) :: exist2
9 integer (kind
= 1) :: unit1
10 logical (kind
= 1) :: exist1
11 character (len
= 6) :: del
13 open (file
= 'inquire_5.txt', unit
= unit8
)
22 inquire (file
= 'inquire_5.txt', number
= unit8
, exist
= exist8
)
23 if (unit8
.ne
. 78 .or
. .not
. exist8
) STOP 1
24 inquire (file
= 'inquire_5.txt', number
= unit4
, exist
= exist4
)
25 if (unit4
.ne
. 78 .or
. .not
. exist4
) STOP 2
26 inquire (file
= 'inquire_5.txt', number
= unit2
, exist
= exist2
)
27 if (unit2
.ne
. 78 .or
. .not
. exist2
) STOP 3
28 inquire (file
= 'inquire_5.txt', number
= unit1
, exist
= exist1
)
29 if (unit1
.ne
. 78 .or
. .not
. exist1
) STOP 4
31 close (unit
= 78, status
= del
)