2 ! { dg
-options
"-fdefault-integer-8" }
4 ! NOTE
: This test is identical
to negative_unit
.f except
-fdefault
-integer-8
6 ! PR libfortran
/20660 and other bugs
(not filed in bugzilla
) relating
8 ! PR
33055 Runtime error in INQUIRE unit existance with
-fdefault
-integer-8
9 ! Test case update by Jerry DeLisle
<jvdelisle@gcc
.gnu
.org
>
11 ! Bugs submitted by Walt Brainerd
13 integer, parameter ::ERROR_BAD_UNIT
= 5005
17 ! gfortran created a
'fort.-1' file and wrote
"Hello" in it
18 write (unit
=i
, fmt
=*, iostat
=i
) "Hello"
19 if (i
<= 0) call abort
22 open
(unit
=i
, file
="xxx", iostat
=i
)
23 if (i
<= 0) call abort
26 inquire
(unit
=i
, exist
=l
)
29 i
= 2_8*huge
(0_4
)+20_8
31 inquire
(unit
=i
, exist
=l
, iostat
=i
)
33 if (i
.ne
.ERROR_BAD_UNIT
) call abort