| ! { dg-do run } |
| program foo |
| use ieee_arithmetic |
| use iso_fortran_env |
| implicit none |
| |
| ! This allows us to test REAL128 if it exists, and still compile |
| ! on platforms were it is not present |
| ! https://gcc.gnu.org/bugzilla/show_bug.cgi?id=89639 |
| integer, parameter :: large = merge(real128, real64, real128 > 0) |
| |
| real, volatile :: rnan, rinf |
| double precision, volatile :: dnan, dinf |
| real(kind=large), volatile :: lnan, linf |
| |
| rinf = ieee_value(0., ieee_positive_inf) |
| rnan = ieee_value(0., ieee_quiet_nan) |
| |
| dinf = ieee_value(0.d0, ieee_positive_inf) |
| dnan = ieee_value(0.d0, ieee_quiet_nan) |
| |
| linf = ieee_value(0._large, ieee_positive_inf) |
| lnan = ieee_value(0._large, ieee_quiet_nan) |
| |
| if (.not. ieee_signaling_eq (0., 0.)) stop 1 |
| if (.not. ieee_signaling_eq (0., -0.)) stop 2 |
| if (.not. ieee_signaling_eq (1., 1.)) stop 3 |
| if (.not. ieee_signaling_eq (rinf, rinf)) stop 4 |
| if (.not. ieee_signaling_eq (-rinf, -rinf)) stop 5 |
| if (ieee_signaling_eq (rnan, rnan)) stop 6 |
| if (ieee_signaling_eq (0., 1.)) stop 7 |
| if (ieee_signaling_eq (0., -1.)) stop 8 |
| if (ieee_signaling_eq (0., rnan)) stop 9 |
| if (ieee_signaling_eq (1., rnan)) stop 10 |
| if (ieee_signaling_eq (0., rinf)) stop 11 |
| if (ieee_signaling_eq (1., rinf)) stop 12 |
| if (ieee_signaling_eq (rinf, rnan)) stop 13 |
| |
| if (.not. ieee_signaling_eq (0.d0, 0.d0)) stop 14 |
| if (.not. ieee_signaling_eq (0.d0, -0.d0)) stop 15 |
| if (.not. ieee_signaling_eq (1.d0, 1.d0)) stop 16 |
| if (.not. ieee_signaling_eq (dinf, dinf)) stop 17 |
| if (.not. ieee_signaling_eq (-dinf, -dinf)) stop 18 |
| if (ieee_signaling_eq (dnan, dnan)) stop 19 |
| if (ieee_signaling_eq (0.d0, 1.d0)) stop 20 |
| if (ieee_signaling_eq (0.d0, -1.d0)) stop 21 |
| if (ieee_signaling_eq (0.d0, dnan)) stop 22 |
| if (ieee_signaling_eq (1.d0, dnan)) stop 23 |
| if (ieee_signaling_eq (0.d0, dinf)) stop 24 |
| if (ieee_signaling_eq (1.d0, dinf)) stop 25 |
| if (ieee_signaling_eq (dinf, dnan)) stop 26 |
| |
| if (.not. ieee_signaling_eq (0._large, 0._large)) stop 27 |
| if (.not. ieee_signaling_eq (0._large, -0._large)) stop 28 |
| if (.not. ieee_signaling_eq (1._large, 1._large)) stop 29 |
| if (.not. ieee_signaling_eq (linf, linf)) stop 30 |
| if (.not. ieee_signaling_eq (-linf, -linf)) stop 31 |
| if (ieee_signaling_eq (lnan, lnan)) stop 32 |
| if (ieee_signaling_eq (0._large, 1._large)) stop 33 |
| if (ieee_signaling_eq (0._large, -1._large)) stop 34 |
| if (ieee_signaling_eq (0._large, lnan)) stop 35 |
| if (ieee_signaling_eq (1._large, lnan)) stop 36 |
| if (ieee_signaling_eq (0._large, linf)) stop 37 |
| if (ieee_signaling_eq (1._large, linf)) stop 38 |
| if (ieee_signaling_eq (linf, lnan)) stop 39 |
| |
| |
| if (ieee_signaling_ne (0., 0.)) stop 40 |
| if (ieee_signaling_ne (0., -0.)) stop 41 |
| if (ieee_signaling_ne (1., 1.)) stop 42 |
| if (ieee_signaling_ne (rinf, rinf)) stop 43 |
| if (ieee_signaling_ne (-rinf, -rinf)) stop 44 |
| if (.not. ieee_signaling_ne (rnan, rnan)) stop 45 |
| if (.not. ieee_signaling_ne (0., 1.)) stop 46 |
| if (.not. ieee_signaling_ne (0., -1.)) stop 47 |
| if (.not. ieee_signaling_ne (0., rnan)) stop 48 |
| if (.not. ieee_signaling_ne (1., rnan)) stop 49 |
| if (.not. ieee_signaling_ne (0., rinf)) stop 50 |
| if (.not. ieee_signaling_ne (1., rinf)) stop 51 |
| if (.not. ieee_signaling_ne (rinf, rnan)) stop 52 |
| |
| if (ieee_signaling_ne (0.d0, 0.d0)) stop 53 |
| if (ieee_signaling_ne (0.d0, -0.d0)) stop 54 |
| if (ieee_signaling_ne (1.d0, 1.d0)) stop 55 |
| if (ieee_signaling_ne (dinf, dinf)) stop 56 |
| if (ieee_signaling_ne (-dinf, -dinf)) stop 57 |
| if (.not. ieee_signaling_ne (dnan, dnan)) stop 58 |
| if (.not. ieee_signaling_ne (0.d0, 1.d0)) stop 59 |
| if (.not. ieee_signaling_ne (0.d0, -1.d0)) stop 60 |
| if (.not. ieee_signaling_ne (0.d0, dnan)) stop 61 |
| if (.not. ieee_signaling_ne (1.d0, dnan)) stop 62 |
| if (.not. ieee_signaling_ne (0.d0, dinf)) stop 63 |
| if (.not. ieee_signaling_ne (1.d0, dinf)) stop 64 |
| if (.not. ieee_signaling_ne (dinf, dnan)) stop 65 |
| |
| if (ieee_signaling_ne (0._large, 0._large)) stop 66 |
| if (ieee_signaling_ne (0._large, -0._large)) stop 67 |
| if (ieee_signaling_ne (1._large, 1._large)) stop 68 |
| if (ieee_signaling_ne (linf, linf)) stop 69 |
| if (ieee_signaling_ne (-linf, -linf)) stop 70 |
| if (.not. ieee_signaling_ne (lnan, lnan)) stop 71 |
| if (.not. ieee_signaling_ne (0._large, 1._large)) stop 72 |
| if (.not. ieee_signaling_ne (0._large, -1._large)) stop 73 |
| if (.not. ieee_signaling_ne (0._large, lnan)) stop 74 |
| if (.not. ieee_signaling_ne (1._large, lnan)) stop 75 |
| if (.not. ieee_signaling_ne (0._large, linf)) stop 76 |
| if (.not. ieee_signaling_ne (1._large, linf)) stop 77 |
| if (.not. ieee_signaling_ne (linf, lnan)) stop 78 |
| |
| |
| if (.not. ieee_signaling_le (0., 0.)) stop 79 |
| if (.not. ieee_signaling_le (0., -0.)) stop 80 |
| if (.not. ieee_signaling_le (1., 1.)) stop 81 |
| if (.not. ieee_signaling_le (rinf, rinf)) stop 82 |
| if (.not. ieee_signaling_le (-rinf, -rinf)) stop 83 |
| if (ieee_signaling_le (rnan, rnan)) stop 84 |
| if (.not. ieee_signaling_le (0., 1.)) stop 85 |
| if (ieee_signaling_le (0., -1.)) stop 86 |
| if (ieee_signaling_le (0., rnan)) stop 87 |
| if (ieee_signaling_le (1., rnan)) stop 88 |
| if (.not. ieee_signaling_le (0., rinf)) stop 89 |
| if (.not. ieee_signaling_le (1., rinf)) stop 90 |
| if (ieee_signaling_le (rinf, rnan)) stop 91 |
| |
| if (.not. ieee_signaling_le (0.d0, 0.d0)) stop 92 |
| if (.not. ieee_signaling_le (0.d0, -0.d0)) stop 93 |
| if (.not. ieee_signaling_le (1.d0, 1.d0)) stop 94 |
| if (.not. ieee_signaling_le (dinf, dinf)) stop 95 |
| if (.not. ieee_signaling_le (-dinf, -dinf)) stop 96 |
| if (ieee_signaling_le (dnan, dnan)) stop 97 |
| if (.not. ieee_signaling_le (0.d0, 1.d0)) stop 98 |
| if (ieee_signaling_le (0.d0, -1.d0)) stop 99 |
| if (ieee_signaling_le (0.d0, dnan)) stop 100 |
| if (ieee_signaling_le (1.d0, dnan)) stop 101 |
| if (.not. ieee_signaling_le (0.d0, dinf)) stop 102 |
| if (.not. ieee_signaling_le (1.d0, dinf)) stop 103 |
| if (ieee_signaling_le (dinf, dnan)) stop 104 |
| |
| if (.not. ieee_signaling_le (0._large, 0._large)) stop 105 |
| if (.not. ieee_signaling_le (0._large, -0._large)) stop 106 |
| if (.not. ieee_signaling_le (1._large, 1._large)) stop 107 |
| if (.not. ieee_signaling_le (linf, linf)) stop 108 |
| if (.not. ieee_signaling_le (-linf, -linf)) stop 109 |
| if (ieee_signaling_le (lnan, lnan)) stop 110 |
| if (.not. ieee_signaling_le (0._large, 1._large)) stop 111 |
| if (ieee_signaling_le (0._large, -1._large)) stop 112 |
| if (ieee_signaling_le (0._large, lnan)) stop 113 |
| if (ieee_signaling_le (1._large, lnan)) stop 114 |
| if (.not. ieee_signaling_le (0._large, linf)) stop 115 |
| if (.not. ieee_signaling_le (1._large, linf)) stop 116 |
| if (ieee_signaling_le (linf, lnan)) stop 117 |
| |
| |
| if (.not. ieee_signaling_ge (0., 0.)) stop 118 |
| if (.not. ieee_signaling_ge (0., -0.)) stop 119 |
| if (.not. ieee_signaling_ge (1., 1.)) stop 120 |
| if (.not. ieee_signaling_ge (rinf, rinf)) stop 121 |
| if (.not. ieee_signaling_ge (-rinf, -rinf)) stop 122 |
| if (ieee_signaling_ge (rnan, rnan)) stop 123 |
| if (ieee_signaling_ge (0., 1.)) stop 124 |
| if (.not. ieee_signaling_ge (0., -1.)) stop 125 |
| if (ieee_signaling_ge (0., rnan)) stop 126 |
| if (ieee_signaling_ge (1., rnan)) stop 127 |
| if (ieee_signaling_ge (0., rinf)) stop 128 |
| if (ieee_signaling_ge (1., rinf)) stop 129 |
| if (ieee_signaling_ge (rinf, rnan)) stop 130 |
| |
| if (.not. ieee_signaling_ge (0.d0, 0.d0)) stop 131 |
| if (.not. ieee_signaling_ge (0.d0, -0.d0)) stop 132 |
| if (.not. ieee_signaling_ge (1.d0, 1.d0)) stop 133 |
| if (.not. ieee_signaling_ge (dinf, dinf)) stop 134 |
| if (.not. ieee_signaling_ge (-dinf, -dinf)) stop 135 |
| if (ieee_signaling_ge (dnan, dnan)) stop 136 |
| if (ieee_signaling_ge (0.d0, 1.d0)) stop 137 |
| if (.not. ieee_signaling_ge (0.d0, -1.d0)) stop 138 |
| if (ieee_signaling_ge (0.d0, dnan)) stop 139 |
| if (ieee_signaling_ge (1.d0, dnan)) stop 140 |
| if (ieee_signaling_ge (0.d0, dinf)) stop 141 |
| if (ieee_signaling_ge (1.d0, dinf)) stop 142 |
| if (ieee_signaling_ge (dinf, dnan)) stop 143 |
| |
| if (.not. ieee_signaling_ge (0._large, 0._large)) stop 144 |
| if (.not. ieee_signaling_ge (0._large, -0._large)) stop 145 |
| if (.not. ieee_signaling_ge (1._large, 1._large)) stop 146 |
| if (.not. ieee_signaling_ge (linf, linf)) stop 147 |
| if (.not. ieee_signaling_ge (-linf, -linf)) stop 148 |
| if (ieee_signaling_ge (lnan, lnan)) stop 149 |
| if (ieee_signaling_ge (0._large, 1._large)) stop 150 |
| if (.not. ieee_signaling_ge (0._large, -1._large)) stop 151 |
| if (ieee_signaling_ge (0._large, lnan)) stop 152 |
| if (ieee_signaling_ge (1._large, lnan)) stop 153 |
| if (ieee_signaling_ge (0._large, linf)) stop 154 |
| if (ieee_signaling_ge (1._large, linf)) stop 155 |
| if (ieee_signaling_ge (linf, lnan)) stop 156 |
| |
| |
| if (ieee_signaling_lt (0., 0.)) stop 157 |
| if (ieee_signaling_lt (0., -0.)) stop 158 |
| if (ieee_signaling_lt (1., 1.)) stop 159 |
| if (ieee_signaling_lt (rinf, rinf)) stop 160 |
| if (ieee_signaling_lt (-rinf, -rinf)) stop 161 |
| if (ieee_signaling_lt (rnan, rnan)) stop 162 |
| if (.not. ieee_signaling_lt (0., 1.)) stop 163 |
| if (ieee_signaling_lt (0., -1.)) stop 164 |
| if (ieee_signaling_lt (0., rnan)) stop 165 |
| if (ieee_signaling_lt (1., rnan)) stop 166 |
| if (.not. ieee_signaling_lt (0., rinf)) stop 167 |
| if (.not. ieee_signaling_lt (1., rinf)) stop 168 |
| if (ieee_signaling_lt (rinf, rnan)) stop 169 |
| |
| if (ieee_signaling_lt (0.d0, 0.d0)) stop 170 |
| if (ieee_signaling_lt (0.d0, -0.d0)) stop 171 |
| if (ieee_signaling_lt (1.d0, 1.d0)) stop 172 |
| if (ieee_signaling_lt (dinf, dinf)) stop 173 |
| if (ieee_signaling_lt (-dinf, -dinf)) stop 174 |
| if (ieee_signaling_lt (dnan, dnan)) stop 175 |
| if (.not. ieee_signaling_lt (0.d0, 1.d0)) stop 176 |
| if (ieee_signaling_lt (0.d0, -1.d0)) stop 177 |
| if (ieee_signaling_lt (0.d0, dnan)) stop 178 |
| if (ieee_signaling_lt (1.d0, dnan)) stop 179 |
| if (.not. ieee_signaling_lt (0.d0, dinf)) stop 180 |
| if (.not. ieee_signaling_lt (1.d0, dinf)) stop 181 |
| if (ieee_signaling_lt (dinf, dnan)) stop 182 |
| |
| if (ieee_signaling_lt (0._large, 0._large)) stop 183 |
| if (ieee_signaling_lt (0._large, -0._large)) stop 184 |
| if (ieee_signaling_lt (1._large, 1._large)) stop 185 |
| if (ieee_signaling_lt (linf, linf)) stop 186 |
| if (ieee_signaling_lt (-linf, -linf)) stop 187 |
| if (ieee_signaling_lt (lnan, lnan)) stop 188 |
| if (.not. ieee_signaling_lt (0._large, 1._large)) stop 189 |
| if (ieee_signaling_lt (0._large, -1._large)) stop 190 |
| if (ieee_signaling_lt (0._large, lnan)) stop 191 |
| if (ieee_signaling_lt (1._large, lnan)) stop 192 |
| if (.not. ieee_signaling_lt (0._large, linf)) stop 193 |
| if (.not. ieee_signaling_lt (1._large, linf)) stop 194 |
| if (ieee_signaling_lt (linf, lnan)) stop 195 |
| |
| |
| if (ieee_signaling_gt (0., 0.)) stop 196 |
| if (ieee_signaling_gt (0., -0.)) stop 197 |
| if (ieee_signaling_gt (1., 1.)) stop 198 |
| if (ieee_signaling_gt (rinf, rinf)) stop 199 |
| if (ieee_signaling_gt (-rinf, -rinf)) stop 200 |
| if (ieee_signaling_gt (rnan, rnan)) stop 201 |
| if (ieee_signaling_gt (0., 1.)) stop 202 |
| if (.not. ieee_signaling_gt (0., -1.)) stop 203 |
| if (ieee_signaling_gt (0., rnan)) stop 204 |
| if (ieee_signaling_gt (1., rnan)) stop 205 |
| if (ieee_signaling_gt (0., rinf)) stop 206 |
| if (ieee_signaling_gt (1., rinf)) stop 207 |
| if (ieee_signaling_gt (rinf, rnan)) stop 208 |
| |
| if (ieee_signaling_gt (0.d0, 0.d0)) stop 209 |
| if (ieee_signaling_gt (0.d0, -0.d0)) stop 210 |
| if (ieee_signaling_gt (1.d0, 1.d0)) stop 211 |
| if (ieee_signaling_gt (dinf, dinf)) stop 212 |
| if (ieee_signaling_gt (-dinf, -dinf)) stop 213 |
| if (ieee_signaling_gt (dnan, dnan)) stop 214 |
| if (ieee_signaling_gt (0.d0, 1.d0)) stop 215 |
| if (.not. ieee_signaling_gt (0.d0, -1.d0)) stop 216 |
| if (ieee_signaling_gt (0.d0, dnan)) stop 217 |
| if (ieee_signaling_gt (1.d0, dnan)) stop 218 |
| if (ieee_signaling_gt (0.d0, dinf)) stop 219 |
| if (ieee_signaling_gt (1.d0, dinf)) stop 220 |
| if (ieee_signaling_gt (dinf, dnan)) stop 221 |
| |
| if (ieee_signaling_gt (0._large, 0._large)) stop 222 |
| if (ieee_signaling_gt (0._large, -0._large)) stop 223 |
| if (ieee_signaling_gt (1._large, 1._large)) stop 224 |
| if (ieee_signaling_gt (linf, linf)) stop 225 |
| if (ieee_signaling_gt (-linf, -linf)) stop 226 |
| if (ieee_signaling_gt (lnan, lnan)) stop 227 |
| if (ieee_signaling_gt (0._large, 1._large)) stop 228 |
| if (.not. ieee_signaling_gt (0._large, -1._large)) stop 229 |
| if (ieee_signaling_gt (0._large, lnan)) stop 230 |
| if (ieee_signaling_gt (1._large, lnan)) stop 231 |
| if (ieee_signaling_gt (0._large, linf)) stop 232 |
| if (ieee_signaling_gt (1._large, linf)) stop 233 |
| if (ieee_signaling_gt (linf, lnan)) stop 234 |
| |
| end program foo |
