[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Fir / recursive-type.fir
blob3bfe29b60cc7fe02588bffcffd0966ecd1d253fb
1 // Test lowering FIR to LLVM IR for recursive types
2   
3 // RUN: fir-opt --fir-to-llvm-ir="target=x86_64-unknown-linux-gnu" %s | FileCheck %s
4 // RUN: fir-opt --fir-to-llvm-ir="target=aarch64-unknown-linux-gnu" %s | FileCheck %s
5 // RUN: fir-opt --fir-to-llvm-ir="target=i386-unknown-linux-gnu" %s | FileCheck %s
6 // RUN: fir-opt --fir-to-llvm-ir="target=powerpc64le-unknown-linux-gn" %s | FileCheck %s
8 !t1 = !fir.type<t1 {a1:!fir.ptr<!fir.type<t1>>}>
9 !t2 = !fir.type<t2 {b1:f32,b2:!fir.ptr<!fir.type<t2>>,b3:i32,b4:!fir.ptr<!fir.type<t2>>}>
10 !t3 = !fir.type<t3 {c1:!fir.ptr<!fir.type<t4>>}>
11 !t4 = !fir.type<t4 {d1:!fir.ptr<!fir.type<t3>>}>
13 // CHECK-LABEL: llvm.func @recursiveTypes
14 // CHECK-SAME: %{{.*}}: !llvm.struct<"[[T1:.*]]", (ptr<struct<"[[T1]]">>)>
15 // CHECK-SAME: %{{.*}}: !llvm.struct<"[[T2:.*]]", (f32, ptr<struct<"[[T2]]">>, i32, ptr<struct<"[[T2]]">>)>
16 // CHECK-SAME: %{{.*}}: !llvm.struct<"[[T3:.*]]", (ptr<struct<"[[T4:.*]]", (ptr<struct<"[[T3]]">>)>>)>, %{{.*}}: !llvm.struct<"[[T4]]", (ptr<struct<"[[T3]]", (ptr<struct<"[[T4]]">>)>>)>)
17 func.func @recursiveTypes(%a : !t1, %b : !t2, %c : !t3, %d : !t4) {
18   return