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! 8program gamma_test 9implicit none 10intrinsic :: gamma, log_gamma 11integer, parameter :: qp = selected_real_kind(precision (0.0_8) + 1) 12 13real(qp) :: rqp 14 15if (abs(gamma(1.0_qp) - 1.0_qp) > tiny(1.0_qp)) call abort() 16if (abs(log_gamma(1.0_qp)) > tiny(1.0_qp)) call abort() 17end program gamma_test 18 19