1 ! RUN: bbc -emit-fir %s -o - | FileCheck %s --check-prefixes="CHECK,PRECISE"
2 ! RUN: bbc --math-runtime=precise -emit-fir %s -o - | FileCheck %s --check-prefixes="PRECISE"
3 ! RUN: bbc --force-mlir-complex -emit-fir %s -o - | FileCheck %s --check-prefixes="FAST"
4 ! RUN: %flang_fc1 -emit-fir %s -o - | FileCheck %s --check-prefixes="CHECK,PRECISE"
5 ! RUN: %flang_fc1 -fapprox-func -emit-fir %s -o - | FileCheck %s --check-prefixes="CHECK,FAST"
6 ! RUN: %flang_fc1 -emit-fir -mllvm --math-runtime=precise %s -o - | FileCheck %s --check-prefixes="…
7 ! RUN: %flang_fc1 -emit-fir -mllvm --force-mlir-complex %s -o - | FileCheck %s --check-prefixes="FA…
11 ! CHECK-LABEL: pow_r4_i4
12 subroutine pow_r4_i4(x, y, z)  argument
14   integer :: y  local
15   z = x ** y
19 ! CHECK-LABEL: pow_r4_r4
20 subroutine pow_r4_r4(x, y, z)  argument
21   real :: x, z, y  local
22   z = x ** y
26 ! CHECK-LABEL: pow_r4_i8
27 subroutine pow_r4_i8(x, y, z)  argument
29   integer(8) :: y  local
30   z = x ** y
34 ! CHECK-LABEL: pow_r8_i4
35 subroutine pow_r8_i4(x, y, z)  argument
37   integer :: y  local
38   z = x ** y
42 ! CHECK-LABEL: pow_r8_i8
43 subroutine pow_r8_i8(x, y, z)  argument
45   integer(8) :: y  local
46   z = x ** y
50 ! CHECK-LABEL: pow_r8_r8
51 subroutine pow_r8_r8(x, y, z)  argument
52   real(8) :: x, z, y  local
53   z = x ** y
57 ! CHECK-LABEL: pow_r4_r8
58 subroutine pow_r4_r8(x, y, z)  argument
60   real(8) :: z, y  local
61   z = x ** y
62   ! CHECK: %{{.*}} = fir.convert %{{.*}} : (f32) -> f64
66 ! CHECK-LABEL: pow_i1_i1
67 subroutine pow_i1_i1(x, y, z)  argument
68   integer(1) :: x, y, z  local
69   z = x ** y
73 ! CHECK-LABEL: pow_i2_i2
74 subroutine pow_i2_i2(x, y, z)  argument
75   integer(2) :: x, y, z  local
76   z = x ** y
80 ! CHECK-LABEL: pow_i4_i4
81 subroutine pow_i4_i4(x, y, z)  argument
82   integer(4) :: x, y, z  local
83   z = x ** y
87 ! CHECK-LABEL: pow_i8_i8
88 subroutine pow_i8_i8(x, y, z)  argument
89   integer(8) :: x, y, z  local
90   z = x ** y
94 ! CHECK-LABEL: pow_c4_i4
95 subroutine pow_c4_i4(x, y, z)  argument
97   integer :: y  local
98   z = x ** y
102 ! CHECK-LABEL: pow_c4_i8
103 subroutine pow_c4_i8(x, y, z)  argument
105   integer(8) :: y  local
106   z = x ** y
110 ! CHECK-LABEL: pow_c8_i4
111 subroutine pow_c8_i4(x, y, z)  argument
113   integer :: y  local
114   z = x ** y
118 ! CHECK-LABEL: pow_c8_i8
119 subroutine pow_c8_i8(x, y, z)  argument
121   integer(8) :: y  local
122   z = x ** y
126 ! CHECK-LABEL: pow_c4_c4
127 subroutine pow_c4_c4(x, y, z)  argument
128   complex :: x, y, z  local
129   z = x ** y
134 ! CHECK-LABEL: pow_c8_c8
135 subroutine pow_c8_c8(x, y, z)  argument
136   complex(8) :: x, y, z  local
137   z = x ** y