tools/fortran_2008_gamma_test.F

   1       PROGRAM test_2008_gamma
   2       IMPLICIT NONE
   3       REAL :: x , y
   4       x = 4
   5       y = gamma ( x )
   6       print *,'gamma(',x,') = ',y
   7       END PROGRAM test_2008_gamma