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
* gcc.target/i386/mpx/hard-reg-1-nov.c (mpx_test): Use "esp"
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
do_4.f
blob
6d688a0a32381fa83325efd9934cc53fecd852d0
1
! {
dg
-
do
compile
}
2
!
Verify that the loop not terminated on an action
-
stmt is correctly rejected
3
do10i
=
1
,
20
4
if
(
i
.
eq
.5
)
then
5
goto
10
6
10
endif
! {
dg
-
error
"is within another block"
}
7
end
8
! {
dg
-
excess
-
errors
""
}
9