URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
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
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.