repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
2006-10-28 Andrew Pinski <andrew_pinski@playstation.sony.com>
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
blockdata_1.f90
blob
5c475f1d0f4ed1c5eb3f6e493657c86da5edd38f
1
! { 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
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