URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [inquire_8.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! fortran/pr20846`	`! fortran/pr20846`
`program inquire_8`	`program inquire_8`
`character(len=20) :: n = 'data'`	`character(len=20) :: n = 'data'`
`integer :: d = 23`	`integer :: d = 23`
`logical a`	`logical a`
`inquire(file=n,unit=d,opened=a) ! { dg-error "contain both FILE and UNIT" }`	`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(unit=d,file=n,opened=a) ! { dg-error "contain both FILE and UNIT" }`
`inquire(opened=a) ! { dg-error "requires either FILE or UNIT" }`	`inquire(opened=a) ! { dg-error "requires either FILE or UNIT" }`
`end program inquire_8`	`end program inquire_8`