35 lines · plain
1// Test COMPLEX(10) passing and returning on X862// RUN: fir-opt --target-rewrite="target=x86_64-unknown-linux-gnu" %s | FileCheck %s --check-prefix=AMD643// RUN: tco -target="x86_64-unknown-linux-gnu" %s | FileCheck %s --check-prefix=AMD64_LLVM4 5module attributes {fir.defaultkind = "a1c4d8i4l4r4", fir.kindmap = "", llvm.data_layout = "e-m:e-p270:32:32-p271:32:32-p272:64:64-i64:64-i128:128-f80:128-n8:16:32:64-S128", llvm.target_triple = "x86_64-unknown-linux-gnu"} {6 7func.func @returncomplex10() -> complex<f80> {8 %1 = fir.zero_bits complex<f80>9 return %1 : complex<f80>10}11// AMD64-LABEL: func.func @returncomplex10() -> tuple<f80, f80> {12// AMD64: %[[VAL_0:.*]] = fir.zero_bits complex<f80>13// AMD64: %[[VAL_1:.*]] = fir.alloca tuple<f80, f80>14// AMD64: %[[VAL_2:.*]] = fir.convert %[[VAL_1]] : (!fir.ref<tuple<f80, f80>>) -> !fir.ref<complex<f80>>15// AMD64: fir.store %[[VAL_0]] to %[[VAL_2]] : !fir.ref<complex<f80>>16// AMD64: %[[VAL_3:.*]] = fir.load %[[VAL_1]] : !fir.ref<tuple<f80, f80>>17// AMD64: return %[[VAL_3]] : tuple<f80, f80>18 19// AMD64_LLVM: define { x86_fp80, x86_fp80 } @returncomplex10()20 21func.func @takecomplex10(%z: complex<f80>) {22 %0 = fir.alloca complex<f80>23 fir.store %z to %0 : !fir.ref<complex<f80>>24 return25}26// AMD64-LABEL: func.func @takecomplex10(27// AMD64-SAME: %[[VAL_0:.*]]: !fir.ref<tuple<f80, f80>> {llvm.align = 16 : i32, llvm.byval = tuple<f80, f80>}) {28// AMD64: %[[VAL_1:.*]] = fir.convert %[[VAL_0]] : (!fir.ref<tuple<f80, f80>>) -> !fir.ref<complex<f80>>29// AMD64: %[[VAL_2:.*]] = fir.load %[[VAL_1]] : !fir.ref<complex<f80>>30// AMD64: %[[VAL_3:.*]] = fir.alloca complex<f80>31// AMD64: fir.store %[[VAL_2]] to %[[VAL_3]] : !fir.ref<complex<f80>>32 33// AMD64_LLVM: define void @takecomplex10(ptr noalias byval({ x86_fp80, x86_fp80 }) align 16 captures(none) %0)34}35