Merge branch 'res' into 'master'

Add tests for keyword identifiers

See merge request lfortran/lfortran!640

Author: certik

integration_tests/CMakeLists.txt

@@ -132,6 +132,10 @@ RUN(NAME arrays_02 LABELS gfortran)
 RUN(NAME arrays_06 LABELS gfortran)
 RUN(NAME arrays_07 LABELS gfortran)
 
+RUN(NAME reserved_01 LABELS gfortran)
+RUN(NAME reserved_02 LABELS gfortran llvm)
+RUN(NAME reserved_03 LABELS gfortran)
+
 RUN(NAME intrinsics_01 LABELS gfortran)
 
 RUN(NAME parameter_01 LABELS gfortran)

integration_tests/reserved_01.f90

@@ -0,0 +1,15 @@
+program reserved_01
+implicit none
+if (end(1, 2) /= 2) error stop
+if (end(2, 1) /= 2) error stop
+
+contains
+
+integer function end(return,&
+integer)result(function);;;;&
+integer integer,return;;;;;;&
+;;function=return;if(return>&
+integer)return;;;;;function=&
+integer;;end function end;;;;
+
+end program

integration_tests/reserved_02.f90

@@ -0,0 +1,13 @@
+program reserved_02
+implicit none
+if (integer() /= 1) error stop
+
+contains
+
+integer function integer()
+integer function
+function = function/function
+integer = function
+end function
+
+end program

integration_tests/reserved_03.f90

@@ -0,0 +1,16 @@
+program reserved_03
+implicit none
+integer endsubroutine
+call integer
+if (endsubroutine /= 1) error stop
+
+contains
+
+subroutine integer
+integer subroutine
+endsubroutine &
+= subroutine/subroutine
+endsubroutine &
+
+
+; end program

tests/reference/ast_f90-reserved_01-d8d7bd5.json

@@ -0,0 +1,13 @@
+{
+    "basename": "ast_f90-reserved_01-d8d7bd5",
+    "cmd": "lfortran --show-ast-f90 --no-color {infile}",
+    "infile": "tests/../integration_tests/reserved_01.f90",
+    "infile_hash": "8f2d369e0f1a924d90eacfcc549441b5c9e0b56d89b4fda9164c8a84",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "ast_f90-reserved_01-d8d7bd5.stdout",
+    "stdout_hash": "8cc662160b14aafe8ede0ecb6caea32653394db60df2432a4699903e",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}

tests/reference/ast_f90-reserved_01-d8d7bd5.stdout

@@ -0,0 +1,21 @@
+program reserved_01
+if ((end(1, 2))/=(2)) then
+    error stop
+end if
+if ((end(2, 1))/=(2)) then
+    error stop
+end if
+
+contains
+
+    integer function end(return, integer) result(function) 
+    integer :: integer
+    integer :: return
+    function = return
+    if ((return)>(integer)) then
+        return
+    end if
+    function = integer
+    end function end
+
+end program reserved_01

tests/reference/ast_f90-reserved_02-edc293b.json

@@ -0,0 +1,13 @@
+{
+    "basename": "ast_f90-reserved_02-edc293b",
+    "cmd": "lfortran --show-ast-f90 --no-color {infile}",
+    "infile": "tests/../integration_tests/reserved_02.f90",
+    "infile_hash": "53fd885967ecf00fd1073cda95a659fa31a4f3d4da78a0fe31cab23b",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "ast_f90-reserved_02-edc293b.stdout",
+    "stdout_hash": "b3107be8a67a283b148911a790bc57e68f27b43509abb75dd5bd455b",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}

tests/reference/ast_f90-reserved_02-edc293b.stdout

@@ -0,0 +1,14 @@
+program reserved_02
+if ((integer())/=(1)) then
+    error stop
+end if
+
+contains
+
+    integer function integer() 
+    integer :: function
+    function = (function)/(function)
+    integer = function
+    end function integer
+
+end program reserved_02

tests/tests.toml

@@ -576,3 +576,11 @@ ast_f90 = true
 filename = "fn_call1.f90"
 ast = true
 ast_f90 = true
+
+[[test]]
+filename = "../integration_tests/reserved_01.f90"
+ast_f90 = true
+
+[[test]]
+filename = "../integration_tests/reserved_02.f90"
+ast_f90 = true