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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [blockdata_1.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! tests basic block data functionality
3
! we didn't allow multiple block data program units
4
block data
5
 common /a/ y(3)
6
 data y /3*1./
7
end
8
 
9
blockdata d1
10
 common /a/ w(3)
11
 common /b/ u
12
 data u /1./
13
end blockdata d1
14
 
15
block data d2
16
 common /b/ u
17
 common j ! { dg-warning "blank COMMON but initialization is only allowed in named common" }
18
 data j /1/
19
end block data d2
20
!
21
! begin testing code
22
common /a/ x(3)
23
common /b/ y
24
common i
25
 
26
if (any(x /= 1.)) call abort ()
27
if (y /= 1. .or. i /= 1) call abort ()
28
end

powered by: WebSVN 2.1.0

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