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

Rev 302	Rev 384
`! { dg-do "compile" }`	`! { dg-do "compile" }`
`! PR fortran/34402 - allocatable components shall not be`	`! PR fortran/34402 - allocatable components shall not be`
`! data-initialized in init expr`	`! data-initialized in init expr`

`type t`	`type t`
`real, allocatable :: x(:)`	`real, allocatable :: x(:)`
`end type`	`end type`

`! The following is illegal!`	`! The following is illegal!`
`type (t) :: bad = t ( (/ 1., 3., 5., 7., 9. /) ) ! { dg-error "Invalid initialization expression" }`	`type (t) :: bad = t ( (/ 1., 3., 5., 7., 9. /) ) ! { dg-error "Invalid initialization expression" }`

`! This is ok`	`! This is ok`
`type (t) :: ok = t ( NULL() )`	`type (t) :: ok = t ( NULL() )`
`end`	`end`