diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-04-22 15:33:01 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-04-22 15:33:01 +0000 |
| commit | 1d9ee8a89ae88befe5572a65b997cd84241c196f (patch) | |
| tree | 646e5ae6929d675514204ffba97ecc64f6157a31 /libgfortran/generated/maxloc0_16_r16.c | |
| parent | 0972cc307e81708c54bd5b89c91fe99a84c65d73 (diff) | |
| parent | 3c64f1347227c8aceae1822bc66659d861596fc4 (diff) | |
| download | gcc-1d9ee8a89ae88befe5572a65b997cd84241c196f.tar.gz | |
2012-04-22 Tobias Burnus <burnus@net-b.de>
* Merged Revs. 185177 through 186673 from the trunk.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/fortran-dev@186674 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/generated/maxloc0_16_r16.c')
| -rw-r--r-- | libgfortran/generated/maxloc0_16_r16.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/generated/maxloc0_16_r16.c b/libgfortran/generated/maxloc0_16_r16.c index 84b36f1a95c..fe0f7e29ab8 100644 --- a/libgfortran/generated/maxloc0_16_r16.c +++ b/libgfortran/generated/maxloc0_16_r16.c @@ -58,7 +58,7 @@ maxloc0_16_r16 (gfc_array_i16 * const restrict retarray, GFC_DIMENSION_SET (retarray->dim[0], 0, rank, sizeof (GFC_INTEGER_16)); retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; retarray->offset = 0; - retarray->base_addr = internal_malloc_size (sizeof (GFC_INTEGER_16) * rank); + retarray->base_addr = xmalloc (sizeof (GFC_INTEGER_16) * rank); } else { @@ -199,7 +199,7 @@ mmaxloc0_16_r16 (gfc_array_i16 * const restrict retarray, GFC_DIMENSION_SET (retarray->dim[0], 0, rank, sizeof (GFC_INTEGER_16)); retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; retarray->offset = 0; - retarray->base_addr = internal_malloc_size (sizeof (GFC_INTEGER_16) * rank); + retarray->base_addr = xmalloc (sizeof (GFC_INTEGER_16) * rank); } else { @@ -367,7 +367,7 @@ smaxloc0_16_r16 (gfc_array_i16 * const restrict retarray, GFC_DIMENSION_SET (retarray->dim[0], 0, rank, sizeof (GFC_INTEGER_16)); retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; retarray->offset = 0; - retarray->base_addr = internal_malloc_size (sizeof (GFC_INTEGER_16) * rank); + retarray->base_addr = xmalloc (sizeof (GFC_INTEGER_16) * rank); } else if (unlikely (compile_options.bounds_check)) { |