@@ -32,14 +32,14 @@ end subroutine omp_sin_f64
32
32
subroutine omp_abs_f32 (x , y )
33
33
! $omp declare target
34
34
real :: x, y
35
- ! CHECK: call float @__ocml_fabs_f32 (float {{.*}})
35
+ ! CHECK: call contract float @llvm.fabs.f32 (float {{.*}})
36
36
y = abs (x)
37
37
end subroutine omp_abs_f32
38
38
39
39
subroutine omp_abs_f64 (x , y )
40
40
! $omp declare target
41
41
real (8 ) :: x, y
42
- ! CHECK: call double @__ocml_fabs_f64 (double {{.*}})
42
+ ! CHECK: call contract double @llvm.fabs.f64 (double {{.*}})
43
43
y = abs (x)
44
44
end subroutine omp_abs_f64
45
45
@@ -102,7 +102,7 @@ end subroutine omp_erf_f64
102
102
subroutine omp_exp_f32 (x , y )
103
103
! $omp declare target
104
104
real :: x, y
105
- ! CHECK: call float @__ocml_exp_f32 (float {{.*}})
105
+ ! CHECK: call contract float @llvm.exp.f32 (float {{.*}})
106
106
y = exp (x)
107
107
end subroutine omp_exp_f32
108
108
@@ -116,7 +116,7 @@ end subroutine omp_exp_f64
116
116
subroutine omp_log_f32 (x , y )
117
117
! $omp declare target
118
118
real :: x, y
119
- ! CHECK: call float @__ocml_log_f32 (float {{.*}})
119
+ ! CHECK: call contract float @llvm.log.f32 (float {{.*}})
120
120
y = log (x)
121
121
end subroutine omp_log_f32
122
122
@@ -144,14 +144,14 @@ end subroutine omp_log10_f64
144
144
subroutine omp_sqrt_f32 (x , y )
145
145
! $omp declare target
146
146
real :: x, y
147
- ! CHECK: call float @__ocml_sqrt_f32 (float {{.*}})
147
+ ! CHECK: call contract float @llvm.sqrt.f32 (float {{.*}})
148
148
y = sqrt (x)
149
149
end subroutine omp_sqrt_f32
150
150
151
151
subroutine omp_sqrt_f64 (x , y )
152
152
! $omp declare target
153
153
real (8 ) :: x, y
154
- ! CHECK: call double @__ocml_sqrt_f64 (double {{.*}})
154
+ ! CHECK: call contract double @llvm.sqrt.f64 (double {{.*}})
155
155
y = sqrt (x)
156
156
end subroutine omp_sqrt_f64
157
157
0 commit comments