2 ! { dg-options "-std=f2003 -Wall" }
4 ! Test the vendor intrinsic (d)gamma, lgamma and algama/dlgama
5 ! gamma is also part of the Fortran 2008 draft; lgamma is called
6 ! log_gamma in the Fortran 2008 draft.
11 intrinsic :: gamma ! { dg-error "Fortran 2008" }
12 intrinsic :: dgamma ! { dg-error "extension" }
13 intrinsic :: lgamma ! { dg-error "extension" }
14 intrinsic :: algama ! { dg-error "extension" }
15 intrinsic :: dlgama ! { dg-error "extension" }
17 integer, parameter :: sp = kind(1.0)
18 integer, parameter :: dp = kind(1.0d0)
20 real(sp) :: rsp = 1.0_sp
21 real(dp) :: rdp = 1.0_dp