19990419-0.f

来自「xml大全 可读写调用率很高 xml大全 可读写调用率很高」· F 代码 · 共 8 行

* 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