2 ! { dg-require-effective-target sse2_runtime { target { i?86-*-* x86_64-*-* } } }
3 ! { dg-additional-options "-msse2 -mfpmath=sse" { target { i?86-*-* x86_64-*-* } } }
5 program test_underflow_control
11 double precision, volatile :: y
12 integer, parameter :: kx
= kind(x
), ky
= kind(y
)
14 if (ieee_support_underflow_control(x
)) then
17 call ieee_set_underflow_mode(.true
.)
20 call ieee_get_underflow_mode(l
)
24 call ieee_set_underflow_mode(.false
.)
27 call ieee_get_underflow_mode(l
)
32 if (ieee_support_underflow_control(y
)) then
35 call ieee_set_underflow_mode(.true
.)
38 call ieee_get_underflow_mode(l
)
42 call ieee_set_underflow_mode(.false
.)
45 call ieee_get_underflow_mode(l
)