diff options
Diffstat (limited to 'libgfortran/generated/matmul_r16.c')
-rw-r--r-- | libgfortran/generated/matmul_r16.c | 35 |
1 files changed, 15 insertions, 20 deletions
diff --git a/libgfortran/generated/matmul_r16.c b/libgfortran/generated/matmul_r16.c index fcef45b9905..fc2b37b48c1 100644 --- a/libgfortran/generated/matmul_r16.c +++ b/libgfortran/generated/matmul_r16.c @@ -290,6 +290,7 @@ matmul_r16_avx (gfc_array_r16 * const restrict retarray, 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_REAL_16 *t1; a = abase; b = bbase; @@ -316,10 +317,7 @@ matmul_r16_avx (gfc_array_r16 * const restrict retarray, if (t1_dim > 65536) t1_dim = 65536; -#pragma GCC diagnostic push -#pragma GCC diagnostic ignored "-Wvla" - GFC_REAL_16 t1[t1_dim]; /* was [256][256] */ -#pragma GCC diagnostic pop + t1 = malloc (t1_dim * sizeof(GFC_REAL_16)); /* Empty c first. */ for (j=1; j<=n; j++) @@ -535,6 +533,7 @@ matmul_r16_avx (gfc_array_r16 * const restrict retarray, } } } + free(t1); return; } else if (rxstride == 1 && aystride == 1 && bxstride == 1) @@ -843,6 +842,7 @@ matmul_r16_avx2 (gfc_array_r16 * const restrict retarray, 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_REAL_16 *t1; a = abase; b = bbase; @@ -869,10 +869,7 @@ matmul_r16_avx2 (gfc_array_r16 * const restrict retarray, if (t1_dim > 65536) t1_dim = 65536; -#pragma GCC diagnostic push -#pragma GCC diagnostic ignored "-Wvla" - GFC_REAL_16 t1[t1_dim]; /* was [256][256] */ -#pragma GCC diagnostic pop + t1 = malloc (t1_dim * sizeof(GFC_REAL_16)); /* Empty c first. */ for (j=1; j<=n; j++) @@ -1088,6 +1085,7 @@ matmul_r16_avx2 (gfc_array_r16 * const restrict retarray, } } } + free(t1); return; } else if (rxstride == 1 && aystride == 1 && bxstride == 1) @@ -1396,6 +1394,7 @@ matmul_r16_avx512f (gfc_array_r16 * const restrict retarray, 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_REAL_16 *t1; a = abase; b = bbase; @@ -1422,10 +1421,7 @@ matmul_r16_avx512f (gfc_array_r16 * const restrict retarray, if (t1_dim > 65536) t1_dim = 65536; -#pragma GCC diagnostic push -#pragma GCC diagnostic ignored "-Wvla" - GFC_REAL_16 t1[t1_dim]; /* was [256][256] */ -#pragma GCC diagnostic pop + t1 = malloc (t1_dim * sizeof(GFC_REAL_16)); /* Empty c first. */ for (j=1; j<=n; j++) @@ -1641,6 +1637,7 @@ matmul_r16_avx512f (gfc_array_r16 * const restrict retarray, } } } + free(t1); return; } else if (rxstride == 1 && aystride == 1 && bxstride == 1) @@ -1945,6 +1942,7 @@ matmul_r16_vanilla (gfc_array_r16 * const restrict retarray, 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_REAL_16 *t1; a = abase; b = bbase; @@ -1971,10 +1969,7 @@ matmul_r16_vanilla (gfc_array_r16 * const restrict retarray, if (t1_dim > 65536) t1_dim = 65536; -#pragma GCC diagnostic push -#pragma GCC diagnostic ignored "-Wvla" - GFC_REAL_16 t1[t1_dim]; /* was [256][256] */ -#pragma GCC diagnostic pop + t1 = malloc (t1_dim * sizeof(GFC_REAL_16)); /* Empty c first. */ for (j=1; j<=n; j++) @@ -2190,6 +2185,7 @@ matmul_r16_vanilla (gfc_array_r16 * const restrict retarray, } } } + free(t1); return; } else if (rxstride == 1 && aystride == 1 && bxstride == 1) @@ -2552,6 +2548,7 @@ matmul_r16 (gfc_array_r16 * const restrict retarray, 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_REAL_16 *t1; a = abase; b = bbase; @@ -2578,10 +2575,7 @@ matmul_r16 (gfc_array_r16 * const restrict retarray, if (t1_dim > 65536) t1_dim = 65536; -#pragma GCC diagnostic push -#pragma GCC diagnostic ignored "-Wvla" - GFC_REAL_16 t1[t1_dim]; /* was [256][256] */ -#pragma GCC diagnostic pop + t1 = malloc (t1_dim * sizeof(GFC_REAL_16)); /* Empty c first. */ for (j=1; j<=n; j++) @@ -2797,6 +2791,7 @@ matmul_r16 (gfc_array_r16 * const restrict retarray, } } } + free(t1); return; } else if (rxstride == 1 && aystride == 1 && bxstride == 1) |