diff options
Diffstat (limited to 'libgfortran/generated')
54 files changed, 194 insertions, 106 deletions
diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c index 671684f..5a517c1 100644 --- a/libgfortran/generated/all_l4.c +++ b/libgfortran/generated/all_l4.c @@ -75,8 +75,10 @@ __all_l4 (gfc_array_l4 * retarray, gfc_array_l4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_LOGICAL_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_LOGICAL_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c index 3f418cc..a583963 100644 --- a/libgfortran/generated/all_l8.c +++ b/libgfortran/generated/all_l8.c @@ -75,8 +75,10 @@ __all_l8 (gfc_array_l8 * retarray, gfc_array_l8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_LOGICAL_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_LOGICAL_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/any_l4.c b/libgfortran/generated/any_l4.c index 64cd675..93beea7 100644 --- a/libgfortran/generated/any_l4.c +++ b/libgfortran/generated/any_l4.c @@ -75,8 +75,10 @@ __any_l4 (gfc_array_l4 * retarray, gfc_array_l4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_LOGICAL_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_LOGICAL_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/any_l8.c b/libgfortran/generated/any_l8.c index c9f418d..bc0ede8 100644 --- a/libgfortran/generated/any_l8.c +++ b/libgfortran/generated/any_l8.c @@ -75,8 +75,10 @@ __any_l8 (gfc_array_l8 * retarray, gfc_array_l8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_LOGICAL_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_LOGICAL_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/count_4_l4.c b/libgfortran/generated/count_4_l4.c index 626ebf9..9c33c2e 100644 --- a/libgfortran/generated/count_4_l4.c +++ b/libgfortran/generated/count_4_l4.c @@ -75,8 +75,10 @@ __count_4_l4 (gfc_array_i4 * retarray, gfc_array_l4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/count_4_l8.c b/libgfortran/generated/count_4_l8.c index 2db569a..288aa3a 100644 --- a/libgfortran/generated/count_4_l8.c +++ b/libgfortran/generated/count_4_l8.c @@ -75,8 +75,10 @@ __count_4_l8 (gfc_array_i4 * retarray, gfc_array_l8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/count_8_l4.c b/libgfortran/generated/count_8_l4.c index dadbc96..bf83d3e 100644 --- a/libgfortran/generated/count_8_l4.c +++ b/libgfortran/generated/count_8_l4.c @@ -75,8 +75,10 @@ __count_8_l4 (gfc_array_i8 * retarray, gfc_array_l4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/count_8_l8.c b/libgfortran/generated/count_8_l8.c index d453e01..ef05c6d 100644 --- a/libgfortran/generated/count_8_l8.c +++ b/libgfortran/generated/count_8_l8.c @@ -75,8 +75,10 @@ __count_8_l8 (gfc_array_i8 * retarray, gfc_array_l8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/matmul_c4.c b/libgfortran/generated/matmul_c4.c index fd265d8..19e4f23 100644 --- a/libgfortran/generated/matmul_c4.c +++ b/libgfortran/generated/matmul_c4.c @@ -86,7 +86,8 @@ __matmul_c4 (gfc_array_c4 * retarray, gfc_array_c4 * a, gfc_array_c4 * b) retarray->dim[1].stride = retarray->dim[0].ubound+1; } - retarray->data = internal_malloc (sizeof (GFC_COMPLEX_4) * size0 (retarray)); + retarray->data + = internal_malloc_size (sizeof (GFC_COMPLEX_4) * size0 (retarray)); retarray->base = 0; } @@ -199,4 +200,3 @@ __matmul_c4 (gfc_array_c4 * retarray, gfc_array_c4 * a, gfc_array_c4 * b) dest[x*rxstride + y*rystride] += abase[x*axstride + n*aystride] * bbase[n*bxstride + y*bystride]; } } - diff --git a/libgfortran/generated/matmul_c8.c b/libgfortran/generated/matmul_c8.c index bc51e4a..fb422cb 100644 --- a/libgfortran/generated/matmul_c8.c +++ b/libgfortran/generated/matmul_c8.c @@ -86,7 +86,8 @@ __matmul_c8 (gfc_array_c8 * retarray, gfc_array_c8 * a, gfc_array_c8 * b) retarray->dim[1].stride = retarray->dim[0].ubound+1; } - retarray->data = internal_malloc (sizeof (GFC_COMPLEX_8) * size0 (retarray)); + retarray->data + = internal_malloc_size (sizeof (GFC_COMPLEX_8) * size0 (retarray)); retarray->base = 0; } @@ -199,4 +200,3 @@ __matmul_c8 (gfc_array_c8 * retarray, gfc_array_c8 * a, gfc_array_c8 * b) dest[x*rxstride + y*rystride] += abase[x*axstride + n*aystride] * bbase[n*bxstride + y*bystride]; } } - diff --git a/libgfortran/generated/matmul_i4.c b/libgfortran/generated/matmul_i4.c index 7b8cfbd..e5f534a 100644 --- a/libgfortran/generated/matmul_i4.c +++ b/libgfortran/generated/matmul_i4.c @@ -86,7 +86,8 @@ __matmul_i4 (gfc_array_i4 * retarray, gfc_array_i4 * a, gfc_array_i4 * b) retarray->dim[1].stride = retarray->dim[0].ubound+1; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_4) * size0 (retarray)); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_4) * size0 (retarray)); retarray->base = 0; } @@ -199,4 +200,3 @@ __matmul_i4 (gfc_array_i4 * retarray, gfc_array_i4 * a, gfc_array_i4 * b) dest[x*rxstride + y*rystride] += abase[x*axstride + n*aystride] * bbase[n*bxstride + y*bystride]; } } - diff --git a/libgfortran/generated/matmul_i8.c b/libgfortran/generated/matmul_i8.c index c84c024..88bbf7a 100644 --- a/libgfortran/generated/matmul_i8.c +++ b/libgfortran/generated/matmul_i8.c @@ -86,7 +86,8 @@ __matmul_i8 (gfc_array_i8 * retarray, gfc_array_i8 * a, gfc_array_i8 * b) retarray->dim[1].stride = retarray->dim[0].ubound+1; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_8) * size0 (retarray)); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_8) * size0 (retarray)); retarray->base = 0; } @@ -199,4 +200,3 @@ __matmul_i8 (gfc_array_i8 * retarray, gfc_array_i8 * a, gfc_array_i8 * b) dest[x*rxstride + y*rystride] += abase[x*axstride + n*aystride] * bbase[n*bxstride + y*bystride]; } } - diff --git a/libgfortran/generated/matmul_l4.c b/libgfortran/generated/matmul_l4.c index 80e6482..1af2eb0 100644 --- a/libgfortran/generated/matmul_l4.c +++ b/libgfortran/generated/matmul_l4.c @@ -76,7 +76,8 @@ __matmul_l4 (gfc_array_l4 * retarray, gfc_array_l4 * a, gfc_array_l4 * b) retarray->dim[1].stride = retarray->dim[0].ubound+1; } - retarray->data = internal_malloc (sizeof (GFC_LOGICAL_4) * size0 (retarray)); + retarray->data + = internal_malloc_size (sizeof (GFC_LOGICAL_4) * size0 (retarray)); retarray->base = 0; } @@ -178,4 +179,3 @@ __matmul_l4 (gfc_array_l4 * retarray, gfc_array_l4 * a, gfc_array_l4 * b) dest += rystride - (rxstride * xcount); } } - diff --git a/libgfortran/generated/matmul_l8.c b/libgfortran/generated/matmul_l8.c index c842146..d6d85a1 100644 --- a/libgfortran/generated/matmul_l8.c +++ b/libgfortran/generated/matmul_l8.c @@ -76,7 +76,8 @@ __matmul_l8 (gfc_array_l8 * retarray, gfc_array_l4 * a, gfc_array_l4 * b) retarray->dim[1].stride = retarray->dim[0].ubound+1; } - retarray->data = internal_malloc (sizeof (GFC_LOGICAL_8) * size0 (retarray)); + retarray->data + = internal_malloc_size (sizeof (GFC_LOGICAL_8) * size0 (retarray)); retarray->base = 0; } @@ -178,4 +179,3 @@ __matmul_l8 (gfc_array_l8 * retarray, gfc_array_l4 * a, gfc_array_l4 * b) dest += rystride - (rxstride * xcount); } } - diff --git a/libgfortran/generated/matmul_r4.c b/libgfortran/generated/matmul_r4.c index 6896a2e..91417cc 100644 --- a/libgfortran/generated/matmul_r4.c +++ b/libgfortran/generated/matmul_r4.c @@ -86,7 +86,8 @@ __matmul_r4 (gfc_array_r4 * retarray, gfc_array_r4 * a, gfc_array_r4 * b) retarray->dim[1].stride = retarray->dim[0].ubound+1; } - retarray->data = internal_malloc (sizeof (GFC_REAL_4) * size0 (retarray)); + retarray->data + = internal_malloc_size (sizeof (GFC_REAL_4) * size0 (retarray)); retarray->base = 0; } @@ -199,4 +200,3 @@ __matmul_r4 (gfc_array_r4 * retarray, gfc_array_r4 * a, gfc_array_r4 * b) dest[x*rxstride + y*rystride] += abase[x*axstride + n*aystride] * bbase[n*bxstride + y*bystride]; } } - diff --git a/libgfortran/generated/matmul_r8.c b/libgfortran/generated/matmul_r8.c index f0fc1a6..2fc3fed 100644 --- a/libgfortran/generated/matmul_r8.c +++ b/libgfortran/generated/matmul_r8.c @@ -86,7 +86,8 @@ __matmul_r8 (gfc_array_r8 * retarray, gfc_array_r8 * a, gfc_array_r8 * b) retarray->dim[1].stride = retarray->dim[0].ubound+1; } - retarray->data = internal_malloc (sizeof (GFC_REAL_8) * size0 (retarray)); + retarray->data + = internal_malloc_size (sizeof (GFC_REAL_8) * size0 (retarray)); retarray->base = 0; } @@ -199,4 +200,3 @@ __matmul_r8 (gfc_array_r8 * retarray, gfc_array_r8 * a, gfc_array_r8 * b) dest[x*rxstride + y*rystride] += abase[x*axstride + n*aystride] * bbase[n*bxstride + y*bystride]; } } - diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c index f2a3718..2369e77 100644 --- a/libgfortran/generated/maxloc1_4_i4.c +++ b/libgfortran/generated/maxloc1_4_i4.c @@ -77,8 +77,10 @@ __maxloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c index 25a93ba..36860c2 100644 --- a/libgfortran/generated/maxloc1_4_i8.c +++ b/libgfortran/generated/maxloc1_4_i8.c @@ -77,8 +77,10 @@ __maxloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c index 5dbf0e6..6d550d5 100644 --- a/libgfortran/generated/maxloc1_4_r4.c +++ b/libgfortran/generated/maxloc1_4_r4.c @@ -77,8 +77,10 @@ __maxloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c index 90b8186..07a9eca 100644 --- a/libgfortran/generated/maxloc1_4_r8.c +++ b/libgfortran/generated/maxloc1_4_r8.c @@ -77,8 +77,10 @@ __maxloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c index a705e79..7914259 100644 --- a/libgfortran/generated/maxloc1_8_i4.c +++ b/libgfortran/generated/maxloc1_8_i4.c @@ -77,8 +77,10 @@ __maxloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c index 5edd7d4..46a7561 100644 --- a/libgfortran/generated/maxloc1_8_i8.c +++ b/libgfortran/generated/maxloc1_8_i8.c @@ -77,8 +77,10 @@ __maxloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c index 5476736..1ab1be8 100644 --- a/libgfortran/generated/maxloc1_8_r4.c +++ b/libgfortran/generated/maxloc1_8_r4.c @@ -77,8 +77,10 @@ __maxloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c index 0fba535..b221baa 100644 --- a/libgfortran/generated/maxloc1_8_r8.c +++ b/libgfortran/generated/maxloc1_8_r8.c @@ -77,8 +77,10 @@ __maxloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c index 90fc202..8d37dfe 100644 --- a/libgfortran/generated/maxval_i4.c +++ b/libgfortran/generated/maxval_i4.c @@ -76,8 +76,10 @@ __maxval_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c index 9746503..bdb33c9 100644 --- a/libgfortran/generated/maxval_i8.c +++ b/libgfortran/generated/maxval_i8.c @@ -76,8 +76,10 @@ __maxval_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c index de999ab..78e83dc 100644 --- a/libgfortran/generated/maxval_r4.c +++ b/libgfortran/generated/maxval_r4.c @@ -76,8 +76,10 @@ __maxval_r4 (gfc_array_r4 * retarray, gfc_array_r4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_REAL_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_REAL_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c index fa357b4..e3c7453 100644 --- a/libgfortran/generated/maxval_r8.c +++ b/libgfortran/generated/maxval_r8.c @@ -76,8 +76,10 @@ __maxval_r8 (gfc_array_r8 * retarray, gfc_array_r8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_REAL_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_REAL_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c index be9ae2e..ce73916 100644 --- a/libgfortran/generated/minloc1_4_i4.c +++ b/libgfortran/generated/minloc1_4_i4.c @@ -77,8 +77,10 @@ __minloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c index 2f17baa..55a249b 100644 --- a/libgfortran/generated/minloc1_4_i8.c +++ b/libgfortran/generated/minloc1_4_i8.c @@ -77,8 +77,10 @@ __minloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c index 7f3449f..50adeb3 100644 --- a/libgfortran/generated/minloc1_4_r4.c +++ b/libgfortran/generated/minloc1_4_r4.c @@ -77,8 +77,10 @@ __minloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c index 226d727..aafb578 100644 --- a/libgfortran/generated/minloc1_4_r8.c +++ b/libgfortran/generated/minloc1_4_r8.c @@ -77,8 +77,10 @@ __minloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c index 1d1c3d4..5c347dd 100644 --- a/libgfortran/generated/minloc1_8_i4.c +++ b/libgfortran/generated/minloc1_8_i4.c @@ -77,8 +77,10 @@ __minloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c index f7b46c1..c8811f3 100644 --- a/libgfortran/generated/minloc1_8_i8.c +++ b/libgfortran/generated/minloc1_8_i8.c @@ -77,8 +77,10 @@ __minloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c index d71d056..81ba167 100644 --- a/libgfortran/generated/minloc1_8_r4.c +++ b/libgfortran/generated/minloc1_8_r4.c @@ -77,8 +77,10 @@ __minloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c index 7de9a2e..684eab2 100644 --- a/libgfortran/generated/minloc1_8_r8.c +++ b/libgfortran/generated/minloc1_8_r8.c @@ -77,8 +77,10 @@ __minloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c index e2e6823..7846452 100644 --- a/libgfortran/generated/minval_i4.c +++ b/libgfortran/generated/minval_i4.c @@ -76,8 +76,10 @@ __minval_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c index 4b7bac6..deca048 100644 --- a/libgfortran/generated/minval_i8.c +++ b/libgfortran/generated/minval_i8.c @@ -76,8 +76,10 @@ __minval_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c index 8d4e490..8990d88 100644 --- a/libgfortran/generated/minval_r4.c +++ b/libgfortran/generated/minval_r4.c @@ -76,8 +76,10 @@ __minval_r4 (gfc_array_r4 * retarray, gfc_array_r4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_REAL_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_REAL_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c index 8300f74..285e90e 100644 --- a/libgfortran/generated/minval_r8.c +++ b/libgfortran/generated/minval_r8.c @@ -76,8 +76,10 @@ __minval_r8 (gfc_array_r8 * retarray, gfc_array_r8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_REAL_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_REAL_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c index c692951..0337ec6 100644 --- a/libgfortran/generated/product_c4.c +++ b/libgfortran/generated/product_c4.c @@ -75,8 +75,10 @@ __product_c4 (gfc_array_c4 * retarray, gfc_array_c4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_COMPLEX_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_COMPLEX_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c index 68a6785..22a26a8 100644 --- a/libgfortran/generated/product_c8.c +++ b/libgfortran/generated/product_c8.c @@ -75,8 +75,10 @@ __product_c8 (gfc_array_c8 * retarray, gfc_array_c8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_COMPLEX_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_COMPLEX_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c index 889d4c1..c50c07f 100644 --- a/libgfortran/generated/product_i4.c +++ b/libgfortran/generated/product_i4.c @@ -75,8 +75,10 @@ __product_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c index 74e0459..0f09a41 100644 --- a/libgfortran/generated/product_i8.c +++ b/libgfortran/generated/product_i8.c @@ -75,8 +75,10 @@ __product_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c index e18139d..f68a88a 100644 --- a/libgfortran/generated/product_r4.c +++ b/libgfortran/generated/product_r4.c @@ -75,8 +75,10 @@ __product_r4 (gfc_array_r4 * retarray, gfc_array_r4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_REAL_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_REAL_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c index ce29c1a..0936d18 100644 --- a/libgfortran/generated/product_r8.c +++ b/libgfortran/generated/product_r8.c @@ -75,8 +75,10 @@ __product_r8 (gfc_array_r8 * retarray, gfc_array_r8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_REAL_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_REAL_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c index 36e20e2..6507de8 100644 --- a/libgfortran/generated/sum_c4.c +++ b/libgfortran/generated/sum_c4.c @@ -75,8 +75,10 @@ __sum_c4 (gfc_array_c4 * retarray, gfc_array_c4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_COMPLEX_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_COMPLEX_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c index 971c597..bc2d045 100644 --- a/libgfortran/generated/sum_c8.c +++ b/libgfortran/generated/sum_c8.c @@ -75,8 +75,10 @@ __sum_c8 (gfc_array_c8 * retarray, gfc_array_c8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_COMPLEX_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_COMPLEX_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c index 628a077..aac7f48 100644 --- a/libgfortran/generated/sum_i4.c +++ b/libgfortran/generated/sum_i4.c @@ -75,8 +75,10 @@ __sum_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c index 536719d..e9a539d 100644 --- a/libgfortran/generated/sum_i8.c +++ b/libgfortran/generated/sum_i8.c @@ -75,8 +75,10 @@ __sum_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_INTEGER_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_INTEGER_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c index 611a113..11b5c49 100644 --- a/libgfortran/generated/sum_r4.c +++ b/libgfortran/generated/sum_r4.c @@ -75,8 +75,10 @@ __sum_r4 (gfc_array_r4 * retarray, gfc_array_r4 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_REAL_4) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_REAL_4) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c index bdc93e0..95272fb 100644 --- a/libgfortran/generated/sum_r8.c +++ b/libgfortran/generated/sum_r8.c @@ -75,8 +75,10 @@ __sum_r8 (gfc_array_r8 * retarray, gfc_array_r8 *array, index_type *pdim) retarray->dim[n].stride = retarray->dim[n-1].stride * extent[n-1]; } - retarray->data = internal_malloc (sizeof (GFC_REAL_8) * - (retarray->dim[rank-1].stride * extent[rank-1])); + retarray->data + = internal_malloc_size (sizeof (GFC_REAL_8) + * retarray->dim[rank-1].stride + * extent[rank-1]); retarray->base = 0; } diff --git a/libgfortran/generated/transpose_i4.c b/libgfortran/generated/transpose_i4.c index 97eb1a0..dad2987 100644 --- a/libgfortran/generated/transpose_i4.c +++ b/libgfortran/generated/transpose_i4.c @@ -51,7 +51,7 @@ __transpose_4 (gfc_array_i4 * ret, gfc_array_i4 * source) ret->dim[1].ubound = source->dim[0].ubound - source->dim[0].lbound; ret->dim[1].stride = ret->dim[0].ubound+1; - ret->data = internal_malloc (sizeof (GFC_INTEGER_4) * size0 (ret)); + ret->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * size0 (ret)); ret->base = 0; } diff --git a/libgfortran/generated/transpose_i8.c b/libgfortran/generated/transpose_i8.c index 4c842d4..84811d0 100644 --- a/libgfortran/generated/transpose_i8.c +++ b/libgfortran/generated/transpose_i8.c @@ -51,7 +51,7 @@ __transpose_8 (gfc_array_i8 * ret, gfc_array_i8 * source) ret->dim[1].ubound = source->dim[0].ubound - source->dim[0].lbound; ret->dim[1].stride = ret->dim[0].ubound+1; - ret->data = internal_malloc (sizeof (GFC_INTEGER_8) * size0 (ret)); + ret->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * size0 (ret)); ret->base = 0; } |