xref: /llvm-project/flang/test/Lower/intrinsic-procedure-wrappers.f90 (revision f52c64b115a872cd059549613c06e90e9954dc79)
1! RUN: bbc -outline-intrinsics %s -o - | tco --disable-llvm --mlir-print-ir-after=fir-to-llvm-ir 2>&1 | FileCheck %s
2
3! Test properties of intrinsic function wrappers
4
5! Test that intrinsic wrappers have internal linkage
6function foo(x)
7  foo = acos(x)
8end function
9
10! CHECK: llvm.func internal @fir.acos.contract.f32.f32
11