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/] [alloc_alloc_expr_3.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`!`	`!`
`! PR fortran/34714 - ICE on invalid`	`! PR fortran/34714 - ICE on invalid`
`! Testcase contributed by Martin Reinecke`	`! Testcase contributed by Martin Reinecke`
`!`	`!`

`module foo`	`module foo`
`type bar`	`type bar`
`logical, pointer, dimension(:) :: baz`	`logical, pointer, dimension(:) :: baz`
`end type`	`end type`
`contains`	`contains`

`function func1()`	`function func1()`
`type(bar) func1`	`type(bar) func1`
`allocate(func1%baz(1))`	`allocate(func1%baz(1))`
`end function`	`end function`

`function func2()`	`function func2()`
`type(bar) func2`	`type(bar) func2`
`allocate(func1%baz(1)) ! { dg-error "is not a variable" }`	`allocate(func1%baz(1)) ! { dg-error "is not a variable" }`
`end function`	`end function`

`end module foo`	`end module foo`

`! { dg-final { cleanup-modules "foo" } }`	`! { dg-final { cleanup-modules "foo" } }`