Sign in
llvm
/
llvm-archive
/
1456578521548c1ea3e191fcd25bb39efd8203cd
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
forall_7.f90
blob: bea437f3bf5704ddd9a6e912985ef15c4ee6adba [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
integer
::
a
(
10
,
10
)
integer
::
tot
a
(:,:)
=
0
forall
(
i
=
1
:
10
)
forall
(
j
=
1
:
10
)
a
(
i
,
j
)
=
1
end
forall
forall
(
k
=
1
:
10
)
a
(
i
,
k
)
=
a
(
i
,
k
)
+
1
end
forall
end
forall
tot
=
sum
(
a
(:,:))
!
print
*,
tot
if
(
tot
.
ne
.
200
)
call abort
()
end