OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [blockdata_4.f90] - Blame information for rev 414

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn
! { dg-do compile }
2
! { dg-options "-std=gnu" }
3
! PR33152 Initialization/declaration problems in block data
4
! Test case prepared by Jerry DeLisle  
5
blockdata bab
6
 character(len=3) :: myname(2)=(/'bar','baz'/)
7
 common/nmstr/myname
8
end blockdata bab
9
 
10
blockdata thdinit
11
 implicit none
12
 integer, parameter :: nmin=2
13
 common/onestr/emname
14
 character(len=3) :: emname(nmin) = (/'bar','baz'/)
15
end blockdata thdinit
16
 
17
blockdata fooinit
18
 implicit none
19
 integer, parameter :: nmin=2
20
 common/twostr/aname
21
 data aname/'bar','baz'/ ! { dg-error "DATA array" }
22
 character(len=3) :: aname(nmin)
23
end blockdata fooinit
24
 
25
end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.