1* Test case Toon submitted, cut down to expose the one bug.
2* Belongs in compile/.
3      SUBROUTINE INIERS1
4      IMPLICIT   LOGICAL(L)
5      COMMON/COMIOD/ NHIERS1, LERS1
6      inquire(nhiers1, exist=lers1)
7      END
8