URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

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

Rev 302	Rev 384
`! { dg-do "compile" }`	`! { dg-do "compile" }`
`! PR fortran/41940`	`! PR fortran/41940`

`integer, allocatable :: a`	`integer, allocatable :: a`
`TYPE :: x`	`TYPE :: x`
`integer, allocatable :: a`	`integer, allocatable :: a`
`END TYPE`	`END TYPE`
`TYPE (x) :: y`	`TYPE (x) :: y`

`allocate(a(4)) ! { dg-error "Shape specification for allocatable scalar" }`	`allocate(a(4)) ! { dg-error "Shape specification for allocatable scalar" }`
`allocate(y%a(4)) ! { dg-error "Shape specification for allocatable scalar" }`	`allocate(y%a(4)) ! { dg-error "Shape specification for allocatable scalar" }`
`end`	`end`