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.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [der_init_3.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! PR15365`	`! PR15365`
`! Default initializers were being missed`	`! Default initializers were being missed`
`program main`	`program main`
`type xyz`	`type xyz`
`integer :: x = 123`	`integer :: x = 123`
`end type xyz`	`end type xyz`

`type (xyz) :: a !! ok`	`type (xyz) :: a !! ok`
`type (xyz) b !!! not initialized !!!`	`type (xyz) b !!! not initialized !!!`
`if (a%x.ne.123) call abort`	`if (a%x.ne.123) call abort`
`if (b%x.ne.123) call abort`	`if (b%x.ne.123) call abort`
`end`	`end`