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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [der_init_5.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! Check that null initialization of pointer components works.`	`! Check that null initialization of pointer components works.`
`! PR 15969 prompted these`	`! PR 15969 prompted these`
`! the commented out tests are cases where we still fail`	`! the commented out tests are cases where we still fail`
`program der_init_5`	`program der_init_5`
`type t`	`type t`
`type(t), pointer :: a => NULL()`	`type(t), pointer :: a => NULL()`
`real, pointer :: b => NULL()`	`real, pointer :: b => NULL()`
`character, pointer :: c => NULL()`	`character, pointer :: c => NULL()`
`integer, pointer, dimension(:) :: d => NULL()`	`integer, pointer, dimension(:) :: d => NULL()`
`end type t`	`end type t`
`type (t) :: p`	`type (t) :: p`
`if (associated(p%a)) call abort()`	`if (associated(p%a)) call abort()`
`if (associated(p%b)) call abort()`	`if (associated(p%b)) call abort()`
`! if (associated(p%c)) call abort()`	`! if (associated(p%c)) call abort()`
`if (associated(p%d)) call abort()`	`if (associated(p%d)) call abort()`
`end`	`end`