gcc/testsuite/gfortran.dg/erf.f90


1
2
3
4
5
6
7
8
9
10
11
12
13

! { dg-do compile }
!
! Check whether ERF/ERFC take scalars and arrays as arguments (PR31760).
!
PROGRAM test_erf
  REAL :: r = 0.0, ra(2) = (/ 0.0, 1.0 /)

  r  = erf(r)
  r  = erfc(r)

  ra = erf(ra)
  ra = erfc(ra)
END PROGRAM