Sign in
llvm
/
llvm-project
/
flang
/
14360fdc327fd05f38007969e6c83faf7db51b95
/
.
/
test
/
Semantics
/
dosemantics07.f90
blob: 0ecc1550f3061d1e1bc1bf46a3962ecbf9f0d80b [
file
] [
log
] [
blame
]
!
RUN
:
%
S
/
test_errors
.
sh
%
s
%
t
%
f18
!
C1132
!
If
the
do
-
stmt
is
a nonlabel
-
do
-
stmt
,
the corresponding
end
-
do
shall be an
!
end
-
do
-
stmt
.
subroutine s1
()
do
while
(.
true
.)
print
*,
"Hello"
continue
!
ERROR
:
expected
'END DO'
end
subroutine s1