Sign in
gnu
/
gcc
/
e8cbc2e256b3e9568288594d9f90a2015d31b55a
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
compile
/
19990419-0.f
blob: 084e7a254bf338ae933c1201b119a56344cc29c3 [
file
] [
log
] [
blame
]
*
Test
case
Toon
submitted
,
cut down to expose the one bug
.
*
Belongs
in
compile
/.
SUBROUTINE INIERS1
IMPLICIT LOGICAL
(
L
)
COMMON
/
COMIOD
/
NHIERS1
,
LERS1
inquire
(
nhiers1
,
exist
=
lers1
)
END