gcc/testsuite/gfortran.dg/gamma_4.f90

   1 ! { dg-do run }
   2 ! { dg-require-effective-target fortran_large_real }
   3 !
   4 ! Test the Fortran 2008 intrinsics gamma and log_gamma
   5 !
   6 ! PR fortran/32980
   7 !
   8 program gamma_test
   9 implicit none
  10 intrinsic :: gamma, log_gamma
  11 integer, parameter :: qp = selected_real_kind(precision (0.0_8) + 1)
  12
  13 real(qp) :: rqp
  14
  15 if (abs(gamma(1.0_qp)  - 1.0_qp) > tiny(1.0_qp)) call abort()
  16 if (abs(log_gamma(1.0_qp)) > tiny(1.0_qp)) call abort()
  17 end program gamma_test
  18