@@ -290,7 +290,7 @@ function f32(sign, exp, sig)
290
290
return reinterpret (Float32, UInt32 (x))
291
291
end
292
292
function f64 (sign, exp, sig)
293
- x = (sign& 1 )<< 31 | (exp& ((1 << 11 )- 1 ))<< 52 | sig& ((1 << 52 )- 1 )
293
+ x = Int64 (sign& 1 )<< 31 | Int64 (exp& ((1 << 11 )- 1 ))<< 52 | sig& ((Int64 ( 1 ) << 52 )- 1 )
294
294
return reinterpret (Float64, UInt64 (x))
295
295
end
296
296
@@ -327,10 +327,10 @@ end
327
327
@test_intrinsic_pred Core. Intrinsics. fptrunc Float16 NaN isnan
328
328
# Quiet NaN
329
329
@test_intrinsic_pred Core. Intrinsics. fptrunc Float16 f32 (0 , 0xff , 1 << 22 | 1 << 13 ) isnan
330
- @test_intrinsic_pred Core. Intrinsics. fptrunc Float16 f64 (0 , 0x7ff , 1 << 51 | 1 << 42 ) isnan
330
+ @test_intrinsic_pred Core. Intrinsics. fptrunc Float16 f64 (0 , 0x7ff , Int64 ( 1 ) << 51 | Int64 ( 1 ) << 42 ) isnan
331
331
# Signalling NaN that can be propagated to Float16
332
332
@test_intrinsic_pred Core. Intrinsics. fptrunc Float16 f32 (0 , 0xff , 1 << 13 ) isnan
333
- @test_intrinsic_pred Core. Intrinsics. fptrunc Float16 f64 (0 , 0x7ff , 1 << 42 ) isnan
333
+ @test_intrinsic_pred Core. Intrinsics. fptrunc Float16 f64 (0 , 0x7ff , Int64 ( 1 ) << 42 ) isnan
334
334
# Signalling NaN that cannot be propagated to Float16
335
335
@test_intrinsic_pred Core. Intrinsics. fptrunc Float16 f32 (0 , 0xff , 1 ) isnan
336
336
@test_intrinsic_pred Core. Intrinsics. fptrunc Float16 f64 (0 , 0x7ff , 1 ) isnan
0 commit comments