* gfortran.dg/inquire_8.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100339
138bc75d-0d04-0410-961f-
82ee72b054a4
+2005-05-30 Steven G. Kargl
+
+ PR fortran/20846
+ * gfortran.dg/inquire_8.f90: New test.
+
2005-05-29 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/21376
--- /dev/null
+! { dg-do compile }
+! fortran/pr20846
+program inquire_8
+ character(len=20) :: n = 'data'
+ integer :: d = 23
+ logical a
+ inquire(file=n,unit=d,opened=a) ! { dg-error "contain both FILE and UNIT" }
+ inquire(unit=d,file=n,opened=a) ! { dg-error "contain both FILE and UNIT" }
+ inquire(opened=a) ! { dg-error "requires either FILE or UNIT" }
+end program inquire_8