This patch adds more lowering tests from the PFT to FIR. This patch is part of the upstreaming effort from fir-dev branch. Reviewed By: PeteSteinfeld Differential Revision: https://reviews.llvm.org/D122354 Co-authored-by: Jean Perier <jperier@nvidia.com> Co-authored-by: Eric Schweitz <eschweitz@nvidia.com>
12 lines
276 B
Fortran
12 lines
276 B
Fortran
! RUN: bbc %s -o - | tco | 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 }, { float, float }* %{{[0-9]+}}, i64 0, i32 0
|
|
|