procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

libgfortran.h (GFC_ARRAY_DESCRIPTOR): Replace 'type *base' by 'size_t offset'.

Browse source 
* libgfortran.h (GFC_ARRAY_DESCRIPTOR): Replace 'type *base' by
	'size_t offset'.
	* intrinsics/cshift0.c, intrinsics/eoshift0.c,
	intrinsics/eoshift2.c,intrinsics/pack_generic.c,
	intrinsics/reshape_generic.c, intrinsics/spread_generic.c,
	intrinsics/transpose_generic.c, intrinsics/unpack_generic,
	m4/cshift1.m4, m4/eoshift1.m4, m4/eoshift3.m4, m4/iforeach.m4,
	m4/ifunction.m4, m4/matmul.m4, m4/matmull.m4, m4/reshape.m4,
	m4,transpose.m4: Set renamed field 'offset' to zero instead of
	'base'.
	* generated/all_l4.c, generated/all_l8.c,
	generated/any_l4.c, generated/any_l8.c, generated/count_4_l4.c,
	generated/count_4_l8.c, generated/count_8_l4.c,
	generated/count_8_l8.c, generated/chift1_4.c,
	generated/cshift1_8.c, generated/eoshift1_4.c,
	generated/eoshift1_8.c, generated/eoshift3_4.c,
	generated/eoshift3_8.c, generated/matmul_c4.c,
	generated/matmul_c8.c, generated/matmul_i4.c, matmul_i8.c,
	generated/matmul_l4.c, generated/matmul_l8.c,
	generated/matmul_r4.c, generated/matmul_r8.c,
	generated/maxloc0_4_i4.c, generated/maxloc0_4_i8.c,
	generated/maxloc0_4_r4.c, generated/maxloc0_4_r8.c,
	generated/maxloc0_8_i4.c, generated/maxloc0_8_i8.c,
	generated/maxloc0_8_r4.c, generated/maxloc0_8_r8.c,
	generated/maxloc1_4_i4.c, generated/maxloc1_4_i8.c,
	generated/maxloc1_4_r4.c, generated/maxloc1_4_r8.c,
	generated/maxloc1_8_i4.c, generated/maxloc1_8_i8.c,
	generated/maxloc1_8_r4.c, generated/maxloc1_8_r8.c,
	generated/maxval_i4.c, generated/maxval_i8.c,
	generated/maxval_r4.c, generated/maxval_r8.c,
	generated/minloc0_4_i4.c, generated/minloc0_4_i8.c,
	generated/minloc0_4_r4.c, generated/minloc0_4_r8.c,
	generated/minloc0_8_i4.c, generated/minloc0_8_i8.c,
	generated/minloc0_8_r4.c, generated/minloc0_8_r8.c,
	generated/minloc1_4_i4.c, generated/minloc1_4_i8.c,
	generated/minloc1_4_r4.c, generated/minloc1_4_r8.c,
	generated/minloc1_8_i4.c, generated/minloc1_8_i8.c,
	generated/minloc1_8_r4.c, generated/minloc1_8_r8.c,
	generated/minval_i4.c, generated/minval_i8.c,
	generated/minval_r4.c, generated/minval_r8.c,
	generated/product_c4.c, generated/product_c8.c,
	generated/product_i4.c, generated/product_i8.c,
	generated/product_r4.c, generated/product_r8.c,
	generated/reshape_c4.c, generated/reshape_c8.c,
	generated/reshape_i4.c, generated/reshape_i8.c,
	generated/sum_c4.c, generated/sum_c8.c, generated/sum_i4.c,
	generated/sum_i8.c, generated/sum_r4.c, generated/sum_r8.c,
	generated/transpose_c4.c, generated/transpose_c8.c,
	generated/transpose_i4.c, generated/transpose_i8.c: Regenerate:

From-SVN: r101739
This commit is contained in:
Tobias Schlüter 2005-07-08 00:08:06 +02:00 • committed by Tobias Schlüter
parent 47b3a403a5
commit efd4dc1a15
101 changed files with 212 additions and 160 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
libgfortran/ChangeLog
View file

