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
fix pr/45972
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
id-12.f
blob
5b7415ca0ec091a5b7acaa66b482bb0b729bc214
1
subroutine
foo
(
a
)
2
logical
bar
3
dimension
a
(
12
,
2
)
4
dimension
b
(
12
,
8
)
5
if
(
cd
.
eq
.
1
)
then
6
if
(
bar
)
write
(
iw
,*)
norb
7
if
(
ef
.
ne
.1
)
then
8
do
i
=
1
,
norb
9
end do
10
end if
11
end if
12
do
400
j
=
1
,
8
13
b
(
i
,
j
) =
0
14
400
continue
15
do
410
j
=
1
,
norb
16
a
(
i
,
j
) =
0
17
410
continue
18
call
rdrsym
(
b
)
19
end