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

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! { dg-options "-std=gnu" }`	`! { dg-options "-std=gnu" }`
`! PR33152 Initialization/declaration problems in block data`	`! PR33152 Initialization/declaration problems in block data`
`! Test case prepared by Jerry DeLisle`	`! Test case prepared by Jerry DeLisle`
`blockdata bab`	`blockdata bab`
`character(len=3) :: myname(2)=(/'bar','baz'/)`	`character(len=3) :: myname(2)=(/'bar','baz'/)`
`common/nmstr/myname`	`common/nmstr/myname`
`end blockdata bab`	`end blockdata bab`

`blockdata thdinit`	`blockdata thdinit`
`implicit none`	`implicit none`
`integer, parameter :: nmin=2`	`integer, parameter :: nmin=2`
`common/onestr/emname`	`common/onestr/emname`
`character(len=3) :: emname(nmin) = (/'bar','baz'/)`	`character(len=3) :: emname(nmin) = (/'bar','baz'/)`
`end blockdata thdinit`	`end blockdata thdinit`

`blockdata fooinit`	`blockdata fooinit`
`implicit none`	`implicit none`
`integer, parameter :: nmin=2`	`integer, parameter :: nmin=2`
`common/twostr/aname`	`common/twostr/aname`
`data aname/'bar','baz'/ ! { dg-error "DATA array" }`	`data aname/'bar','baz'/ ! { dg-error "DATA array" }`
`character(len=3) :: aname(nmin)`	`character(len=3) :: aname(nmin)`
`end blockdata fooinit`	`end blockdata fooinit`

`end`	`end`