Add a test for functions

Manali0806 · Aug 24, 2020 · 6cb892d · 6cb892d
1 parent 6478c9b
commit 6cb892d
Show file tree

Hide file tree

Showing 2 changed files with 35 additions and 0 deletions.
diff --git a/integration_tests/CMakeLists.txt b/integration_tests/CMakeLists.txt
@@ -127,4 +127,6 @@ if (NOT LFORTRAN_BACKEND)
     RUN(allocate_01)
     RUN(block_01)
     RUN(associate_01)
+
+    RUN(functions_01)
 endif()
diff --git a/integration_tests/functions_01.f90 b/integration_tests/functions_01.f90
@@ -0,0 +1,33 @@
+program functions_01
+implicit none
+integer :: i, j
+i = 1
+j = 1
+if (j /= 1) error stop
+j = f(i)
+if (i /= 1) error stop
+if (j /= 2) error stop
+
+j = 1
+if (j /= 1) error stop
+j = f(3)
+if (j /= 4) error stop
+
+j = 1
+if (j /= 1) error stop
+j = f(1+2)
+if (j /= 4) error stop
+
+j = 1
+if (j /= 1) error stop
+j = f(i+2)
+if (j /= 4) error stop
+
+contains
+
+    integer function f(a) result(b)
+    integer, intent(in) :: a
+    b = a + 1
+    end function
+
+end program