?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / g77.f-torture / compile / 19990419-0.f
blob084e7a254bf338ae933c1201b119a56344cc29c3
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
Mirror of the offical gcc git repository hosted at gcc.gnu.org