add cycle statement to lex_body_statements in fixed form tokenizer (l…

…fortran#4486)

integration_tests/CMakeLists.txt

@@ -343,6 +343,7 @@ RUN(NAME cycle_and_exit2 LABELS gfortran llvm llvm_wasm llvm_wasm_emcc fortran)
 RUN(NAME cycle_and_exit3 LABELS gfortran llvm llvm_wasm llvm_wasm_emcc)
 RUN(NAME cycle_and_exit4 LABELS gfortran llvm llvm_wasm llvm_wasm_emcc)
 RUN(NAME cycle_and_exit5 LABELS gfortran llvm llvm_wasm llvm_wasm_emcc)
+RUN(NAME cycle_and_exit6 LABELS gfortran llvm llvm_wasm llvm_wasm_emcc)
 
 RUN(NAME goto_01 LABELS gfortran llvm llvm_wasm llvm_wasm_emcc)
 RUN(NAME goto_02 LABELS gfortran llvm llvm_wasm llvm_wasm_emcc)

integration_tests/cycle_and_exit6.f90

@@ -0,0 +1,16 @@
+program cycles_stuck
+implicit none 
+
+integer :: iiter, maxit 
+maxit = 5 
+
+do iiter = 1, maxit 
+    if ( .true. ) then 
+        cycle 
+        print *, "inside loop"
+    end if 
+end do 
+
+print *, "End of program."
+
+end 

src/lfortran/parser/fixedform_tokenizer.cpp

@@ -1068,6 +1068,11 @@ struct FixedFormRecursiveDescent {
             return true;
         }
 
+        if (next_is(cur, "cycle")){
+            push_token_advance(cur, "cycle");
+            tokenize_line(cur);
+        }
+
         if (l != -1) {
             // Undo the label, as it will be handled later
             undo_label(cur);