70 lines · plain
1// Test lowering FIR to LLVM IR of fir.select{|_rank|_case}2 3// RUN: tco %s | FileCheck %s4// RUN: %flang_fc1 -emit-llvm %s -o - | FileCheck %s5 6// CHECK-LABEL: @f7func.func @f(%a : i32) -> i32 {8 %1 = arith.constant 1 : i329 %2 = arith.constant 42 : i3210// CHECK: switch i64 %{{.*}}, label %{{.*}} [11// CHECK: i64 1, label %{{.*}}12// CHECK: ]13 fir.select %a : i32 [1, ^bb2(%1:i32), unit, ^bb3(%2:i32)]14^bb2(%3 : i32) :15 return %3 : i3216^bb3(%4 : i32) :17 %5 = arith.addi %4, %4 : i3218 // CHECK: ret i3219 return %5 : i32 20}21 22// CHECK-LABEL: @g23func.func @g(%a : i32) -> i32 {24 %1 = arith.constant 1 : i3225 %2 = arith.constant 42 : i3226 27// CHECK: switch i64 %{{.*}}, label %{{.*}} [28// CHECK: i64 1, label %{{.*}}29// CHECK: i64 -1, label %{{.*}}30// CHECK: ]31 fir.select_rank %a : i32 [1, ^bb2(%1:i32), -1, ^bb4, unit, ^bb3(%2:i32)]32^bb2(%3 : i32) :33 return %3 : i3234^bb3(%4 : i32) :35 %5 = arith.addi %4, %4 : i3236 return %5 : i32 37^bb4:38 // CHECK: ret i3239 return %a : i3240}41 42// CHECK-LABEL: @h43func.func @h(%a : i32) -> i32 {44 %1 = arith.constant 1 : i3245 %2 = arith.constant 42 : i3246 %b1 = arith.constant 4 : i3247 %b2 = arith.constant 14 : i3248 %b3 = arith.constant 82 : i3249 %b4 = arith.constant 96 : i3250 // CHECK-DAG: icmp eq i32 %{{.*}}, 151 // CHECK-DAG: icmp sle i32 4, %{{.*}}52 // CHECK-DAG: icmp sle i32 %{{.*}}, 1453 // CHECK-DAG: icmp sle i32 82, %{{.*}}54 // CHECK-DAG: icmp sle i32 %{{.*}}, 9655 fir.select_case %a : i32 [#fir.point, %1, ^bb2(%1:i32), #fir.lower, %b1, ^bb4, #fir.upper, %b2, ^bb6, #fir.interval, %b3, %b4, ^bb5, unit, ^bb3(%2:i32)]56^bb2(%3 : i32) :57 return %3 : i3258^bb3(%4 : i32) :59 %5 = arith.addi %4, %4 : i3260 cf.br ^bb2(%5 : i32) 61^bb4:62 return %a : i3263^bb5:64 return %1 : i3265^bb6:66 %x = arith.addi %b4, %b3 : i3267 // CHECK: ret i3268 return %x : i3269}70