This website requires JavaScript.
Explore
Help
Register
Sign In
robotux
/
rt_gccstream
Watch
1
Star
0
Fork
You've already forked rt_gccstream
0
Code
Issues
Pull Requests
Releases
Activity
master
rt_gccstream
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
971102-1.f
13 lines
195 B
Fortran
Raw
Permalink
Blame
History
c
{
dg
-
do
run
}
i
=
3
j
=
0
do
i
=
i
,
5
j
=
j
+
i
end
do
do
i
=
3
,
i
j
=
j
+
i
end
do
if
(
i
.
ne
.
7
)
call
abort
(
)
print
*
,
i
,
j
end
Reference in New Issue
View Git Blame
Copy Permalink