tests: Init for floor body [skip ci]

integration_tests/CMakeLists.txt

@@ -170,6 +170,8 @@ RUN(NAME format_02 LABELS gfortran)
 
 RUN(NAME submodule_01 LABELS gfortran)
 
+RUN(NAME floor_01 LABELS gfortran) # floor body
+RUN(NAME floor_02 LABELS gfortran) # floor symboltable
 RUN(NAME intrinsics_01 LABELS gfortran) # sqrt, abs, log
 RUN(NAME intrinsics_02 LABELS gfortran llvm) # sin
 RUN(NAME intrinsics_03 LABELS gfortran llvm) # cos

integration_tests/floor_01.f90

@@ -0,0 +1,10 @@
+program floor_01
+  real, parameter :: x1 = 3.3 ! 3
+  real, parameter :: x2 = 3.5 ! 3
+  real, parameter :: x3 = 3.7 ! 3
+  real, parameter :: y1 = -3.3 ! -4
+  real, parameter :: y2 = -3.5 ! -4
+  real, parameter :: y3 = -3.7 ! -4
+  print*, floor(x1), floor(x2), floor(x3)
+  print*, floor(y1), floor(y2), floor(y3)
+end program

src/runtime/lfortran_intrinsic_array.f90

@@ -52,6 +52,11 @@ real function real(x, kind)
     integer, intent(in) :: x(:)
     integer, intent(in) :: kind
     end function
+
+    real function floor(x, kind)
+    integer, intent(in) :: x(:)
+    integer, intent(in) :: kind
+    end function
 end interface
 
 end module

tests/tests.toml

@@ -1097,6 +1097,16 @@ asr = true
 filename = "../integration_tests/intrinsics_14.f90"
 asr = true
 
+# floor (body)
+[[test]]
+filename = "../integration_tests/floor_01.f90"
+asr = true
+
+# floor (symboltable)
+[[test]]
+filename = "../integration_tests/floor_02.f90"
+asr = true
+
 [[test]]
 filename = "../integration_tests/intrinsics_open_close_read_write.f90"
 asr = true