repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
PR ipa/83051
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
errnocheck_1.f90
blob
9990e5a180f5bf57d80f0bfdd72d67dad9ebdb4f
1
! { dg-do compile { target i?86-*-* x86_64-*-* } }
2
! Fortran should default to -fno-math-errno
3
! and thus no call to sqrt in asm
4
subroutine
mysqrt
(
a
)
5
real
(
KIND
=
KIND
(
0.0
D0
)) ::
a
6
a
=
sqrt
(
a
)
7
end subroutine
8
! { dg-final { scan-assembler-times "call" 0 } }