gcc/testsuite/gfortran.dg/erf.f90

   1 ! { dg-do compile }
   2 !
   3 ! Check whether ERF/ERFC take scalars and arrays as arguments (PR31760).
   4 !
   5 PROGRAM test_erf
   6   REAL :: r = 0.0, ra(2) = (/ 0.0, 1.0 /)
   7
   8   r  = erf(r)
   9   r  = erfc(r)
  10
  11   ra = erf(ra)
  12   ra = erfc(ra)
  13 END PROGRAM