16 lines · plain
1!REQUIRES: x86-registered-target2!REQUIRES: flang-supports-f128-math3!RUN: %flang_fc1 -emit-llvm -triple x86_64-unknown-linux-gnu %s -o - | FileCheck %s4 5! Test ABI of indirect calls is properly implemented in the LLVM IR.6 7subroutine foo(func_ptr, z)8 interface9 complex(16) function func_ptr()10 end function11 end interface12 complex(16) :: z13 ! CHECK: call void %{{.*}}(ptr sret({ fp128, fp128 }) align 16 %{{.*}})14 z = func_ptr()15end subroutine16