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

Rev 149	Rev 154
`! { dg-do compile }`	`! { dg-do compile }`
`! PR 15975, PR 16606`	`! PR 15975, PR 16606`
`! Pointers to derived types with initialized components`	`! Pointers to derived types with initialized components`
`!`	`!`
`! Contributed by Erik Edelmann`	`! Contributed by Erik Edelmann`
`!`	`!`
`SUBROUTINE N`	`SUBROUTINE N`
`TYPE T`	`TYPE T`
`INTEGER :: I = 99`	`INTEGER :: I = 99`
`END TYPE T`	`END TYPE T`
`TYPE(T), POINTER :: P`	`TYPE(T), POINTER :: P`
`TYPE(T), TARGET :: Q`	`TYPE(T), TARGET :: Q`
`P => Q`	`P => Q`
`if (P%I.ne.99) call abort ()`	`if (P%I.ne.99) call abort ()`
`END SUBROUTINE N`	`END SUBROUTINE N`

`program test_pr15975`	`program test_pr15975`
`call n ()`	`call n ()`
`end program test_pr15975`	`end program test_pr15975`