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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_2.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`! Check that variable with intent(in) cannot be a member of a namelist`	`! Check that variable with intent(in) cannot be a member of a namelist`
`subroutine namelist_2(x)`	`subroutine namelist_2(x)`
`integer,intent(in) :: x`	`integer,intent(in) :: x`
`namelist /n/ x`	`namelist /n/ x`
`read(*,n) ! { dg-error "is INTENT" "" }`	`read(*,n) ! { dg-error "is INTENT" "" }`
`end subroutine namelist_2`	`end subroutine namelist_2`