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
ieee_9.f90: XFAIL on arm*-*-gnueabi[hf].
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
forall_7.f90
blob
b707246f06bf331f85ae456b42ae36083c5731de
1
! { dg-do run }
2
integer
::
a
(
10
,
10
)
3
integer
::
tot
4
a
(:,:) =
0
5
forall
(
i
=
1
:
10
)
6
forall
(
j
=
1
:
10
)
7
a
(
i
,
j
) =
1
8
end
forall
9
forall
(
k
=
1
:
10
)
10
a
(
i
,
k
) =
a
(
i
,
k
) +
1
11
end
forall
12
end
forall
13
tot
=
sum
(
a
(:,:))
14
! print *, tot
15
if
(
tot
.
ne
.
200
)
STOP
1
16
end