Lines Matching refs:_d
29 if (ieee_support_datatype(0._d)) then
30 if (.not. ieee_is_finite(0.2_d)) call abort
31 if (.not. ieee_is_finite(-0.2_d)) call abort
32 if (.not. ieee_is_finite(0._d)) call abort
33 if (.not. ieee_is_finite(-0._d)) call abort
34 if (.not. ieee_is_finite(tiny(0._d))) call abort
35 if (.not. ieee_is_finite(tiny(0._d)/100)) call abort
36 if (.not. ieee_is_finite(huge(0._d))) call abort
37 if (.not. ieee_is_finite(-huge(0._d))) call abort
65 if (ieee_support_datatype(0._d)) then
66 if (ieee_is_nan(0.2_d)) call abort
67 if (ieee_is_nan(-0.2_d)) call abort
68 if (ieee_is_nan(0._d)) call abort
69 if (ieee_is_nan(-0._d)) call abort
70 if (ieee_is_nan(tiny(0._d))) call abort
71 if (ieee_is_nan(tiny(0._d)/100)) call abort
72 if (ieee_is_nan(huge(0._d))) call abort
73 if (ieee_is_nan(-huge(0._d))) call abort
105 if (ieee_support_datatype(0._d)) then
106 if (ieee_is_negative(0.2_d)) call abort
107 if (.not. ieee_is_negative(-0.2_d)) call abort
108 if (ieee_is_negative(0._d)) call abort
109 if (.not. ieee_is_negative(-0._d)) call abort
110 if (ieee_is_negative(tiny(0._d))) call abort
111 if (ieee_is_negative(tiny(0._d)/100)) call abort
112 if (.not. ieee_is_negative(-tiny(0._d))) call abort
113 if (.not. ieee_is_negative(-tiny(0._d)/100)) call abort
114 if (ieee_is_negative(huge(0._d))) call abort
115 if (.not. ieee_is_negative(-huge(0._d))) call abort
147 if (ieee_support_datatype(0._d)) then
148 if (.not. ieee_is_normal(0.2_d)) call abort
149 if (.not. ieee_is_normal(-0.2_d)) call abort
150 if (.not. ieee_is_normal(0._d)) call abort
151 if (.not. ieee_is_normal(-0._d)) call abort
152 if (.not. ieee_is_normal(tiny(0._d))) call abort
153 if (ieee_is_normal(tiny(0._d)/100)) call abort
154 if (.not. ieee_is_normal(-tiny(0._d))) call abort
155 if (ieee_is_normal(-tiny(0._d)/100)) call abort
156 if (.not. ieee_is_normal(huge(0._d))) call abort
157 if (.not. ieee_is_normal(-huge(0._d))) call abort