Allow ';'

krshrimali · Oct 27, 2017 · 73c95f8 · 73c95f8
1 parent ee805a4
commit 73c95f8
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/fortran.g4 b/fortran.g4
@@ -95,10 +95,10 @@ param_list
 statement
     :
     ( IDENT '=' expr
-    | subroutine_call
     | 'exit'
+    | subroutine_call
     | if_statement
-    ) NEWLINE+
+    ) (NEWLINE+ | ';')
     ;
 
 if_statement

diff --git a/tests/test_expr.py b/tests/test_expr.py
@@ -100,6 +100,13 @@ def test_statements():
 call rand_gamma0(a, .false., x(i))
 call rand_gamma_vector_n(a, size(x), x)
 end subroutine
+""", r)
+    assert parse("""\
+subroutine a
+x = 1; y = 2
+y = 5; a = 1; x = u(2)
+a = 5
+end subroutine
 """, r)
 
 def test_control_flow():