summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/erf.f90
blob: 33d0ecc601b2a71c22a5f63e234b002473402a34 (plain)
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