[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Lower / complex-part.f90
blob48f58a6fe28dbfb76f522cb814123b15803446f2
1 ! RUN: bbc %s -o - | tco | FileCheck %s
2 ! RUN: %flang -emit-llvm -S -mmlir -disable-external-name-interop %s -o - | FileCheck %s
4 COMPLEX c
5 c%RE = 3.14
6 CALL sub(c)
7 END
9 ! Verify that the offset in the struct does not regress from i32.
10 ! CHECK-LABEL: define void @_QQmain()
11 ! CHECK: getelementptr { float, float }, ptr %{{[0-9]+}}, i32 0, i32 0