X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=libgfortran%2Fgenerated%2Fmaxloc1_4_i4.c;h=8a718dc50021ca6a8f63a5df591436520c3cbd08;hp=45e143f2008d729b7d100e193d07b1a897e1cc0c;hb=93830de1da404ed79635b483769802c798b94980;hpb=4eef4aad9a4e3edbe01a61f69887a0c9692c95ab diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c index 45e143f2008..8a718dc5002 100644 --- a/libgfortran/generated/maxloc1_4_i4.c +++ b/libgfortran/generated/maxloc1_4_i4.c @@ -94,7 +94,7 @@ maxloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else @@ -245,7 +245,7 @@ mmaxloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, = internal_malloc_size (sizeof (GFC_INTEGER_4) * retarray->dim[rank-1].stride * extent[rank-1]); - retarray->base = 0; + retarray->offset = 0; retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank; } else