Sign in
gnu
/
gcc
/
b1143e51359be3b1151d892970f43ae67dee64d2
/
.
/
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