Commit 9b40b2a9 authored by Raymond Toy's avatar Raymond Toy
Browse files

Test for CYCLE and EXIT statements.

parent 28c496a2
program tst
do k = 1, 5
print *, 'k = ', k
if (k .lt. 3) then
cycle
endif
do j = 1, 10
if (j .lt. 3) then
cycle
endif
if (j .eq. 4) then
exit
endif
print *, 'j = ', j
enddo
if (k .eq. 4) then
exit
endif
enddo
end
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment