gcc/testsuite/gfortran.dg/g77/19990419-0.f

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