Sign in
gnu
/
gcc
/
4e4e45a4fd341174d8231ee6a99e6fe308904f8f
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
erf.f90
blob: 33d0ecc601b2a71c22a5f63e234b002473402a34 [
file
] [
log
] [
blame
]
!
{
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