2 ! { dg-options "-std=f95" }
4 ! PR 39876: module procedure name that collides with the GNU intrinsic
6 ! Contributed by Alexei Matveev <alexei.matveev+gcc@gmail.com>
20 double precision :: avg
22 double precision function f(x)
24 double precision, intent(in) :: x
27 avg = ( f(1.0D0) + f(2.0D0) ) / 2
32 double precision, intent(in) :: x
33 double precision :: erfc