Sign in
gnu
/
gcc
/
929abc7fe3ad4491ac412ca232e055618559f268
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr84565.f90
blob: 4c1cdc4cee24e85178109eb978d5abc986715295 [
file
] [
log
] [
blame
]
!
PR fortran
/
84565
!
{
dg
-
do
compile
{
target aarch64
*-*-*
}
}
!
{
dg
-
options
"-mlow-precision-sqrt -funsafe-math-optimizations"
}
subroutine mysqrt
(
a
)
real
(
KIND
=
KIND
(
0.0D0
))
::
a
a
=
sqrt
(
a
)
end
subroutine