|
23 | 23 | x4 = 3.3_4 |
24 | 24 | ! CHECK: hlfir.assign %cst{{[_0-9]*}} to %[[V_9]]#0 : f32, !fir.ref<f32> |
25 | 25 | y4 = -0.0_4 |
26 | | - ! CHECK: %[[V_12:[0-9]+]] = fir.load %[[V_3]]#0 : !fir.ref<f32> |
27 | | - ! CHECK: %[[V_13:[0-9]+]] = fir.load %[[V_9]]#0 : !fir.ref<f32> |
28 | | - ! CHECK: %[[V_14:[0-9]+]] = fir.convert %[[V_12]] : (f32) -> f32 |
29 | | - ! CHECK: %[[V_15:[0-9]+]] = fir.convert %[[V_13]] : (f32) -> f32 |
30 | | - ! CHECK: %[[V_16:[0-9]+]] = "llvm.intr.is.fpclass"(%[[V_15]]) <{bit = 516 : i32}> : (f32) -> i1 |
31 | | - ! CHECK: %[[V_17:[0-9]+]] = "llvm.intr.is.fpclass"(%[[V_14]]) <{bit = 144 : i32}> : (f32) -> i1 |
32 | | - ! CHECK: %[[V_18:[0-9]+]] = arith.andi %[[V_17]], %[[V_16]] : i1 |
33 | | - ! CHECK: %[[V_19:[0-9]+]] = fir.call @remainderf(%[[V_14]], %[[V_15]]) fastmath<contract> : (f32, f32) -> f32 |
| 26 | + ! CHECK-DAG: %[[V_12:[0-9]+]] = fir.load %[[V_3]]#0 : !fir.ref<f32> |
| 27 | + ! CHECK-DAG: %[[V_13:[0-9]+]] = fir.load %[[V_9]]#0 : !fir.ref<f32> |
| 28 | + ! CHECK-DAG: %[[V_14:[0-9]+]] = fir.convert %[[V_12]] : (f32) -> f32 |
| 29 | + ! CHECK-DAG: %[[V_15:[0-9]+]] = fir.convert %[[V_13]] : (f32) -> f32 |
| 30 | + ! CHECK-DAG: %[[V_16:[0-9]+]] = "llvm.intr.is.fpclass"(%[[V_15]]) <{bit = 516 : i32}> : (f32) -> i1 |
| 31 | + ! CHECK-DAG: %[[V_17:[0-9]+]] = "llvm.intr.is.fpclass"(%[[V_14]]) <{bit = 144 : i32}> : (f32) -> i1 |
| 32 | + ! CHECK-DAG: %[[V_18:[0-9]+]] = arith.andi %[[V_17]], %[[V_16]] : i1 |
| 33 | + ! CHECK-DAG: %[[V_19:[0-9]+]] = fir.call @remainderf(%[[V_14]], %[[V_15]]) fastmath<contract> : (f32, f32) -> f32 |
34 | 34 | ! CHECK: fir.if %[[V_18]] { |
35 | 35 | ! CHECK: %[[V_40:[0-9]+]] = fir.call @_FortranAMapException(%c16{{.*}}) fastmath<contract> : (i32) -> i32 |
36 | 36 | ! CHECK: %[[V_41:[0-9]+]] = fir.call @feraiseexcept(%[[V_40]]) fastmath<contract> : (i32) -> i32 |
|
44 | 44 | x2 = 3.0_2 |
45 | 45 | ! CHECK: hlfir.assign %cst{{[_0-9]*}} to %[[V_11]]#0 : f64, !fir.ref<f64> |
46 | 46 | y8 = 2.0_8 |
47 | | - ! CHECK: %[[V_21:[0-9]+]] = fir.load %[[V_1]]#0 : !fir.ref<f16> |
48 | | - ! CHECK: %[[V_22:[0-9]+]] = fir.load %[[V_11]]#0 : !fir.ref<f64> |
49 | | - ! CHECK: %[[V_23:[0-9]+]] = fir.convert %[[V_21]] : (f16) -> f64 |
50 | | - ! CHECK: %[[V_24:[0-9]+]] = fir.convert %[[V_22]] : (f64) -> f64 |
51 | | - ! CHECK: %[[V_25:[0-9]+]] = "llvm.intr.is.fpclass"(%[[V_24]]) <{bit = 516 : i32}> : (f64) -> i1 |
52 | | - ! CHECK: %[[V_26:[0-9]+]] = "llvm.intr.is.fpclass"(%[[V_23]]) <{bit = 144 : i32}> : (f64) -> i1 |
53 | | - ! CHECK: %[[V_27:[0-9]+]] = arith.andi %[[V_26]], %[[V_25]] : i1 |
54 | | - ! CHECK: %[[V_28:[0-9]+]] = fir.call @remainder(%[[V_23]], %[[V_24]]) fastmath<contract> : (f64, f64) -> f64 |
| 47 | + ! CHECK-DAG: %[[V_21:[0-9]+]] = fir.load %[[V_1]]#0 : !fir.ref<f16> |
| 48 | + ! CHECK-DAG: %[[V_22:[0-9]+]] = fir.load %[[V_11]]#0 : !fir.ref<f64> |
| 49 | + ! CHECK-DAG: %[[V_23:[0-9]+]] = fir.convert %[[V_21]] : (f16) -> f64 |
| 50 | + ! CHECK-DAG: %[[V_24:[0-9]+]] = fir.convert %[[V_22]] : (f64) -> f64 |
| 51 | + ! CHECK-DAG: %[[V_25:[0-9]+]] = "llvm.intr.is.fpclass"(%[[V_24]]) <{bit = 516 : i32}> : (f64) -> i1 |
| 52 | + ! CHECK-DAG: %[[V_26:[0-9]+]] = "llvm.intr.is.fpclass"(%[[V_23]]) <{bit = 144 : i32}> : (f64) -> i1 |
| 53 | + ! CHECK-DAG: %[[V_27:[0-9]+]] = arith.andi %[[V_26]], %[[V_25]] : i1 |
| 54 | + ! CHECK-DAG: %[[V_28:[0-9]+]] = fir.call @remainder(%[[V_23]], %[[V_24]]) fastmath<contract> : (f64, f64) -> f64 |
55 | 55 | ! CHECK: fir.if %[[V_27]] { |
56 | 56 | ! CHECK: %[[V_40:[0-9]+]] = fir.call @_FortranAMapException(%c16{{.*}}) fastmath<contract> : (i32) -> i32 |
57 | 57 | ! CHECK: %[[V_41:[0-9]+]] = fir.call @feraiseexcept(%[[V_40]]) fastmath<contract> : (i32) -> i32 |
|
66 | 66 | x8 = huge(x8) |
67 | 67 | ! CHECK: hlfir.assign %cst{{[_0-9]*}} to %[[V_7]]#0 : f16, !fir.ref<f16> |
68 | 68 | y2 = tiny(y2) |
69 | | - ! CHECK: %[[V_31:[0-9]+]] = fir.load %[[V_5]]#0 : !fir.ref<f64> |
70 | | - ! CHECK: %[[V_32:[0-9]+]] = fir.load %[[V_7]]#0 : !fir.ref<f16> |
71 | | - ! CHECK: %[[V_33:[0-9]+]] = fir.convert %[[V_31]] : (f64) -> f64 |
72 | | - ! CHECK: %[[V_34:[0-9]+]] = fir.convert %[[V_32]] : (f16) -> f64 |
73 | | - ! CHECK: %[[V_35:[0-9]+]] = "llvm.intr.is.fpclass"(%[[V_34]]) <{bit = 516 : i32}> : (f64) -> i1 |
74 | | - ! CHECK: %[[V_36:[0-9]+]] = "llvm.intr.is.fpclass"(%[[V_33]]) <{bit = 144 : i32}> : (f64) -> i1 |
75 | | - ! CHECK: %[[V_37:[0-9]+]] = arith.andi %[[V_36]], %[[V_35]] : i1 |
76 | | - ! CHECK: %[[V_38:[0-9]+]] = fir.call @remainder(%[[V_33]], %[[V_34]]) fastmath<contract> : (f64, f64) -> f64 |
| 69 | + ! CHECK-DAG: %[[V_31:[0-9]+]] = fir.load %[[V_5]]#0 : !fir.ref<f64> |
| 70 | + ! CHECK-DAG: %[[V_32:[0-9]+]] = fir.load %[[V_7]]#0 : !fir.ref<f16> |
| 71 | + ! CHECK-DAG: %[[V_33:[0-9]+]] = fir.convert %[[V_31]] : (f64) -> f64 |
| 72 | + ! CHECK-DAG: %[[V_34:[0-9]+]] = fir.convert %[[V_32]] : (f16) -> f64 |
| 73 | + ! CHECK-DAG: %[[V_35:[0-9]+]] = "llvm.intr.is.fpclass"(%[[V_34]]) <{bit = 516 : i32}> : (f64) -> i1 |
| 74 | + ! CHECK-DAG: %[[V_36:[0-9]+]] = "llvm.intr.is.fpclass"(%[[V_33]]) <{bit = 144 : i32}> : (f64) -> i1 |
| 75 | + ! CHECK-DAG: %[[V_37:[0-9]+]] = arith.andi %[[V_36]], %[[V_35]] : i1 |
| 76 | + ! CHECK-DAG: %[[V_38:[0-9]+]] = fir.call @remainder(%[[V_33]], %[[V_34]]) fastmath<contract> : (f64, f64) -> f64 |
77 | 77 | ! CHECK: fir.if %[[V_37]] { |
78 | 78 | ! CHECK: %[[V_40:[0-9]+]] = fir.call @_FortranAMapException(%c16{{.*}}) fastmath<contract> : (i32) -> i32 |
79 | 79 | ! CHECK: %[[V_41:[0-9]+]] = fir.call @feraiseexcept(%[[V_40]]) fastmath<contract> : (i32) -> i32 |
|
0 commit comments