2015-09-24 Vladimir Makarov <vmakarov@redhat.com>

[official-gcc.git] / gcc / testsuite / gfortran.dg / g77 / 19990419-0.f

c { dg-do compile }
* 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