3845N/A/*
3845N/A * Copyright (c) 2012, Oracle and/or its affiliates. All rights reserved.
3845N/A * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
3845N/A *
3845N/A * This code is free software; you can redistribute it and/or modify it
3845N/A * under the terms of the GNU General Public License version 2 only, as
3845N/A * published by the Free Software Foundation.
3845N/A *
3845N/A * This code is distributed in the hope that it will be useful, but WITHOUT
3845N/A * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3845N/A * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3845N/A * version 2 for more details (a copy is included in the LICENSE file that
3845N/A * accompanied this code).
3845N/A *
3845N/A * You should have received a copy of the GNU General Public License version
3845N/A * 2 along with this work; if not, write to the Free Software Foundation,
3845N/A * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
3845N/A *
3845N/A * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
3845N/A * or visit www.oracle.com if you need additional information or have any
3845N/A * questions.
3845N/A *
3845N/A */
3845N/A
3845N/A/**
3845N/A * @test
3845N/A * @bug 7119644
3845N/A * @summary Increase superword's vector size up to 256 bits
3845N/A *
3845N/A * @run main/othervm/timeout=300 -Xbatch -XX:+IgnoreUnrecognizedVMOptions -XX:-TieredCompilation -XX:-OptimizeFill TestIntDoubleVect
3845N/A */
3845N/A
3845N/Apublic class TestIntDoubleVect {
3845N/A private static final int ARRLEN = 997;
3845N/A private static final int ITERS = 11000;
3845N/A private static final int OFFSET = 3;
3845N/A private static final int SCALE = 2;
3845N/A private static final int ALIGN_OFF = 8;
3845N/A private static final int UNALIGN_OFF = 5;
3845N/A
3845N/A public static void main(String args[]) {
3845N/A System.out.println("Testing Integer + Double vectors");
3845N/A int errn = test();
3845N/A if (errn > 0) {
3845N/A System.err.println("FAILED: " + errn + " errors");
3845N/A System.exit(97);
3845N/A }
3845N/A System.out.println("PASSED");
3845N/A }
3845N/A
3845N/A static int test() {
3845N/A int[] a1 = new int[ARRLEN];
3845N/A int[] a2 = new int[ARRLEN];
3845N/A double[] b1 = new double[ARRLEN];
3845N/A double[] b2 = new double[ARRLEN];
3845N/A System.out.println("Warmup");
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_ci(a1, b1);
3845N/A test_vi(a2, b2, (int)123, 103.);
3845N/A test_cp(a1, a2, b1, b2);
3845N/A test_ci_neg(a1, b1);
3845N/A test_vi_neg(a1, b1, (int)123, 103.);
3845N/A test_cp_neg(a1, a2, b1, b2);
3845N/A test_ci_oppos(a1, b1);
3845N/A test_vi_oppos(a1, b1, (int)123, 103.);
3845N/A test_cp_oppos(a1, a2, b1, b2);
3845N/A test_ci_aln(a1, b1);
3845N/A test_vi_aln(a1, b1, (int)123, 103.);
3845N/A test_cp_alndst(a1, a2, b1, b2);
3845N/A test_cp_alnsrc(a1, a2, b1, b2);
3845N/A test_ci_unaln(a1, b1);
3845N/A test_vi_unaln(a1, b1, (int)123, 103.);
3845N/A test_cp_unalndst(a1, a2, b1, b2);
3845N/A test_cp_unalnsrc(a1, a2, b1, b2);
3845N/A }
3845N/A // Initialize
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A a1[i] = -1;
3845N/A a2[i] = -1;
3845N/A b1[i] = -1.;
3845N/A b2[i] = -1.;
3845N/A }
3845N/A // Test and verify results
3845N/A System.out.println("Verification");
3845N/A int errn = 0;
3845N/A {
3845N/A test_ci(a1, b1);
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A errn += verify("test_ci: a1", i, a1[i], (int)-123);
3845N/A errn += verify("test_ci: b1", i, b1[i], -103.);
3845N/A }
3845N/A test_vi(a2, b2, (int)123, 103.);
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A errn += verify("test_vi: a2", i, a2[i], (int)123);
3845N/A errn += verify("test_vi: b2", i, b2[i], 103.);
3845N/A }
3845N/A test_cp(a1, a2, b1, b2);
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A errn += verify("test_cp: a1", i, a1[i], (int)123);
3845N/A errn += verify("test_cp: b1", i, b1[i], 103.);
3845N/A }
3845N/A
3845N/A // Reset for negative stride
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A a1[i] = -1;
3845N/A a2[i] = -1;
3845N/A b1[i] = -1.;
3845N/A b2[i] = -1.;
3845N/A }
3845N/A test_ci_neg(a1, b1);
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A errn += verify("test_ci_neg: a1", i, a1[i], (int)-123);
3845N/A errn += verify("test_ci_neg: b1", i, b1[i], -103.);
3845N/A }
3845N/A test_vi_neg(a2, b2, (int)123, 103.);
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A errn += verify("test_vi_neg: a2", i, a2[i], (int)123);
3845N/A errn += verify("test_vi_neg: b2", i, b2[i], 103.);
3845N/A }
3845N/A test_cp_neg(a1, a2, b1, b2);
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A errn += verify("test_cp_neg: a1", i, a1[i], (int)123);
3845N/A errn += verify("test_cp_neg: b1", i, b1[i], 103.);
3845N/A }
3845N/A
3845N/A // Reset for opposite stride
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A a1[i] = -1;
3845N/A a2[i] = -1;
3845N/A b1[i] = -1.;
3845N/A b2[i] = -1.;
3845N/A }
3845N/A test_ci_oppos(a1, b1);
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A errn += verify("test_ci_oppos: a1", i, a1[i], (int)-123);
3845N/A errn += verify("test_ci_oppos: b1", i, b1[i], -103.);
3845N/A }
3845N/A test_vi_oppos(a2, b2, (int)123, 103.);
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A errn += verify("test_vi_oppos: a2", i, a2[i], (int)123);
3845N/A errn += verify("test_vi_oppos: b2", i, b2[i], 103.);
3845N/A }
3845N/A test_cp_oppos(a1, a2, b1, b2);
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A errn += verify("test_cp_oppos: a1", i, a1[i], (int)123);
3845N/A errn += verify("test_cp_oppos: b1", i, b1[i], 103.);
3845N/A }
3845N/A
3845N/A // Reset for 2 arrays with relative aligned offset
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A a1[i] = -1;
3845N/A a2[i] = 123;
3845N/A b1[i] = -1.;
3845N/A b2[i] = 123.;
3845N/A }
3845N/A test_cp_alndst(a1, a2, b1, b2);
3845N/A for (int i=0; i<ALIGN_OFF; i++) {
3845N/A errn += verify("test_cp_alndst: a1", i, a1[i], (int)-1);
3845N/A errn += verify("test_cp_alndst: b1", i, b1[i], -1.);
3845N/A }
3845N/A for (int i=ALIGN_OFF; i<ARRLEN; i++) {
3845N/A errn += verify("test_cp_alndst: a1", i, a1[i], (int)123);
3845N/A errn += verify("test_cp_alndst: b1", i, b1[i], 123.);
3845N/A }
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A a2[i] = -123;
3845N/A b2[i] = -123.;
3845N/A }
3845N/A test_cp_alnsrc(a1, a2, b1, b2);
3845N/A for (int i=0; i<ARRLEN-ALIGN_OFF; i++) {
3845N/A errn += verify("test_cp_alnsrc: a1", i, a1[i], (int)-123);
3845N/A errn += verify("test_cp_alnsrc: b1", i, b1[i], -123.);
3845N/A }
3845N/A for (int i=ARRLEN-ALIGN_OFF; i<ARRLEN; i++) {
3845N/A errn += verify("test_cp_alnsrc: a1", i, a1[i], (int)123);
3845N/A errn += verify("test_cp_alnsrc: b1", i, b1[i], 123.);
3845N/A }
3845N/A
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A a1[i] = -1;
3845N/A b1[i] = -1.;
3845N/A }
3845N/A test_ci_aln(a1, b1);
3845N/A for (int i=0; i<ALIGN_OFF; i++) {
3845N/A errn += verify("test_ci_aln: a1", i, a1[i], (int)-1);
3845N/A }
3845N/A for (int i=ALIGN_OFF; i<ARRLEN; i++) {
3845N/A errn += verify("test_ci_aln: a1", i, a1[i], (int)-123);
3845N/A }
3845N/A for (int i=0; i<ARRLEN-ALIGN_OFF; i++) {
3845N/A errn += verify("test_ci_aln: b1", i, b1[i], -103.);
3845N/A }
3845N/A for (int i=ARRLEN-ALIGN_OFF; i<ARRLEN; i++) {
3845N/A errn += verify("test_ci_aln: b1", i, b1[i], -1.);
3845N/A }
3845N/A
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A a1[i] = -1;
3845N/A b1[i] = -1.;
3845N/A }
3845N/A test_vi_aln(a1, b1, (int)123, 103.);
3845N/A for (int i=0; i<ARRLEN-ALIGN_OFF; i++) {
3845N/A errn += verify("test_vi_aln: a1", i, a1[i], (int)123);
3845N/A }
3845N/A for (int i=ARRLEN-ALIGN_OFF; i<ARRLEN; i++) {
3845N/A errn += verify("test_vi_aln: a1", i, a1[i], (int)-1);
3845N/A }
3845N/A for (int i=0; i<ALIGN_OFF; i++) {
3845N/A errn += verify("test_vi_aln: b1", i, b1[i], -1.);
3845N/A }
3845N/A for (int i=ALIGN_OFF; i<ARRLEN; i++) {
3845N/A errn += verify("test_vi_aln: b1", i, b1[i], 103.);
3845N/A }
3845N/A
3845N/A // Reset for 2 arrays with relative unaligned offset
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A a1[i] = -1;
3845N/A a2[i] = 123;
3845N/A b1[i] = -1.;
3845N/A b2[i] = 123.;
3845N/A }
3845N/A test_cp_unalndst(a1, a2, b1, b2);
3845N/A for (int i=0; i<UNALIGN_OFF; i++) {
3845N/A errn += verify("test_cp_unalndst: a1", i, a1[i], (int)-1);
3845N/A errn += verify("test_cp_unalndst: b1", i, b1[i], -1.);
3845N/A }
3845N/A for (int i=UNALIGN_OFF; i<ARRLEN; i++) {
3845N/A errn += verify("test_cp_unalndst: a1", i, a1[i], (int)123);
3845N/A errn += verify("test_cp_unalndst: b1", i, b1[i], 123.);
3845N/A }
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A a2[i] = -123;
3845N/A b2[i] = -123.;
3845N/A }
3845N/A test_cp_unalnsrc(a1, a2, b1, b2);
3845N/A for (int i=0; i<ARRLEN-UNALIGN_OFF; i++) {
3845N/A errn += verify("test_cp_unalnsrc: a1", i, a1[i], (int)-123);
3845N/A errn += verify("test_cp_unalnsrc: b1", i, b1[i], -123.);
3845N/A }
3845N/A for (int i=ARRLEN-UNALIGN_OFF; i<ARRLEN; i++) {
3845N/A errn += verify("test_cp_unalnsrc: a1", i, a1[i], (int)123);
3845N/A errn += verify("test_cp_unalnsrc: b1", i, b1[i], 123.);
3845N/A }
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A a1[i] = -1;
3845N/A b1[i] = -1;
3845N/A }
3845N/A test_ci_unaln(a1, b1);
3845N/A for (int i=0; i<UNALIGN_OFF; i++) {
3845N/A errn += verify("test_ci_unaln: a1", i, a1[i], (int)-1);
3845N/A }
3845N/A for (int i=UNALIGN_OFF; i<ARRLEN; i++) {
3845N/A errn += verify("test_ci_unaln: a1", i, a1[i], (int)-123);
3845N/A }
3845N/A for (int i=0; i<ARRLEN-UNALIGN_OFF; i++) {
3845N/A errn += verify("test_ci_unaln: b1", i, b1[i], -103.);
3845N/A }
3845N/A for (int i=ARRLEN-UNALIGN_OFF; i<ARRLEN; i++) {
3845N/A errn += verify("test_ci_unaln: b1", i, b1[i], -1.);
3845N/A }
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A a1[i] = -1;
3845N/A b1[i] = -1;
3845N/A }
3845N/A test_vi_unaln(a1, b1, (int)123, 103.);
3845N/A for (int i=0; i<ARRLEN-UNALIGN_OFF; i++) {
3845N/A errn += verify("test_vi_unaln: a1", i, a1[i], (int)123);
3845N/A }
3845N/A for (int i=ARRLEN-UNALIGN_OFF; i<ARRLEN; i++) {
3845N/A errn += verify("test_vi_unaln: a1", i, a1[i], (int)-1);
3845N/A }
3845N/A for (int i=0; i<UNALIGN_OFF; i++) {
3845N/A errn += verify("test_vi_unaln: b1", i, b1[i], -1.);
3845N/A }
3845N/A for (int i=UNALIGN_OFF; i<ARRLEN; i++) {
3845N/A errn += verify("test_vi_unaln: b1", i, b1[i], 103.);
3845N/A }
3845N/A
3845N/A // Reset for aligned overlap initialization
3845N/A for (int i=0; i<ALIGN_OFF; i++) {
3845N/A a1[i] = (int)i;
3845N/A b1[i] = (double)i;
3845N/A }
3845N/A for (int i=ALIGN_OFF; i<ARRLEN; i++) {
3845N/A a1[i] = -1;
3845N/A b1[i] = -1.;
3845N/A }
3845N/A test_cp_alndst(a1, a1, b1, b1);
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A int v = i%ALIGN_OFF;
3845N/A errn += verify("test_cp_alndst_overlap: a1", i, a1[i], (int)v);
3845N/A errn += verify("test_cp_alndst_overlap: b1", i, b1[i], (double)v);
3845N/A }
3845N/A for (int i=0; i<ALIGN_OFF; i++) {
3845N/A a1[i+ALIGN_OFF] = -1;
3845N/A b1[i+ALIGN_OFF] = -1.;
3845N/A }
3845N/A test_cp_alnsrc(a1, a1, b1, b1);
3845N/A for (int i=0; i<ALIGN_OFF; i++) {
3845N/A errn += verify("test_cp_alnsrc_overlap: a1", i, a1[i], (int)-1);
3845N/A errn += verify("test_cp_alnsrc_overlap: b1", i, b1[i], -1.);
3845N/A }
3845N/A for (int i=ALIGN_OFF; i<ARRLEN; i++) {
3845N/A int v = i%ALIGN_OFF;
3845N/A errn += verify("test_cp_alnsrc_overlap: a1", i, a1[i], (int)v);
3845N/A errn += verify("test_cp_alnsrc_overlap: b1", i, b1[i], (double)v);
3845N/A }
3845N/A
3845N/A // Reset for unaligned overlap initialization
3845N/A for (int i=0; i<UNALIGN_OFF; i++) {
3845N/A a1[i] = (int)i;
3845N/A b1[i] = (double)i;
3845N/A }
3845N/A for (int i=UNALIGN_OFF; i<ARRLEN; i++) {
3845N/A a1[i] = -1;
3845N/A b1[i] = -1.;
3845N/A }
3845N/A test_cp_unalndst(a1, a1, b1, b1);
3845N/A for (int i=0; i<ARRLEN; i++) {
3845N/A int v = i%UNALIGN_OFF;
3845N/A errn += verify("test_cp_unalndst_overlap: a1", i, a1[i], (int)v);
3845N/A errn += verify("test_cp_unalndst_overlap: b1", i, b1[i], (double)v);
3845N/A }
3845N/A for (int i=0; i<UNALIGN_OFF; i++) {
3845N/A a1[i+UNALIGN_OFF] = -1;
3845N/A b1[i+UNALIGN_OFF] = -1.;
3845N/A }
3845N/A test_cp_unalnsrc(a1, a1, b1, b1);
3845N/A for (int i=0; i<UNALIGN_OFF; i++) {
3845N/A errn += verify("test_cp_unalnsrc_overlap: a1", i, a1[i], (int)-1);
3845N/A errn += verify("test_cp_unalnsrc_overlap: b1", i, b1[i], -1.);
3845N/A }
3845N/A for (int i=UNALIGN_OFF; i<ARRLEN; i++) {
3845N/A int v = i%UNALIGN_OFF;
3845N/A errn += verify("test_cp_unalnsrc_overlap: a1", i, a1[i], (int)v);
3845N/A errn += verify("test_cp_unalnsrc_overlap: b1", i, b1[i], (double)v);
3845N/A }
3845N/A
3845N/A }
3845N/A
3845N/A if (errn > 0)
3845N/A return errn;
3845N/A
3845N/A System.out.println("Time");
3845N/A long start, end;
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_ci(a1, b1);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_ci: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_vi(a2, b2, (int)123, 103.);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_vi: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_cp(a1, a2, b1, b2);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_cp: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_ci_neg(a1, b1);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_ci_neg: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_vi_neg(a1, b1, (int)123, 103.);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_vi_neg: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_cp_neg(a1, a2, b1, b2);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_cp_neg: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_ci_oppos(a1, b1);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_ci_oppos: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_vi_oppos(a1, b1, (int)123, 103.);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_vi_oppos: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_cp_oppos(a1, a2, b1, b2);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_cp_oppos: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_ci_aln(a1, b1);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_ci_aln: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_vi_aln(a1, b1, (int)123, 103.);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_vi_aln: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_cp_alndst(a1, a2, b1, b2);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_cp_alndst: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_cp_alnsrc(a1, a2, b1, b2);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_cp_alnsrc: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_ci_unaln(a1, b1);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_ci_unaln: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_vi_unaln(a1, b1, (int)123, 103.);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_vi_unaln: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_cp_unalndst(a1, a2, b1, b2);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_cp_unalndst: " + (end - start));
3845N/A start = System.currentTimeMillis();
3845N/A for (int i=0; i<ITERS; i++) {
3845N/A test_cp_unalnsrc(a1, a2, b1, b2);
3845N/A }
3845N/A end = System.currentTimeMillis();
3845N/A System.out.println("test_cp_unalnsrc: " + (end - start));
3845N/A return errn;
3845N/A }
3845N/A
3845N/A static void test_ci(int[] a, double[] b) {
3845N/A for (int i = 0; i < a.length; i+=1) {
3845N/A a[i] = -123;
3845N/A b[i] = -103.;
3845N/A }
3845N/A }
3845N/A static void test_vi(int[] a, double[] b, int c, double d) {
3845N/A for (int i = 0; i < a.length; i+=1) {
3845N/A a[i] = c;
3845N/A b[i] = d;
3845N/A }
3845N/A }
3845N/A static void test_cp(int[] a, int[] b, double[] c, double[] d) {
3845N/A for (int i = 0; i < a.length; i+=1) {
3845N/A a[i] = b[i];
3845N/A c[i] = d[i];
3845N/A }
3845N/A }
3845N/A static void test_ci_neg(int[] a, double[] b) {
3845N/A for (int i = a.length-1; i >= 0; i-=1) {
3845N/A a[i] = -123;
3845N/A b[i] = -103.;
3845N/A }
3845N/A }
3845N/A static void test_vi_neg(int[] a, double[] b, int c, double d) {
3845N/A for (int i = a.length-1; i >= 0; i-=1) {
3845N/A a[i] = c;
3845N/A b[i] = d;
3845N/A }
3845N/A }
3845N/A static void test_cp_neg(int[] a, int[] b, double[] c, double[] d) {
3845N/A for (int i = a.length-1; i >= 0; i-=1) {
3845N/A a[i] = b[i];
3845N/A c[i] = d[i];
3845N/A }
3845N/A }
3845N/A static void test_ci_oppos(int[] a, double[] b) {
3845N/A int limit = a.length-1;
3845N/A for (int i = 0; i < a.length; i+=1) {
3845N/A a[limit-i] = -123;
3845N/A b[i] = -103.;
3845N/A }
3845N/A }
3845N/A static void test_vi_oppos(int[] a, double[] b, int c, double d) {
3845N/A int limit = a.length-1;
3845N/A for (int i = a.length-1; i >= 0; i-=1) {
3845N/A a[i] = c;
3845N/A b[limit-i] = d;
3845N/A }
3845N/A }
3845N/A static void test_cp_oppos(int[] a, int[] b, double[] c, double[] d) {
3845N/A int limit = a.length-1;
3845N/A for (int i = 0; i < a.length; i+=1) {
3845N/A a[i] = b[limit-i];
3845N/A c[limit-i] = d[i];
3845N/A }
3845N/A }
3845N/A static void test_ci_aln(int[] a, double[] b) {
3845N/A for (int i = 0; i < a.length-ALIGN_OFF; i+=1) {
3845N/A a[i+ALIGN_OFF] = -123;
3845N/A b[i] = -103.;
3845N/A }
3845N/A }
3845N/A static void test_vi_aln(int[] a, double[] b, int c, double d) {
3845N/A for (int i = 0; i < a.length-ALIGN_OFF; i+=1) {
3845N/A a[i] = c;
3845N/A b[i+ALIGN_OFF] = d;
3845N/A }
3845N/A }
3845N/A static void test_cp_alndst(int[] a, int[] b, double[] c, double[] d) {
3845N/A for (int i = 0; i < a.length-ALIGN_OFF; i+=1) {
3845N/A a[i+ALIGN_OFF] = b[i];
3845N/A c[i+ALIGN_OFF] = d[i];
3845N/A }
3845N/A }
3845N/A static void test_cp_alnsrc(int[] a, int[] b, double[] c, double[] d) {
3845N/A for (int i = 0; i < a.length-ALIGN_OFF; i+=1) {
3845N/A a[i] = b[i+ALIGN_OFF];
3845N/A c[i] = d[i+ALIGN_OFF];
3845N/A }
3845N/A }
3845N/A static void test_ci_unaln(int[] a, double[] b) {
3845N/A for (int i = 0; i < a.length-UNALIGN_OFF; i+=1) {
3845N/A a[i+UNALIGN_OFF] = -123;
3845N/A b[i] = -103.;
3845N/A }
3845N/A }
3845N/A static void test_vi_unaln(int[] a, double[] b, int c, double d) {
3845N/A for (int i = 0; i < a.length-UNALIGN_OFF; i+=1) {
3845N/A a[i] = c;
3845N/A b[i+UNALIGN_OFF] = d;
3845N/A }
3845N/A }
3845N/A static void test_cp_unalndst(int[] a, int[] b, double[] c, double[] d) {
3845N/A for (int i = 0; i < a.length-UNALIGN_OFF; i+=1) {
3845N/A a[i+UNALIGN_OFF] = b[i];
3845N/A c[i+UNALIGN_OFF] = d[i];
3845N/A }
3845N/A }
3845N/A static void test_cp_unalnsrc(int[] a, int[] b, double[] c, double[] d) {
3845N/A for (int i = 0; i < a.length-UNALIGN_OFF; i+=1) {
3845N/A a[i] = b[i+UNALIGN_OFF];
3845N/A c[i] = d[i+UNALIGN_OFF];
3845N/A }
3845N/A }
3845N/A
3845N/A static int verify(String text, int i, int elem, int val) {
3845N/A if (elem != val) {
3845N/A System.err.println(text + "[" + i + "] = " + elem + " != " + val);
3845N/A return 1;
3845N/A }
3845N/A return 0;
3845N/A }
3845N/A static int verify(String text, int i, double elem, double val) {
3845N/A if (elem != val) {
3845N/A System.err.println(text + "[" + i + "] = " + elem + " != " + val);
3845N/A return 1;
3845N/A }
3845N/A return 0;
3845N/A }
3845N/A}