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