1 ; Test 64-bit square root.
3 ; RUN: llc < %s -mtriple=s390x-linux-gnu | FileCheck %s
5 declare double @llvm.sqrt.f64(double %f)
7 ; Check register square root.
8 define double @f1(double %val) {
10 ; CHECK: sqdbr %f0, %f0
12 %res = call double @llvm.sqrt.f64(double %val)
16 ; Check the low end of the SQDB range.
17 define double @f2(double *%ptr) {
19 ; CHECK: sqdb %f0, 0(%r2)
21 %val = load double *%ptr
22 %res = call double @llvm.sqrt.f64(double %val)
26 ; Check the high end of the aligned SQDB range.
27 define double @f3(double *%base) {
29 ; CHECK: sqdb %f0, 4088(%r2)
31 %ptr = getelementptr double *%base, i64 511
32 %val = load double *%ptr
33 %res = call double @llvm.sqrt.f64(double %val)
37 ; Check the next doubleword up, which needs separate address logic.
38 ; Other sequences besides this one would be OK.
39 define double @f4(double *%base) {
41 ; CHECK: aghi %r2, 4096
42 ; CHECK: sqdb %f0, 0(%r2)
44 %ptr = getelementptr double *%base, i64 512
45 %val = load double *%ptr
46 %res = call double @llvm.sqrt.f64(double %val)
50 ; Check negative displacements, which also need separate address logic.
51 define double @f5(double *%base) {
54 ; CHECK: sqdb %f0, 0(%r2)
56 %ptr = getelementptr double *%base, i64 -1
57 %val = load double *%ptr
58 %res = call double @llvm.sqrt.f64(double %val)
62 ; Check that SQDB allows indices.
63 define double @f6(double *%base, i64 %index) {
65 ; CHECK: sllg %r1, %r3, 3
66 ; CHECK: sqdb %f0, 800(%r1,%r2)
68 %ptr1 = getelementptr double *%base, i64 %index
69 %ptr2 = getelementptr double *%ptr1, i64 100
70 %val = load double *%ptr2
71 %res = call double @llvm.sqrt.f64(double %val)