blob: a596504ae1e4a2b8f9cb93022a2d4c63fa403147 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
! { dg-do run }
! { dg-additional-options "-ffpe-trap=overflow,invalid" }
!
! Use dg-additional-options rather than dg-options to avoid overwriting the
! default IEEE options which are passed by ieee.exp and necessary.
program foo
use ieee_arithmetic
implicit none
real x
real(8) y
! At this point it is unclear what the behavior should be
! for -ffpe-trap=invalid with a signaling NaN
!x = ieee_value(x, ieee_signaling_nan)
!if (.not. ieee_is_nan(x)) stop 1
x = ieee_value(x, ieee_quiet_nan)
if (.not. ieee_is_nan(x)) stop 2
x = ieee_value(x, ieee_positive_inf)
if (ieee_is_finite(x)) stop 3
x = ieee_value(x, ieee_negative_inf)
if (ieee_is_finite(x)) stop 4
! At this point it is unclear what the behavior should be
! for -ffpe-trap=invalid with a signaling NaN
!y = ieee_value(y, ieee_signaling_nan)
!if (.not. ieee_is_nan(y)) stop 5
y = ieee_value(y, ieee_quiet_nan)
if (.not. ieee_is_nan(y)) stop 6
y = ieee_value(y, ieee_positive_inf)
if (ieee_is_finite(y)) stop 7
y = ieee_value(y, ieee_negative_inf)
if (ieee_is_finite(y)) stop 8
end program foo
|
