Lines Matching refs:_d
29 if (ieee_support_datatype(0._d)) then
30 if (.not. ieee_is_finite(0.2_d)) STOP 12
31 if (.not. ieee_is_finite(-0.2_d)) STOP 13
32 if (.not. ieee_is_finite(0._d)) STOP 14
33 if (.not. ieee_is_finite(-0._d)) STOP 15
34 if (.not. ieee_is_finite(tiny(0._d))) STOP 16
35 if (.not. ieee_is_finite(tiny(0._d)/100)) STOP 17
36 if (.not. ieee_is_finite(huge(0._d))) STOP 18
37 if (.not. ieee_is_finite(-huge(0._d))) STOP 19
65 if (ieee_support_datatype(0._d)) then
66 if (ieee_is_nan(0.2_d)) STOP 35
67 if (ieee_is_nan(-0.2_d)) STOP 36
68 if (ieee_is_nan(0._d)) STOP 37
69 if (ieee_is_nan(-0._d)) STOP 38
70 if (ieee_is_nan(tiny(0._d))) STOP 39
71 if (ieee_is_nan(tiny(0._d)/100)) STOP 40
72 if (ieee_is_nan(huge(0._d))) STOP 41
73 if (ieee_is_nan(-huge(0._d))) STOP 42
105 if (ieee_support_datatype(0._d)) then
106 if (ieee_is_negative(0.2_d)) STOP 61
107 if (.not. ieee_is_negative(-0.2_d)) STOP 62
108 if (ieee_is_negative(0._d)) STOP 63
109 if (.not. ieee_is_negative(-0._d)) STOP 64
110 if (ieee_is_negative(tiny(0._d))) STOP 65
111 if (ieee_is_negative(tiny(0._d)/100)) STOP 66
112 if (.not. ieee_is_negative(-tiny(0._d))) STOP 67
113 if (.not. ieee_is_negative(-tiny(0._d)/100)) STOP 68
114 if (ieee_is_negative(huge(0._d))) STOP 69
115 if (.not. ieee_is_negative(-huge(0._d))) STOP 70
147 if (ieee_support_datatype(0._d)) then
148 if (.not. ieee_is_normal(0.2_d)) STOP 89
149 if (.not. ieee_is_normal(-0.2_d)) STOP 90
150 if (.not. ieee_is_normal(0._d)) STOP 91
151 if (.not. ieee_is_normal(-0._d)) STOP 92
152 if (.not. ieee_is_normal(tiny(0._d))) STOP 93
153 if (ieee_is_normal(tiny(0._d)/100)) STOP 94
154 if (.not. ieee_is_normal(-tiny(0._d))) STOP 95
155 if (ieee_is_normal(-tiny(0._d)/100)) STOP 96
156 if (.not. ieee_is_normal(huge(0._d))) STOP 97
157 if (.not. ieee_is_normal(-huge(0._d))) STOP 98