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.fortran-torture/] [execute/] [der_init_2.f90] - Diff between revs 303 and 384

Rev 303	Rev 384
`! PR 15314`	`! PR 15314`
`! We were looking at the type of the initialization expression, not the type`	`! We were looking at the type of the initialization expression, not the type`
`! of the field.`	`! of the field.`
`program der_init_2`	`program der_init_2`
`implicit none`	`implicit none`
`type foo`	`type foo`
`integer :: a(3) = 42`	`integer :: a(3) = 42`
`integer :: b = 123`	`integer :: b = 123`
`end type`	`end type`

`type (foo) :: v`	`type (foo) :: v`

`if ((v%b .ne. 123) .or. any (v%a .ne. 42)) call abort ();`	`if ((v%b .ne. 123) .or. any (v%a .ne. 42)) call abort ();`
`end program`	`end program`