Merge pull request lfortran#4485 from gxyd/exit_fixed_form

fix: tokenize "exit" in fixed form parser

src/lfortran/parser/fixedform_tokenizer.cpp

@@ -994,6 +994,12 @@ struct FixedFormRecursiveDescent {
             return true;
         }
 
+        if (next_is(cur, "exit")) {
+            push_token_advance(cur, "exit");
+            tokenize_line(cur);
+            return true;
+        }
+
         if (next_is(cur, "goto")) {
             push_token_advance(cur, "goto");
             tokenize_line(cur);

tests/fixed_form_with_exit.f

@@ -0,0 +1,6 @@
+        SUBROUTINE EXAMPLE
+        INTEGER I
+        DO I = 2, 8
+        IF (I == 2) EXIT
+        END DO
+        END

tests/reference/ast-fixed_form_with_exit-0c669e6.json

@@ -0,0 +1,13 @@
+{
+    "basename": "ast-fixed_form_with_exit-0c669e6",
+    "cmd": "lfortran --fixed-form --show-ast --no-color {infile} -o {outfile}",
+    "infile": "tests/fixed_form_with_exit.f",
+    "infile_hash": "96d9aae99e4783183d44514eb3229ae1d1879847d4722d605ae687f6",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "ast-fixed_form_with_exit-0c669e6.stdout",
+    "stdout_hash": "438fb8012f29766becc2f526e72e71043772617a0ae5c81a28566eb8",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}

tests/reference/ast-fixed_form_with_exit-0c669e6.stdout

@@ -0,0 +1,57 @@
+(TranslationUnit
+    [(Subroutine
+        example
+        []
+        []
+        ()
+        ()
+        []
+        []
+        []
+        [(Declaration
+            (AttrType
+                TypeInteger
+                []
+                ()
+                ()
+                None
+            )
+            []
+            [(i
+            []
+            []
+            ()
+            ()
+            None
+            ())]
+            ()
+        )]
+        [(DoLoop
+            0
+            ()
+            0
+            i
+            2
+            8
+            ()
+            [(If
+                0
+                ()
+                (== i 2)
+                [(Exit
+                    0
+                    ()
+                    ()
+                )]
+                []
+                ()
+                ()
+                ()
+            )]
+            ()
+            ()
+        )]
+        []
+        []
+    )]
+)

tests/tests.toml

@@ -2628,6 +2628,10 @@ ast = true
 filename = "fixed_form_without_newline.f"
 ast = true
 
+[[test]]
+filename = "fixed_form_with_exit.f"
+ast = true
+
 [[test]]
 filename = "fixedform_doloop.f"
 ast = true