gcc/testsuite/gfortran.dg/inquire_11.f90

   1 ! { dg-do compile }
   2 ! PR 33055 Runtime error in INQUIRE unit existance with -fdefault-integer-8
   3 ! Test case from PR33217 prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
   4 MODULE print_it
   5 CONTAINS
   6   SUBROUTINE i()
   7     LOGICAL :: qexist
   8     INQUIRE (UNIT=1, EXIST=qexist)
   9   END SUBROUTINE i
  10 END MODULE print_it