flang/test/Fir/box-typecode.fir

   1 // RUN: tco %s | FileCheck %s
   2
   3 func.func @test_box_typecode(%a: !fir.class<none>) -> i32 {
   4   %0 = fir.box_typecode %a : (!fir.class<none>) -> i32
   5   return %0 : i32
   6 }
   7
   8 // CHECK-LABEL: @test_box_typecode(
   9 // CHECK-SAME: ptr %[[BOX:.*]])
  10 // CHECK: %[[GEP:.*]] = getelementptr { ptr, i{{.*}}, i{{.*}}, i{{.*}}, i{{.*}}, i{{.*}}, i{{.*}} }, ptr %[[BOX]], i32 0, i32 4
  11 // CHECK: %[[TYPE_CODE:.*]] = load i8, ptr %[[GEP]]
  12 // CHECK: %[[TYPE_CODE_CONV:.*]] = sext i8 %[[TYPE_CODE]] to i32
  13 // CHECK: ret i32 %[[TYPE_CODE_CONV]]