@ -1,3 +1,55 @@
2005-07-07 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* libgfortran.h (GFC_ARRAY_DESCRIPTOR): Replace 'type *base' by
'size_t offset'.
* intrinsics/cshift0.c, intrinsics/eoshift0.c,
intrinsics/eoshift2.c,intrinsics/pack_generic.c,
intrinsics/reshape_generic.c, intrinsics/spread_generic.c,
intrinsics/transpose_generic.c, intrinsics/unpack_generic,
m4/cshift1.m4, m4/eoshift1.m4, m4/eoshift3.m4, m4/iforeach.m4,
m4/ifunction.m4, m4/matmul.m4, m4/matmull.m4, m4/reshape.m4,
m4,transpose.m4: Set renamed field 'offset' to zero instead of
'base'.
* generated/all_l4.c, generated/all_l8.c,
generated/any_l4.c, generated/any_l8.c, generated/count_4_l4.c,
generated/count_4_l8.c, generated/count_8_l4.c,
generated/count_8_l8.c, generated/chift1_4.c,
generated/cshift1_8.c, generated/eoshift1_4.c,
generated/eoshift1_8.c, generated/eoshift3_4.c,
generated/eoshift3_8.c, generated/matmul_c4.c,
generated/matmul_c8.c, generated/matmul_i4.c, matmul_i8.c,
generated/matmul_l4.c, generated/matmul_l8.c,
generated/matmul_r4.c, generated/matmul_r8.c,
generated/maxloc0_4_i4.c, generated/maxloc0_4_i8.c,
generated/maxloc0_4_r4.c, generated/maxloc0_4_r8.c,
generated/maxloc0_8_i4.c, generated/maxloc0_8_i8.c,
generated/maxloc0_8_r4.c, generated/maxloc0_8_r8.c,
generated/maxloc1_4_i4.c, generated/maxloc1_4_i8.c,
generated/maxloc1_4_r4.c, generated/maxloc1_4_r8.c,
generated/maxloc1_8_i4.c, generated/maxloc1_8_i8.c,
generated/maxloc1_8_r4.c, generated/maxloc1_8_r8.c,
generated/maxval_i4.c, generated/maxval_i8.c,
generated/maxval_r4.c, generated/maxval_r8.c,
generated/minloc0_4_i4.c, generated/minloc0_4_i8.c,
generated/minloc0_4_r4.c, generated/minloc0_4_r8.c,
generated/minloc0_8_i4.c, generated/minloc0_8_i8.c,
generated/minloc0_8_r4.c, generated/minloc0_8_r8.c,
generated/minloc1_4_i4.c, generated/minloc1_4_i8.c,
generated/minloc1_4_r4.c, generated/minloc1_4_r8.c,
generated/minloc1_8_i4.c, generated/minloc1_8_i8.c,
generated/minloc1_8_r4.c, generated/minloc1_8_r8.c,
generated/minval_i4.c, generated/minval_i8.c,
generated/minval_r4.c, generated/minval_r8.c,
generated/product_c4.c, generated/product_c8.c,
generated/product_i4.c, generated/product_i8.c,
generated/product_r4.c, generated/product_r8.c,
generated/reshape_c4.c, generated/reshape_c8.c,
generated/reshape_i4.c, generated/reshape_i8.c,
generated/sum_c4.c, generated/sum_c8.c, generated/sum_i4.c,
generated/sum_i8.c, generated/sum_r4.c, generated/sum_r8.c,
generated/transpose_c4.c, generated/transpose_c8.c,
generated/transpose_i4.c, generated/transpose_i8.c: Regenerate:
2005-07-07 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/21594

2
libgfortran/generated/all_l4.c
View file

@ -92,7 +92,7 @@ all_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_LOGICAL_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

2
libgfortran/generated/all_l8.c
View file

@ -92,7 +92,7 @@ all_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_LOGICAL_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

2
libgfortran/generated/any_l4.c
View file

@ -92,7 +92,7 @@ any_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_LOGICAL_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

2
libgfortran/generated/any_l8.c
View file

@ -92,7 +92,7 @@ any_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_LOGICAL_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

2
libgfortran/generated/count_4_l4.c
View file

