Subversion Repositories openrisc_me

! { 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