gcc/testsuite/gfortran.dg/inquire_12.f90

   1 ! { dg-do compile }
   2 ! PR34722 ICE: left-over "@iostat" variable polutes namespace
   3 program gamsanal
   4 implicit none
   5 character :: tmp
   6 integer iodict
   7 logical dicexist
   8 inquire(unit=iodict, exist=dicexist)
   9 end
  10
  11 subroutine inventnames()
  12 implicit none
  13 end subroutine