@ -92,7 +92,7 @@ count_4_l4 (gfc_array_i4 *retarray, gfc_array_l4 *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

2
libgfortran/generated/count_4_l8.c
View file

@ -92,7 +92,7 @@ count_4_l8 (gfc_array_i4 *retarray, gfc_array_l8 *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

2
libgfortran/generated/count_8_l4.c
View 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

2
libgfortran/generated/count_8_l8.c
View file

@ -92,7 +92,7 @@ count_8_l8 (gfc_array_i8 *retarray, gfc_array_l8 *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

2
libgfortran/generated/cshift1_4.c
View file

@ -85,7 +85,7 @@ cshift1_4 (gfc_array_char * ret,
int i;
ret->data = internal_malloc_size (size * size0 ((array_t *)array));
ret->base = 0;
ret->offset = 0;
ret->dtype = array->dtype;
for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
{

2
libgfortran/generated/cshift1_8.c
View file

@ -85,7 +85,7 @@ cshift1_8 (gfc_array_char * ret,
int i;
ret->data = internal_malloc_size (size * size0 ((array_t *)array));
ret->base = 0;
ret->offset = 0;
ret->dtype = array->dtype;
for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
{

2
libgfortran/generated/eoshift1_4.c
View file

@ -101,7 +101,7 @@ eoshift1_4 (gfc_array_char *ret,
int i;
ret->data = internal_malloc_size (size * size0 ((array_t *)array));
ret->base = 0;
ret->offset = 0;
ret->dtype = array->dtype;
for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
{

2
libgfortran/generated/eoshift1_8.c
View file

@ -101,7 +101,7 @@ eoshift1_8 (gfc_array_char *ret,
int i;
ret->data = internal_malloc_size (size * size0 ((array_t *)array));
ret->base = 0;
ret->offset = 0;
ret->dtype = array->dtype;
for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
{

2
libgfortran/generated/eoshift3_4.c
View file

@ -95,7 +95,7 @@ eoshift3_4 (gfc_array_char *ret, gfc_array_char *array,
int i;
ret->data = internal_malloc_size (size * size0 ((array_t *)array));
ret->base = 0;
ret->offset = 0;
ret->dtype = array->dtype;
for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
{

2
libgfortran/generated/eoshift3_8.c
View file

@ -95,7 +95,7 @@ eoshift3_8 (gfc_array_char *ret, gfc_array_char *array,
int i;
ret->data = internal_malloc_size (size * size0 ((array_t *)array));
ret->base = 0;
ret->offset = 0;
ret->dtype = array->dtype;
for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
{

2
libgfortran/generated/matmul_c4.c
View file

@ -100,7 +100,7 @@ matmul_c4 (gfc_array_c4 * retarray, gfc_array_c4 * a, gfc_array_c4 * b)
retarray->data
= internal_malloc_size (sizeof (GFC_COMPLEX_4) * size0 ((array_t *) retarray));
retarray->base = 0;
retarray->offset = 0;
}
abase = a->data;

2
libgfortran/generated/matmul_c8.c
View file

@ -100,7 +100,7 @@ matmul_c8 (gfc_array_c8 * retarray, gfc_array_c8 * a, gfc_array_c8 * b)
retarray->data
= internal_malloc_size (sizeof (GFC_COMPLEX_8) * size0 ((array_t *) retarray));
retarray->base = 0;
retarray->offset = 0;
}
abase = a->data;

2
libgfortran/generated/matmul_i4.c
View file

@ -100,7 +100,7 @@ matmul_i4 (gfc_array_i4 * retarray, gfc_array_i4 * a, gfc_array_i4 * b)
retarray->data
= internal_malloc_size (sizeof (GFC_INTEGER_4) * size0 ((array_t *) retarray));
retarray->base = 0;
retarray->offset = 0;
}
abase = a->data;

2
libgfortran/generated/matmul_i8.c
View file

@ -100,7 +100,7 @@ matmul_i8 (gfc_array_i8 * retarray, gfc_array_i8 * a, gfc_array_i8 * b)
retarray->data
= internal_malloc_size (sizeof (GFC_INTEGER_8) * size0 ((array_t *) retarray));
retarray->base = 0;
retarray->offset = 0;
}
abase = a->data;

6
libgfortran/generated/matmul_l4.c
View file

@ -83,15 +83,15 @@ matmul_l4 (gfc_array_l4 * retarray, gfc_array_l4 * a, gfc_array_l4 * b)
retarray->dim[0].lbound = 0;
retarray->dim[0].ubound = a->dim[0].ubound - a->dim[0].lbound;
retarray->dim[0].stride = 1;
retarray->dim[1].lbound = 0;
retarray->dim[1].ubound = b->dim[1].ubound - b->dim[1].lbound;
retarray->dim[1].stride = retarray->dim[0].ubound+1;
}
retarray->data
= internal_malloc_size (sizeof (GFC_LOGICAL_4) * size0 ((array_t *) retarray));
retarray->base = 0;
retarray->offset = 0;
}
abase = a->data;

6
libgfortran/generated/matmul_l8.c
View file

@ -83,15 +83,15 @@ matmul_l8 (gfc_array_l8 * retarray, gfc_array_l4 * a, gfc_array_l4 * b)
retarray->dim[0].lbound = 0;
retarray->dim[0].ubound = a->dim[0].ubound - a->dim[0].lbound;
retarray->dim[0].stride = 1;
retarray->dim[1].lbound = 0;
retarray->dim[1].ubound = b->dim[1].ubound - b->dim[1].lbound;
retarray->dim[1].stride = retarray->dim[0].ubound+1;
}
retarray->data
= internal_malloc_size (sizeof (GFC_LOGICAL_8) * size0 ((array_t *) retarray));
retarray->base = 0;
retarray->offset = 0;
}
abase = a->data;

2
libgfortran/generated/matmul_r4.c
View file

@ -100,7 +100,7 @@ matmul_r4 (gfc_array_r4 * retarray, gfc_array_r4 * a, gfc_array_r4 * b)
retarray->data
= internal_malloc_size (sizeof (GFC_REAL_4) * size0 ((array_t *) retarray));
retarray->base = 0;
retarray->offset = 0;
}
abase = a->data;

2
libgfortran/generated/matmul_r8.c
View file

@ -100,7 +100,7 @@ matmul_r8 (gfc_array_r8 * retarray, gfc_array_r8 * a, gfc_array_r8 * b)
retarray->data
= internal_malloc_size (sizeof (GFC_REAL_8) * size0 ((array_t *) retarray));
retarray->base = 0;
retarray->offset = 0;
}
abase = a->data;

4
libgfortran/generated/maxloc0_4_i4.c
View file

@ -62,7 +62,7 @@ maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else
@ -180,7 +180,7 @@ mmaxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else

4
libgfortran/generated/maxloc0_4_i8.c
View file

@ -62,7 +62,7 @@ maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else
@ -180,7 +180,7 @@ mmaxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else

4
libgfortran/generated/maxloc0_4_r4.c
View file

@ -62,7 +62,7 @@ maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else
@ -180,7 +180,7 @@ mmaxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else

4
libgfortran/generated/maxloc0_4_r8.c
View file

@ -62,7 +62,7 @@ maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else
@ -180,7 +180,7 @@ mmaxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else

4
libgfortran/generated/maxloc0_8_i4.c
View file

@ -62,7 +62,7 @@ maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else
@ -180,7 +180,7 @@ mmaxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else

4
libgfortran/generated/maxloc0_8_i8.c
View file

@ -62,7 +62,7 @@ maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else
@ -180,7 +180,7 @@ mmaxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else

4
libgfortran/generated/maxloc0_8_r4.c
View file

@ -62,7 +62,7 @@ maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else
@ -180,7 +180,7 @@ mmaxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else

4
libgfortran/generated/maxloc0_8_r8.c
View file

@ -62,7 +62,7 @@ maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else
@ -180,7 +180,7 @@ mmaxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else

4
libgfortran/generated/maxloc1_4_i4.c
View file

@ -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

4
libgfortran/generated/maxloc1_4_i8.c
View file

@ -94,7 +94,7 @@ maxloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *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_i8 (gfc_array_i4 * retarray, gfc_array_i8 * 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

4
libgfortran/generated/maxloc1_4_r4.c
View file

@ -94,7 +94,7 @@ maxloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *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_r4 (gfc_array_i4 * retarray, gfc_array_r4 * 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

4
libgfortran/generated/maxloc1_4_r8.c
View file

@ -94,7 +94,7 @@ maxloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *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_r8 (gfc_array_i4 * retarray, gfc_array_r8 * 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

4
libgfortran/generated/maxloc1_8_i4.c
View file

@ -94,7 +94,7 @@ maxloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *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
@ -245,7 +245,7 @@ mmaxloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array,
= 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

4
libgfortran/generated/maxloc1_8_i8.c
View file

@ -94,7 +94,7 @@ maxloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *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
@ -245,7 +245,7 @@ mmaxloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
= 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

4
libgfortran/generated/maxloc1_8_r4.c
View file

@ -94,7 +94,7 @@ maxloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *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
@ -245,7 +245,7 @@ mmaxloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array,
= 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

4
libgfortran/generated/maxloc1_8_r8.c
View file

@ -94,7 +94,7 @@ maxloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *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
@ -245,7 +245,7 @@ mmaxloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array,
= 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

4
libgfortran/generated/maxval_i4.c
View file

@ -93,7 +93,7 @@ maxval_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
@ -239,7 +239,7 @@ mmaxval_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

4
libgfortran/generated/maxval_i8.c
View file

@ -93,7 +93,7 @@ maxval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *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
@ -239,7 +239,7 @@ mmaxval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
= 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

4
libgfortran/generated/maxval_r4.c
View file

@ -93,7 +93,7 @@ maxval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_REAL_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
@ -239,7 +239,7 @@ mmaxval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array,
= internal_malloc_size (sizeof (GFC_REAL_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

4
libgfortran/generated/maxval_r8.c
View file

@ -93,7 +93,7 @@ maxval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_REAL_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
@ -239,7 +239,7 @@ mmaxval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array,
= internal_malloc_size (sizeof (GFC_REAL_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

4
libgfortran/generated/minloc0_4_i4.c
View file

@ -62,7 +62,7 @@ minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else
@ -180,7 +180,7 @@ mminloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else

4
libgfortran/generated/minloc0_4_i8.c
View file

@ -62,7 +62,7 @@ minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else
@ -180,7 +180,7 @@ mminloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else

4
libgfortran/generated/minloc0_4_r4.c
View file

@ -62,7 +62,7 @@ minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else
@ -180,7 +180,7 @@ mminloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else

4
libgfortran/generated/minloc0_4_r8.c
View file

@ -62,7 +62,7 @@ minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else
@ -180,7 +180,7 @@ mminloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * rank);
}
else

4
libgfortran/generated/minloc0_8_i4.c
View file

@ -62,7 +62,7 @@ minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else
@ -180,7 +180,7 @@ mminloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else

4
libgfortran/generated/minloc0_8_i8.c
View file

@ -62,7 +62,7 @@ minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else
@ -180,7 +180,7 @@ mminloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else

4
libgfortran/generated/minloc0_8_r4.c
View file

@ -62,7 +62,7 @@ minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else
@ -180,7 +180,7 @@ mminloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else

4
libgfortran/generated/minloc0_8_r8.c
View file

@ -62,7 +62,7 @@ minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else
@ -180,7 +180,7 @@ mminloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array,
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * rank);
}
else

4
libgfortran/generated/minloc1_4_i4.c
View file

@ -94,7 +94,7 @@ minloc1_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 @@ mminloc1_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

4
libgfortran/generated/minloc1_4_i8.c
View file

@ -94,7 +94,7 @@ minloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *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 @@ mminloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * 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

4
libgfortran/generated/minloc1_4_r4.c
View file

@ -94,7 +94,7 @@ minloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *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 @@ mminloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * 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

4
libgfortran/generated/minloc1_4_r8.c
View file

@ -94,7 +94,7 @@ minloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *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 @@ mminloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * 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

4
libgfortran/generated/minloc1_8_i4.c
View file

@ -94,7 +94,7 @@ minloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *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
@ -245,7 +245,7 @@ mminloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array,
= 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

4
libgfortran/generated/minloc1_8_i8.c
View file

@ -94,7 +94,7 @@ minloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *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
@ -245,7 +245,7 @@ mminloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
= 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

4
libgfortran/generated/minloc1_8_r4.c
View file

@ -94,7 +94,7 @@ minloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *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
@ -245,7 +245,7 @@ mminloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array,
= 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

4
libgfortran/generated/minloc1_8_r8.c
View file

@ -94,7 +94,7 @@ minloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *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
@ -245,7 +245,7 @@ mminloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array,
= 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

4
libgfortran/generated/minval_i4.c
View file

@ -93,7 +93,7 @@ minval_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
@ -239,7 +239,7 @@ mminval_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

4
libgfortran/generated/minval_i8.c
View file

@ -93,7 +93,7 @@ minval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *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
@ -239,7 +239,7 @@ mminval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
= 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

4
libgfortran/generated/minval_r4.c
View file

@ -93,7 +93,7 @@ minval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_REAL_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
@ -239,7 +239,7 @@ mminval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array,
= internal_malloc_size (sizeof (GFC_REAL_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

4
libgfortran/generated/minval_r8.c
View file

@ -93,7 +93,7 @@ minval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_REAL_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
@ -239,7 +239,7 @@ mminval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array,
= internal_malloc_size (sizeof (GFC_REAL_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

4
libgfortran/generated/product_c4.c
View file

@ -92,7 +92,7 @@ product_c4 (gfc_array_c4 *retarray, gfc_array_c4 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_COMPLEX_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
@ -237,7 +237,7 @@ mproduct_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array,
= internal_malloc_size (sizeof (GFC_COMPLEX_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

4
libgfortran/generated/product_c8.c
View file

@ -92,7 +92,7 @@ product_c8 (gfc_array_c8 *retarray, gfc_array_c8 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_COMPLEX_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
@ -237,7 +237,7 @@ mproduct_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array,
= internal_malloc_size (sizeof (GFC_COMPLEX_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

4
libgfortran/generated/product_i4.c
View file

@ -92,7 +92,7 @@ product_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
@ -237,7 +237,7 @@ mproduct_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

4
libgfortran/generated/product_i8.c
View file

@ -92,7 +92,7 @@ product_i8 (gfc_array_i8 *retarray, gfc_array_i8 *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
@ -237,7 +237,7 @@ mproduct_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
= 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

4
libgfortran/generated/product_r4.c
View file

@ -92,7 +92,7 @@ product_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_REAL_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
@ -237,7 +237,7 @@ mproduct_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array,
= internal_malloc_size (sizeof (GFC_REAL_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

4
libgfortran/generated/product_r8.c
View file

@ -92,7 +92,7 @@ product_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_REAL_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
@ -237,7 +237,7 @@ mproduct_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array,
= internal_malloc_size (sizeof (GFC_REAL_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

2
libgfortran/generated/reshape_c4.c
View file

@ -97,7 +97,7 @@ reshape_c4 (gfc_array_c4 * ret, gfc_array_c4 * source, shape_type * shape,
ret->dim[n].stride = rs;
rs *= rex;
}
ret->base = 0;
ret->offset = 0;
ret->data = internal_malloc_size ( rs * sizeof (GFC_COMPLEX_4));
ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim;
}

2
libgfortran/generated/reshape_c8.c
View file

@ -97,7 +97,7 @@ reshape_c8 (gfc_array_c8 * ret, gfc_array_c8 * source, shape_type * shape,
ret->dim[n].stride = rs;
rs *= rex;
}
ret->base = 0;
ret->offset = 0;
ret->data = internal_malloc_size ( rs * sizeof (GFC_COMPLEX_8));
ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim;
}

2
libgfortran/generated/reshape_i4.c
View file

@ -97,7 +97,7 @@ reshape_4 (gfc_array_i4 * ret, gfc_array_i4 * source, shape_type * shape,
ret->dim[n].stride = rs;
rs *= rex;
}
ret->base = 0;
ret->offset = 0;
ret->data = internal_malloc_size ( rs * sizeof (GFC_INTEGER_4));
ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim;
}

2
libgfortran/generated/reshape_i8.c
View file

@ -97,7 +97,7 @@ reshape_8 (gfc_array_i8 * ret, gfc_array_i8 * source, shape_type * shape,
ret->dim[n].stride = rs;
rs *= rex;
}
ret->base = 0;
ret->offset = 0;
ret->data = internal_malloc_size ( rs * sizeof (GFC_INTEGER_8));
ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim;
}

4
libgfortran/generated/sum_c4.c
View file

@ -92,7 +92,7 @@ sum_c4 (gfc_array_c4 *retarray, gfc_array_c4 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_COMPLEX_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
@ -237,7 +237,7 @@ msum_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array,
= internal_malloc_size (sizeof (GFC_COMPLEX_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

4
libgfortran/generated/sum_c8.c
View file

@ -92,7 +92,7 @@ sum_c8 (gfc_array_c8 *retarray, gfc_array_c8 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_COMPLEX_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
@ -237,7 +237,7 @@ msum_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array,
= internal_malloc_size (sizeof (GFC_COMPLEX_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

4
libgfortran/generated/sum_i4.c
View file

@ -92,7 +92,7 @@ sum_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
@ -237,7 +237,7 @@ msum_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

4
libgfortran/generated/sum_i8.c
View file

@ -92,7 +92,7 @@ sum_i8 (gfc_array_i8 *retarray, gfc_array_i8 *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
@ -237,7 +237,7 @@ msum_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
= 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

4
libgfortran/generated/sum_r4.c
View file

@ -92,7 +92,7 @@ sum_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_REAL_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
@ -237,7 +237,7 @@ msum_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array,
= internal_malloc_size (sizeof (GFC_REAL_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

4
libgfortran/generated/sum_r8.c
View file

@ -92,7 +92,7 @@ sum_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
= internal_malloc_size (sizeof (GFC_REAL_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
@ -237,7 +237,7 @@ msum_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array,
= internal_malloc_size (sizeof (GFC_REAL_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

2
libgfortran/generated/transpose_c4.c
View file

@ -64,7 +64,7 @@ transpose_c4 (gfc_array_c4 * ret, gfc_array_c4 * source)
ret->dim[1].stride = ret->dim[0].ubound+1;
ret->data = internal_malloc_size (sizeof (GFC_COMPLEX_4) * size0 ((array_t *) ret));
ret->base = 0;
ret->offset = 0;
}
if (ret->dim[0].stride == 0)

2
libgfortran/generated/transpose_c8.c
View file

@ -64,7 +64,7 @@ transpose_c8 (gfc_array_c8 * ret, gfc_array_c8 * source)
ret->dim[1].stride = ret->dim[0].ubound+1;
ret->data = internal_malloc_size (sizeof (GFC_COMPLEX_8) * size0 ((array_t *) ret));
ret->base = 0;
ret->offset = 0;
}
if (ret->dim[0].stride == 0)

2
libgfortran/generated/transpose_i4.c
View file

@ -64,7 +64,7 @@ transpose_i4 (gfc_array_i4 * ret, gfc_array_i4 * source)
ret->dim[1].stride = ret->dim[0].ubound+1;
ret->data = internal_malloc_size (sizeof (GFC_INTEGER_4) * size0 ((array_t *) ret));
ret->base = 0;
ret->offset = 0;
}
if (ret->dim[0].stride == 0)

2
libgfortran/generated/transpose_i8.c
View file

@ -64,7 +64,7 @@ transpose_i8 (gfc_array_i8 * ret, gfc_array_i8 * source)
ret->dim[1].stride = ret->dim[0].ubound+1;
ret->data = internal_malloc_size (sizeof (GFC_INTEGER_8) * size0 ((array_t *) ret));
ret->base = 0;
ret->offset = 0;
}
if (ret->dim[0].stride == 0)

2
libgfortran/intrinsics/cshift0.c
View file

@ -148,7 +148,7 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array,
int i;
ret->data = internal_malloc_size (size * size0 ((array_t *)array));
ret->base = 0;
ret->offset = 0;
ret->dtype = array->dtype;
for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
{

2
libgfortran/intrinsics/eoshift0.c
View file

@ -80,7 +80,7 @@ eoshift0 (gfc_array_char * ret, const gfc_array_char * array,
int i;
ret->data = internal_malloc_size (size * size0 ((array_t *)array));
ret->base = 0;
ret->offset = 0;
ret->dtype = array->dtype;
for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
{

2
libgfortran/intrinsics/eoshift2.c
View file

@ -81,7 +81,7 @@ eoshift2 (gfc_array_char *ret, const gfc_array_char *array,
int i;
ret->data = internal_malloc_size (size * size0 ((array_t *)array));
ret->base = 0;
ret->offset = 0;
ret->dtype = array->dtype;
for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
{

6
libgfortran/intrinsics/pack_generic.c
View file

@ -201,7 +201,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array,
ret->dim[0].stride = 1;
ret->data = internal_malloc_size (size * total);
ret->base = 0;
ret->offset = 0;
if (total == 0)
/* In this case, nothing remains to be done. */
@ -342,7 +342,7 @@ pack_s (gfc_array_char *ret, const gfc_array_char *array,
ret->dim[0].ubound = -1;
ret->dim[0].stride = 1;
ret->data = internal_malloc_size (0);
ret->base = 0;
ret->offset = 0;
return;
}
@ -354,7 +354,7 @@ pack_s (gfc_array_char *ret, const gfc_array_char *array,
ret->dim[0].stride = 1;
ret->data = internal_malloc_size (size * total);
ret->base = 0;
ret->offset = 0;
}
rstride0 = ret->dim[0].stride * size;

2
libgfortran/intrinsics/reshape_generic.c
View file

@ -100,7 +100,7 @@ reshape (parray *ret, parray *source, shape_type *shape,
ret->dim[n].stride = rs;
rs *= rex;
}
ret->base = 0;
ret->offset = 0;
ret->data = internal_malloc_size ( rs * size );
ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim;
}

2
libgfortran/intrinsics/spread_generic.c
View file

@ -105,7 +105,7 @@ spread (gfc_array_char *ret, const gfc_array_char *source,
dim++;
}
}
ret->base = 0;
ret->offset = 0;
ret->data = internal_malloc_size (rs * size);
}
else

2
libgfortran/intrinsics/transpose_generic.c
View file

@ -69,7 +69,7 @@ transpose (gfc_array_char *ret, gfc_array_char *source)
ret->dim[1].stride = ret->dim[0].ubound+1;
ret->data = internal_malloc_size (size * size0 ((array_t*)ret));
ret->base = 0;
ret->offset = 0;
}
sxstride = source->dim[0].stride * size;

2
libgfortran/intrinsics/unpack_generic.c
View file

@ -87,7 +87,7 @@ unpack1 (gfc_array_char *ret, const gfc_array_char *vector,
mstride[n] = mask->dim[n].stride;
rs *= extent[n];
}
ret->base = 0;
ret->offset = 0;
ret->data = internal_malloc_size (rs * size);
}
else

2
libgfortran/libgfortran.h
View file

@ -235,7 +235,7 @@ descriptor_dimension;
#define GFC_ARRAY_DESCRIPTOR(r, type) \
struct {\
type *data;\
type *base;\
size_t offset;\
index_type dtype;\
descriptor_dimension dim[r];\
}

2
libgfortran/m4/cshift1.m4
View file

@ -86,7 +86,7 @@ cshift1_`'atype_kind (gfc_array_char * ret,
int i;
ret->data = internal_malloc_size (size * size0 ((array_t *)array));
ret->base = 0;
ret->offset = 0;
ret->dtype = array->dtype;
for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
{

2
libgfortran/m4/eoshift1.m4
View file

@ -102,7 +102,7 @@ eoshift1_`'atype_kind (gfc_array_char *ret,
int i;
ret->data = internal_malloc_size (size * size0 ((array_t *)array));
ret->base = 0;
ret->offset = 0;
ret->dtype = array->dtype;
for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
{

2
libgfortran/m4/eoshift3.m4
View file

@ -96,7 +96,7 @@ eoshift3_`'atype_kind (gfc_array_char *ret, gfc_array_char *array,
int i;
ret->data = internal_malloc_size (size * size0 ((array_t *)array));
ret->base = 0;
ret->offset = 0;
ret->dtype = array->dtype;
for (i = 0; i < GFC_DESCRIPTOR_RANK (array); i++)
{

4
libgfortran/m4/iforeach.m4
View file

@ -29,7 +29,7 @@ name`'rtype_qual`_'atype_code (rtype * retarray, atype *array)
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (rtype_name) * rank);
}
else
@ -139,7 +139,7 @@ void
retarray->dim[0].ubound = rank-1;
retarray->dim[0].stride = 1;
retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1;
retarray->base = 0;
retarray->offset = 0;
retarray->data = internal_malloc_size (sizeof (rtype_name) * rank);
}
else

4
libgfortran/m4/ifunction.m4
View file

@ -77,7 +77,7 @@ name`'rtype_qual`_'atype_code (rtype *retarray, atype *array, index_type *pdim)
= internal_malloc_size (sizeof (rtype_name)
* retarray->dim[rank-1].stride
* extent[rank-1]);
retarray->base = 0;
retarray->offset = 0;
retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank;
}
else
@ -222,7 +222,7 @@ void
= internal_malloc_size (sizeof (rtype_name)
* retarray->dim[rank-1].stride
* extent[rank-1]);
retarray->base = 0;
retarray->offset = 0;
retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank;
}
else

2
libgfortran/m4/matmul.m4
View file

@ -101,7 +101,7 @@ matmul_`'rtype_code (rtype * retarray, rtype * a, rtype * b)
retarray->data
= internal_malloc_size (sizeof (rtype_name) * size0 ((array_t *) retarray));
retarray->base = 0;
retarray->offset = 0;
}
abase = a->data;

2
libgfortran/m4/matmull.m4
View file

@ -92,7 +92,7 @@ matmul_`'rtype_code (rtype * retarray, gfc_array_l4 * a, gfc_array_l4 * b)
retarray->data
= internal_malloc_size (sizeof (rtype_name) * size0 ((array_t *) retarray));
retarray->base = 0;
retarray->offset = 0;
}
abase = a->data;

2
libgfortran/m4/reshape.m4
View file

@ -99,7 +99,7 @@ reshape_`'rtype_ccode (rtype * ret, rtype * source, shape_type * shape,
ret->dim[n].stride = rs;
rs *= rex;
}
ret->base = 0;
ret->offset = 0;
ret->data = internal_malloc_size ( rs * sizeof (rtype_name));
ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim;
}

Some files were not shown because too many files have changed in this diff Show more