1! { dg-do compile }
2!
3! Check whether ERF/ERFC take scalars and arrays as arguments (PR31760).
4!
5PROGRAM 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)
13END PROGRAM