@@ -27,25 +27,24 @@ program cs
27
27
! CHECK: %[[V_24:[0-9]+]] = fir.field_index which, !fir.type<_QMieee_arithmeticTieee_class_type{which:i8}>
28
28
! CHECK: %[[V_25:[0-9]+]] = fir.coordinate_of %[[V_1]], %[[V_24]] : (!fir.ref<!fir.type<_QMieee_arithmeticTieee_class_type{which:i8}>>, !fir.field) -> !fir.ref<i8>
29
29
! CHECK: %[[V_26:[0-9]+]] = fir.load %[[V_25]] : !fir.ref<i8>
30
- ! CHECK: %[[V_27:[0-9]+]] = fir.address_of(@_FortranAIeeeValueTable_16 ) : !fir.ref<!fir.array<12xi64>>
30
+ ! CHECK: %[[V_27:[0-9]+]] = fir.address_of(@_FortranAIeeeValueTable_8 ) : !fir.ref<!fir.array<12xi64>>
31
31
! CHECK: %[[V_28:[0-9]+]] = fir.coordinate_of %[[V_27]], %[[V_26]] : (!fir.ref<!fir.array<12xi64>>, i8) -> !fir.ref<i64>
32
32
! CHECK: %[[V_29:[0-9]+]] = fir.load %[[V_28]] : !fir.ref<i64>
33
- ! CHECK: %[[V_30:[0-9]+]] = fir.convert %[[V_29]] : (i64) -> i128
34
- ! CHECK: %[[V_31:[0-9]+]] = arith.shli %[[V_30]], %c64{{.*}} : i128
35
- ! CHECK: %[[V_32:[0-9]+]] = arith.bitcast %[[V_31]] : i128 to f128
36
- ! CHECK: %[[V_33:[0-9]+]] = arith.negf %[[V_32]] {{.*}} : f128
37
- ! CHECK: %[[V_34:[0-9]+]] = arith.bitcast %[[V_16]] : f16 to i16
38
- ! CHECK: %[[V_35:[0-9]+]] = arith.bitcast %[[V_33]] : f128 to i128
39
- ! CHECK: %[[V_36:[0-9]+]] = arith.shrui %[[V_35]], %c127{{.*}} : i128
40
- ! CHECK: %[[V_37:[0-9]+]] = arith.shli %[[V_34]], %c1{{.*}} : i16
41
- ! CHECK: %[[V_38:[0-9]+]] = arith.shrui %[[V_37]], %c1{{.*}} : i16
42
- ! CHECK: %[[V_39:[0-9]+]] = arith.shli %c1{{.*}}, %c15{{.*}} : i16
43
- ! CHECK: %[[V_40:[0-9]+]] = arith.cmpi eq, %[[V_36]], %c0{{.*}} : i128
44
- ! CHECK: %[[V_41:[0-9]+]] = arith.select %[[V_40]], %c0{{.*}}, %[[V_39]] : i16
45
- ! CHECK: %[[V_42:[0-9]+]] = arith.ori %[[V_38]], %[[V_41]] : i16
46
- ! CHECK: %[[V_43:[0-9]+]] = arith.bitcast %[[V_42]] : i16 to f16
47
- ! CHECK: fir.store %[[V_43]] to %[[V_0]] : !fir.ref<f16>
48
- print * , ieee_copy_sign(x2, - ieee_value(0.0_16 , ieee_quiet_nan))
33
+ ! CHECK: %[[V_30:[0-9]+]] = arith.bitcast %[[V_29]] : i64 to f64
34
+ ! CHECK: %[[V_31:[0-9]+]] = arith.negf %[[V_30]] fastmath<contract> : f64
35
+ ! CHECK: %[[V_32:[0-9]+]] = arith.bitcast %[[V_16]] : f16 to i16
36
+ ! CHECK: %[[V_33:[0-9]+]] = arith.bitcast %[[V_31]] : f64 to i64
37
+ ! CHECK: %[[V_34:[0-9]+]] = arith.shrui %[[V_33]], %c63{{.*}} : i64
38
+ ! CHECK: %[[V_35:[0-9]+]] = arith.shli %[[V_32]], %c1{{.*}} : i16
39
+ ! CHECK: %[[V_36:[0-9]+]] = arith.shrui %[[V_35]], %c1{{.*}} : i16
40
+ ! CHECK: %[[V_37:[0-9]+]] = arith.shli %c1{{.*}}, %c15{{.*}} : i16
41
+ ! CHECK: %[[V_38:[0-9]+]] = arith.cmpi eq, %[[V_34]], %c0{{.*}} : i64
42
+ ! CHECK: %[[V_39:[0-9]+]] = arith.select %[[V_38]], %c0{{.*}}, %[[V_37]] : i16
43
+ ! CHECK: %[[V_40:[0-9]+]] = arith.ori %[[V_36]], %[[V_39]] : i16
44
+ ! CHECK: %[[V_41:[0-9]+]] = arith.bitcast %[[V_40]] : i16 to f16
45
+ ! CHECK: fir.store %[[V_41]] to %[[V_0]] : !fir.ref<f16>
46
+ print * , ieee_copy_sign(x2, - ieee_value(0.0_8 , ieee_quiet_nan))
49
47
end
50
48
51
- ! CHECK: fir.global linkonce @_FortranAIeeeValueTable_16(dense<[0, 9223160930622242816, 9223231299366420480, -281474976710656, -4611967493404098560, -9223336852482686976, -9223372036854775808, 0, 35184372088832, 4611404543450677248, 9223090561878065152, 0]> : tensor<12xi64>) constant : !fir.array<12xi64>
49
+ ! CHECK: fir.global linkonce @_FortranAIeeeValueTable_8(dense<[0, 9219994337134247936, 9221120237041090560, -4503599627370496, -4616189618054758400, -9221120237041090560, -9223372036854775808, 0, 2251799813685248, 4607182418800017408, 9218868437227405312, 0]> : tensor<12xi64>) constant : !fir.array<12xi64>
50
+
0 commit comments