f13, f14, f23, f24, f33, f34, f43, f44;
index_type i, j, l, ii, jj, ll;
index_type isec, jsec, lsec, uisec, ujsec, ulsec;
+ GFC_COMPLEX_8 *t1;
a = abase;
b = bbase;
if (t1_dim > 65536)
t1_dim = 65536;
-#pragma GCC diagnostic push
-#pragma GCC diagnostic ignored "-Wvla"
- GFC_COMPLEX_8 t1[t1_dim]; /* was [256][256] */
-#pragma GCC diagnostic pop
+ t1 = malloc (t1_dim * sizeof(GFC_COMPLEX_8));
/* Empty c first. */
for (j=1; j<=n; j++)
}
}
}
+ free(t1);
return;
}
else if (rxstride == 1 && aystride == 1 && bxstride == 1)
f13, f14, f23, f24, f33, f34, f43, f44;
index_type i, j, l, ii, jj, ll;
index_type isec, jsec, lsec, uisec, ujsec, ulsec;
+ GFC_COMPLEX_8 *t1;
a = abase;
b = bbase;
if (t1_dim > 65536)
t1_dim = 65536;
-#pragma GCC diagnostic push
-#pragma GCC diagnostic ignored "-Wvla"
- GFC_COMPLEX_8 t1[t1_dim]; /* was [256][256] */
-#pragma GCC diagnostic pop
+ t1 = malloc (t1_dim * sizeof(GFC_COMPLEX_8));
/* Empty c first. */
for (j=1; j<=n; j++)
}
}
}
+ free(t1);
return;
}
else if (rxstride == 1 && aystride == 1 && bxstride == 1)
f13, f14, f23, f24, f33, f34, f43, f44;
index_type i, j, l, ii, jj, ll;
index_type isec, jsec, lsec, uisec, ujsec, ulsec;
+ GFC_COMPLEX_8 *t1;
a = abase;
b = bbase;
if (t1_dim > 65536)
t1_dim = 65536;
-#pragma GCC diagnostic push
-#pragma GCC diagnostic ignored "-Wvla"
- GFC_COMPLEX_8 t1[t1_dim]; /* was [256][256] */
-#pragma GCC diagnostic pop
+ t1 = malloc (t1_dim * sizeof(GFC_COMPLEX_8));
/* Empty c first. */
for (j=1; j<=n; j++)
}
}
}
+ free(t1);
return;
}
else if (rxstride == 1 && aystride == 1 && bxstride == 1)
f13, f14, f23, f24, f33, f34, f43, f44;
index_type i, j, l, ii, jj, ll;
index_type isec, jsec, lsec, uisec, ujsec, ulsec;
+ GFC_COMPLEX_8 *t1;
a = abase;
b = bbase;
if (t1_dim > 65536)
t1_dim = 65536;
-#pragma GCC diagnostic push
-#pragma GCC diagnostic ignored "-Wvla"
- GFC_COMPLEX_8 t1[t1_dim]; /* was [256][256] */
-#pragma GCC diagnostic pop
+ t1 = malloc (t1_dim * sizeof(GFC_COMPLEX_8));
/* Empty c first. */
for (j=1; j<=n; j++)
}
}
}
+ free(t1);
return;
}
else if (rxstride == 1 && aystride == 1 && bxstride == 1)
f13, f14, f23, f24, f33, f34, f43, f44;
index_type i, j, l, ii, jj, ll;
index_type isec, jsec, lsec, uisec, ujsec, ulsec;
+ GFC_COMPLEX_8 *t1;
a = abase;
b = bbase;
if (t1_dim > 65536)
t1_dim = 65536;
-#pragma GCC diagnostic push
-#pragma GCC diagnostic ignored "-Wvla"
- GFC_COMPLEX_8 t1[t1_dim]; /* was [256][256] */
-#pragma GCC diagnostic pop
+ t1 = malloc (t1_dim * sizeof(GFC_COMPLEX_8));
/* Empty c first. */
for (j=1; j<=n; j++)
}
}
}
+ free(t1);
return;
}
else if (rxstride == 1 && aystride == 1 && bxstride == 1)