gcc/testsuite/g77.f-torture/compile/19990419-0.f

   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