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/] [alloc_comp_constraint_1.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`! Check that we don't allow IO or NAMELISTs with types with allocatable`	`! Check that we don't allow IO or NAMELISTs with types with allocatable`
`! components (PR 20541)`	`! components (PR 20541)`
`program main`	`program main`

`type :: foo`	`type :: foo`
`integer, allocatable :: x(:)`	`integer, allocatable :: x(:)`
`end type foo`	`end type foo`

`type :: bar`	`type :: bar`
`type(foo) :: x`	`type(foo) :: x`
`end type bar`	`end type bar`

`type(foo) :: a`	`type(foo) :: a`
`type(bar) :: b`	`type(bar) :: b`
`namelist /blah/ a ! { dg-error "cannot have ALLOCATABLE components" }`	`namelist /blah/ a ! { dg-error "cannot have ALLOCATABLE components" }`

`write (, ) a ! { dg-error "cannot have ALLOCATABLE components" }`	`write (, ) a ! { dg-error "cannot have ALLOCATABLE components" }`

`read (, ) b ! { dg-error "cannot have ALLOCATABLE components" }`	`read (, ) b ! { dg-error "cannot have ALLOCATABLE components" }`

`end program main`	`end program main`