tests: updated intrinsic test file

lfortran · May 22, 2024 · 86f1fa5 · 86f1fa5
1 parent 98e8457
commit 86f1fa5
Showing 1 changed file with 1 addition and 8 deletions.
diff --git a/integration_tests/intrinsics_231.f90 b/integration_tests/intrinsics_231.f90
@@ -1,19 +1,15 @@
 program intrinsics_231
     use, intrinsic :: iso_fortran_env, only: dp => real64, sp => real32
-    real(sp) :: x, y, z
+    real(sp) :: y, z
     real(dp) :: a, b, c
 
-    x = 971.72820_sp
     y = 23.82920_sp
     z = 62.739713_sp
 
     a = 9271.72826260_dp
     b = 23.82926260_dp
     c = 62.73971326260_dp
 
-    print *, lgamma(x)
-    if (abs(lgamma(x) - 5710.34375) > 1e-5) error stop
-
     print *, lgamma(y)
     if (abs(lgamma(y) - 5.10680733e+01) > 1e-5) error stop
 
@@ -44,9 +40,6 @@ program intrinsics_231
     print *, lgamma(62.73971326260_dp)
     if (abs(lgamma(62.73971326260_dp) - 1.95790392620801725e+02_dp) > 1e-12) error stop
 
-    print *, algama(x)
-    if (abs(algama(x) - 5710.34375) > 1e-5) error stop
-
     print *, algama(y)
     if (abs(algama(y) - 5.10680733e+01) > 1e-5) error stop