forked from OSchip/llvm-project
13 lines
351 B
Fortran
13 lines
351 B
Fortran
! RUN: bbc %s -o - | tco | FileCheck %s
|
|
! RUN: %flang -emit-llvm -S -mmlir -disable-external-name-interop %s -o - | FileCheck %s
|
|
|
|
COMPLEX c
|
|
c%RE = 3.14
|
|
CALL sub(c)
|
|
END
|
|
|
|
! Verify that the offset in the struct does not regress from i32.
|
|
! CHECK-LABEL: define void @_QQmain()
|
|
! CHECK: getelementptr { float, float }, ptr %{{[0-9]+}}, i32 0, i32 0
|
|
|