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

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! PR13010`	`! PR13010`
`! Arrays of self-referential pointers`	`! Arrays of self-referential pointers`
`module test`	`module test`
`type list_t`	`type list_t`
`type(list_t), pointer :: next`	`type(list_t), pointer :: next`
`end type list_t`	`end type list_t`

`type listptr_t`	`type listptr_t`
`type(list_t), pointer :: this`	`type(list_t), pointer :: this`
`end type listptr_t`	`end type listptr_t`

`type x_t`	`type x_t`
`type(listptr_t), pointer :: arr(:)`	`type(listptr_t), pointer :: arr(:)`
`end type x_t`	`end type x_t`

`type(x_t), pointer :: x`	`type(x_t), pointer :: x`
`end module test`	`end module test`

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