gcc/testsuite/gfortran.dg/inquire_8.f90

   1 ! { dg-do compile }
   2 ! fortran/pr20846
   3 program inquire_8
   4   character(len=20) :: n = 'data'
   5   integer :: d = 23
   6   logical a
   7   inquire(file=n,unit=d,opened=a) ! { dg-error "contain both FILE and UNIT" }
   8   inquire(unit=d,file=n,opened=a) ! { dg-error "contain both FILE and UNIT" }
   9   inquire(opened=a)               ! { dg-error "requires either FILE or UNIT" }
  10 end program inquire_8