OSDN Git Service

* libgfortran.h (GFC_ARRAY_DESCRIPTOR): Replace 'type *base' by
[pf3gnuchains/gcc-fork.git] / libgfortran / generated / count_8_l4.c
index fe4c886..c6a3e64 100644 (file)
@@ -92,7 +92,7 @@ count_8_l4 (gfc_array_i8 *retarray, gfc_array_l4 *array, index_type *pdim)
         = internal_malloc_size (sizeof (GFC_INTEGER_8)
                                 * retarray->dim[rank-1].stride
                                 * extent[rank-1]);
-      retarray->base = 0;
+      retarray->offset = 0;
       retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank;
     }
   else