37 lines · plain
1! REQUIRES: amdgpu-registered-target2! RUN: %flang_fc1 -triple amdgcn-amd-amdhsa -emit-fir %s -o - | FileCheck %s3 4! CHECK-LABEL: func @_QPcabsf_test(5! CHECK: complex.abs6! CHECK-NOT: fir.call @cabsf7subroutine cabsf_test(a, b)8 complex :: a9 real :: b10 b = abs(a)11end subroutine12 13! CHECK-LABEL: func @_QPcexpf_test(14! CHECK: complex.exp15! CHECK-NOT: fir.call @cexpf16subroutine cexpf_test(a, b)17 complex :: a, b18 b = exp(a)19end subroutine20 21! CHECK-LABEL: func @_QPpow_test(22! CHECK: complex.pow23! CHECK-NOT: fir.call @_FortranAcpowi24subroutine pow_test(a, b, c)25 complex :: a, b, c26 a = b**c27end subroutine pow_test28 29! CHECK-LABEL: func @_QPpowi_test(30! CHECK: complex.powi31! CHECK-NOT: fir.call @_FortranAcpowi32subroutine powi_test(a, b, c)33 complex :: a, b34 integer :: i35 b = a ** i36end subroutine powi_test37