Sign in
llvm
/
llvm-project
/
flang
/
60b56eba2e116423a2f04c4cc0c80c8d92e6b00a
/
.
/
test
/
Semantics
/
dosemantics07.f90
blob: 1c1ecb7665dcd469574ddc6627b2b514bff23bd3 [
file
] [
log
] [
blame
]
!
RUN
:
%
S
/
test_errors
.
sh
%
s
%
t
%
flang_fc1
!
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