diff -u ga-5.7.2/global/testing/elempatch.c.org ga-5.7.1/global/testing/elempatch.c
--- ga-5.7.2/global/testing/elempatch.c.org 2020-02-17 12:56:51.811130391 -0800
+++ ga-5.7.2/global/testing/elempatch.c 2020-02-17 14:39:55.394616825 -0800
@@ -154,8 +154,8 @@
#define OP_ABS 4
#define OP_ADD_CONST 5
#define OP_RECIP 6
-#define OP_STEP_MAX 7
-#define OP_STEP_BOUND_INFO 8
+/*#define OP_STEP_MAX 7 */
+/*#define OP_STEP_BOUND_INFO 8*/
#define MY_TYPE 2002
Integer _ga_lo[MAXDIM], _ga_hi[MAXDIM], _ga_work[MAXDIM];
@@ -1166,6 +1166,7 @@
}
NGA_Fill_patch (g_n, lo, hi, vresult);
}
+#if 0
break;
case OP_STEP_MAX:
if (me == 0)
@@ -1189,7 +1190,6 @@
aresultl = ((long)(GA_ABS(lval2)/GA_ABS(lval))) - resultl;
}
break;
-
case OP_STEP_BOUND_INFO:
if (me == 0)
printf ("Testing GA_Step_bound_info...");
@@ -1234,6 +1234,7 @@
GA_Error ("GA_step_bound_info wrong data type.", type);
}
}
+#endif
break;
default:
GA_Error ("test_function: wrong operation.", OP);
@@ -1443,6 +1444,7 @@
if (type == C_DCPL || type == C_SCPL) {
result = 0;
} else {
+#if 0
if (OP == OP_STEP_MAX) {
/* Step_max */
switch (type)
@@ -1555,6 +1557,7 @@
}
result = result | result2 | result3;
}
+#endif
}
}
if (me == 0)
@@ -1620,7 +1623,7 @@
/* op = 8;*/
- for (op = 0; op < 9; op++)
+ for (op = 0; op < 7; op++)
{
/*for (d = 1; d < 2; d++)*/
for (d = 1; d < 4; d++)