blob: 084e7a254bf338ae933c1201b119a56344cc29c3 (
plain)
1
2
3
4
5
6
7
|
* 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
|