Skip to content

R
riscv-gcc-1
Commit 5863aacf by Thomas Koenig
Options

in_pack.m4 (internal_pack_'rtype_code`): Destination pointer is restrict. 

2008-05-18  Thomas Koenig  <tkoenig@gcc.gnu.org>

	* m4/in_pack.m4 (internal_pack_'rtype_code`):  Destination
	pointer is restrict.
	* m4/transpose.m4 (transpose_'rtype_code`):  Likewise.
	* m4/pack.m4 (pack_'rtype_code`):  Likewise.
	* m4/spread.m4 (spread_'rtype_code`):  Likewise.
	(spread_scalar_'rtype_code`): Likewise.
	* m4/iforeach.m4 (name`'rtype_qual`_'atype_code):  Likewise.
	* m4/eoshift1.m4 (eoshift1):  Likewise.
	* m4/eoshift3.m4 (eoshift3):  Likewise.
	* m4/in_unpack.m4 (internal_unpack_'rtype_ccode`):  Likewise.
	* m4/unpack.m4 (unpack0_'rtype_code`):  Likewise.
	(unpack1_'rtype_code`):  Likewise.
	* intrinsics/pack_generic.c (pack_generic.c):  Likewise.
	* intrinsics/unpack_generic.c (unpack_internal):  Likewise.
	* intrinsics/eoshift0.c (eoshift0):  Likewise.
	* intrinsics/eoshift2.c (eoshift2):  Likewise.
	* intrinsics/reshape_generic.c (reshape_internal):  Likewise.
	* intrinsics/reshape_packed.c (reshape_packed):  Likewise.
	* generated/eoshift1_16.c: Regenerated.
	* generated/eoshift1_4.c: Regenerated.
	* generated/eoshift1_8.c: Regenerated.
	* generated/eoshift3_16.c: Regenerated.
	* generated/eoshift3_4.c: Regenerated.
	* generated/eoshift3_8.c: Regenerated.
	* generated/in_pack_c10.c: Regenerated.
	* generated/in_pack_c16.c: Regenerated.
	* generated/in_pack_c4.c: Regenerated.
	* generated/in_pack_c8.c: Regenerated.
	* generated/in_pack_i1.c: Regenerated.
	* generated/in_pack_i16.c: Regenerated.
	* generated/in_pack_i2.c: Regenerated.
	* generated/in_pack_i4.c: Regenerated.
	* generated/in_pack_i8.c: Regenerated.
	* generated/in_pack_r10.c: Regenerated.
	* generated/in_pack_r16.c: Regenerated.
	* generated/in_pack_r4.c: Regenerated.
	* generated/in_pack_r8.c: Regenerated.
	* generated/in_unpack_c10.c: Regenerated.
	* generated/in_unpack_c16.c: Regenerated.
	* generated/in_unpack_c4.c: Regenerated.
	* generated/in_unpack_c8.c: Regenerated.
	* generated/in_unpack_i1.c: Regenerated.
	* generated/in_unpack_i16.c: Regenerated.
	* generated/in_unpack_i2.c: Regenerated.
	* generated/in_unpack_i4.c: Regenerated.
	* generated/in_unpack_i8.c: Regenerated.
	* generated/in_unpack_r10.c: Regenerated.
	* generated/in_unpack_r16.c: Regenerated.
	* generated/in_unpack_r4.c: Regenerated.
	* generated/in_unpack_r8.c: Regenerated.
	* generated/maxloc0_16_i1.c: Regenerated.
	* generated/maxloc0_16_i16.c: Regenerated.
	* generated/maxloc0_16_i2.c: Regenerated.
	* generated/maxloc0_16_i4.c: Regenerated.
	* generated/maxloc0_16_i8.c: Regenerated.
	* generated/maxloc0_16_r10.c: Regenerated.
	* generated/maxloc0_16_r16.c: Regenerated.
	* generated/maxloc0_16_r4.c: Regenerated.
	* generated/maxloc0_16_r8.c: Regenerated.
	* generated/maxloc0_4_i1.c: Regenerated.
	* generated/maxloc0_4_i16.c: Regenerated.
	* generated/maxloc0_4_i2.c: Regenerated.
	* generated/maxloc0_4_i4.c: Regenerated.
	* generated/maxloc0_4_i8.c: Regenerated.
	* generated/maxloc0_4_r10.c: Regenerated.
	* generated/maxloc0_4_r16.c: Regenerated.
	* generated/maxloc0_4_r4.c: Regenerated.
	* generated/maxloc0_4_r8.c: Regenerated.
	* generated/maxloc0_8_i1.c: Regenerated.
	* generated/maxloc0_8_i16.c: Regenerated.
	* generated/maxloc0_8_i2.c: Regenerated.
	* generated/maxloc0_8_i4.c: Regenerated.
	* generated/maxloc0_8_i8.c: Regenerated.
	* generated/maxloc0_8_r10.c: Regenerated.
	* generated/maxloc0_8_r16.c: Regenerated.
	* generated/maxloc0_8_r4.c: Regenerated.
	* generated/maxloc0_8_r8.c: Regenerated.
	* generated/minloc0_16_i1.c: Regenerated.
	* generated/minloc0_16_i16.c: Regenerated.
	* generated/minloc0_16_i2.c: Regenerated.
	* generated/minloc0_16_i4.c: Regenerated.
	* generated/minloc0_16_i8.c: Regenerated.
	* generated/minloc0_16_r10.c: Regenerated.
	* generated/minloc0_16_r16.c: Regenerated.
	* generated/minloc0_16_r4.c: Regenerated.
	* generated/minloc0_16_r8.c: Regenerated.
	* generated/minloc0_4_i1.c: Regenerated.
	* generated/minloc0_4_i16.c: Regenerated.
	* generated/minloc0_4_i2.c: Regenerated.
	* generated/minloc0_4_i4.c: Regenerated.
	* generated/minloc0_4_i8.c: Regenerated.
	* generated/minloc0_4_r10.c: Regenerated.
	* generated/minloc0_4_r16.c: Regenerated.
	* generated/minloc0_4_r4.c: Regenerated.
	* generated/minloc0_4_r8.c: Regenerated.
	* generated/minloc0_8_i1.c: Regenerated.
	* generated/minloc0_8_i16.c: Regenerated.
	* generated/minloc0_8_i2.c: Regenerated.
	* generated/minloc0_8_i4.c: Regenerated.
	* generated/minloc0_8_i8.c: Regenerated.
	* generated/minloc0_8_r10.c: Regenerated.
	* generated/minloc0_8_r16.c: Regenerated.
	* generated/minloc0_8_r4.c: Regenerated.
	* generated/minloc0_8_r8.c: Regenerated.
	* generated/pack_c10.c: Regenerated.
	* generated/pack_c16.c: Regenerated.
	* generated/pack_c4.c: Regenerated.
	* generated/pack_c8.c: Regenerated.
	* generated/pack_i1.c: Regenerated.
	* generated/pack_i16.c: Regenerated.
	* generated/pack_i2.c: Regenerated.
	* generated/pack_i4.c: Regenerated.
	* generated/pack_i8.c: Regenerated.
	* generated/pack_r10.c: Regenerated.
	* generated/pack_r16.c: Regenerated.
	* generated/pack_r4.c: Regenerated.
	* generated/pack_r8.c: Regenerated.
	* generated/spread_c10.c: Regenerated.
	* generated/spread_c16.c: Regenerated.
	* generated/spread_c4.c: Regenerated.
	* generated/spread_c8.c: Regenerated.
	* generated/spread_i1.c: Regenerated.
	* generated/spread_i16.c: Regenerated.
	* generated/spread_i2.c: Regenerated.
	* generated/spread_i4.c: Regenerated.
	* generated/spread_i8.c: Regenerated.
	* generated/spread_r10.c: Regenerated.
	* generated/spread_r16.c: Regenerated.
	* generated/spread_r4.c: Regenerated.
	* generated/spread_r8.c: Regenerated.
	* generated/transpose_c10.c: Regenerated.
	* generated/transpose_c16.c: Regenerated.
	* generated/transpose_c4.c: Regenerated.
	* generated/transpose_c8.c: Regenerated.
	* generated/transpose_i16.c: Regenerated.
	* generated/transpose_i4.c: Regenerated.
	* generated/transpose_i8.c: Regenerated.
	* generated/transpose_r10.c: Regenerated.
	* generated/transpose_r16.c: Regenerated.
	* generated/transpose_r4.c: Regenerated.
	* generated/transpose_r8.c: Regenerated.
	* generated/unpack_c10.c: Regenerated.
	* generated/unpack_c16.c: Regenerated.
	* generated/unpack_c4.c: Regenerated.
	* generated/unpack_c8.c: Regenerated.
	* generated/unpack_i1.c: Regenerated.
	* generated/unpack_i16.c: Regenerated.
	* generated/unpack_i2.c: Regenerated.
	* generated/unpack_i4.c: Regenerated.
	* generated/unpack_i8.c: Regenerated.
	* generated/unpack_r10.c: Regenerated.
	* generated/unpack_r16.c: Regenerated.
	* generated/unpack_r4.c: Regenerated.
	* generated/unpack_r8.c: Regenerated.

From-SVN: r135512
parent 33ea7fa0
Showing with 102 additions and 101 deletions
libgfortran/generated/eoshift1_16.c
......@@ -49,7 +49,7 @@ eoshift1 (gfc_array_char * const restrict ret,
index_type rstride0;
index_type roffset;
char *rptr;
char *dest;
char * restrict dest;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/eoshift1_4.c
......@@ -49,7 +49,7 @@ eoshift1 (gfc_array_char * const restrict ret,
index_type rstride0;
index_type roffset;
char *rptr;
char *dest;
char * restrict dest;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/eoshift1_8.c
......@@ -49,7 +49,7 @@ eoshift1 (gfc_array_char * const restrict ret,
index_type rstride0;
index_type roffset;
char *rptr;
char *dest;
char * restrict dest;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/eoshift3_16.c
......@@ -49,7 +49,7 @@ eoshift3 (gfc_array_char * const restrict ret,
index_type rstride0;
index_type roffset;
char *rptr;
char *dest;
char * restrict dest;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/eoshift3_4.c
......@@ -49,7 +49,7 @@ eoshift3 (gfc_array_char * const restrict ret,
index_type rstride0;
index_type roffset;
char *rptr;
char *dest;
char * restrict dest;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/eoshift3_8.c
......@@ -49,7 +49,7 @@ eoshift3 (gfc_array_char * const restrict ret,
index_type rstride0;
index_type roffset;
char *rptr;
char *dest;
char * restrict dest;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/in_pack_c10.c
......@@ -48,7 +48,7 @@ internal_pack_c10 (gfc_array_c10 * source)
index_type dim;
index_type ssize;
const GFC_COMPLEX_10 *src;
GFC_COMPLEX_10 *dest;
GFC_COMPLEX_10 * restrict dest;
GFC_COMPLEX_10 *destptr;
int n;
int packed;
......
libgfortran/generated/in_pack_c16.c
......@@ -48,7 +48,7 @@ internal_pack_c16 (gfc_array_c16 * source)
index_type dim;
index_type ssize;
const GFC_COMPLEX_16 *src;
GFC_COMPLEX_16 *dest;
GFC_COMPLEX_16 * restrict dest;
GFC_COMPLEX_16 *destptr;
int n;
int packed;
......
libgfortran/generated/in_pack_c4.c
......@@ -48,7 +48,7 @@ internal_pack_c4 (gfc_array_c4 * source)
index_type dim;
index_type ssize;
const GFC_COMPLEX_4 *src;
GFC_COMPLEX_4 *dest;
GFC_COMPLEX_4 * restrict dest;
GFC_COMPLEX_4 *destptr;
int n;
int packed;
......
libgfortran/generated/in_pack_c8.c
......@@ -48,7 +48,7 @@ internal_pack_c8 (gfc_array_c8 * source)
index_type dim;
index_type ssize;
const GFC_COMPLEX_8 *src;
GFC_COMPLEX_8 *dest;
GFC_COMPLEX_8 * restrict dest;
GFC_COMPLEX_8 *destptr;
int n;
int packed;
......
libgfortran/generated/in_pack_i1.c
......@@ -48,7 +48,7 @@ internal_pack_1 (gfc_array_i1 * source)
index_type dim;
index_type ssize;
const GFC_INTEGER_1 *src;
GFC_INTEGER_1 *dest;
GFC_INTEGER_1 * restrict dest;
GFC_INTEGER_1 *destptr;
int n;
int packed;
......
libgfortran/generated/in_pack_i16.c
......@@ -48,7 +48,7 @@ internal_pack_16 (gfc_array_i16 * source)
index_type dim;
index_type ssize;
const GFC_INTEGER_16 *src;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
GFC_INTEGER_16 *destptr;
int n;
int packed;
......
libgfortran/generated/in_pack_i2.c
......@@ -48,7 +48,7 @@ internal_pack_2 (gfc_array_i2 * source)
index_type dim;
index_type ssize;
const GFC_INTEGER_2 *src;
GFC_INTEGER_2 *dest;
GFC_INTEGER_2 * restrict dest;
GFC_INTEGER_2 *destptr;
int n;
int packed;
......
libgfortran/generated/in_pack_i4.c
......@@ -48,7 +48,7 @@ internal_pack_4 (gfc_array_i4 * source)
index_type dim;
index_type ssize;
const GFC_INTEGER_4 *src;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
GFC_INTEGER_4 *destptr;
int n;
int packed;
......
libgfortran/generated/in_pack_i8.c
......@@ -48,7 +48,7 @@ internal_pack_8 (gfc_array_i8 * source)
index_type dim;
index_type ssize;
const GFC_INTEGER_8 *src;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
GFC_INTEGER_8 *destptr;
int n;
int packed;
......
libgfortran/generated/in_pack_r10.c
......@@ -48,7 +48,7 @@ internal_pack_r10 (gfc_array_r10 * source)
index_type dim;
index_type ssize;
const GFC_REAL_10 *src;
GFC_REAL_10 *dest;
GFC_REAL_10 * restrict dest;
GFC_REAL_10 *destptr;
int n;
int packed;
......
libgfortran/generated/in_pack_r16.c
......@@ -48,7 +48,7 @@ internal_pack_r16 (gfc_array_r16 * source)
index_type dim;
index_type ssize;
const GFC_REAL_16 *src;
GFC_REAL_16 *dest;
GFC_REAL_16 * restrict dest;
GFC_REAL_16 *destptr;
int n;
int packed;
......
libgfortran/generated/in_pack_r4.c
......@@ -48,7 +48,7 @@ internal_pack_r4 (gfc_array_r4 * source)
index_type dim;
index_type ssize;
const GFC_REAL_4 *src;
GFC_REAL_4 *dest;
GFC_REAL_4 * restrict dest;
GFC_REAL_4 *destptr;
int n;
int packed;
......
libgfortran/generated/in_pack_r8.c
......@@ -48,7 +48,7 @@ internal_pack_r8 (gfc_array_r8 * source)
index_type dim;
index_type ssize;
const GFC_REAL_8 *src;
GFC_REAL_8 *dest;
GFC_REAL_8 * restrict dest;
GFC_REAL_8 *destptr;
int n;
int packed;
......
libgfortran/generated/in_unpack_c10.c
......@@ -45,7 +45,7 @@ internal_unpack_c10 (gfc_array_c10 * d, const GFC_COMPLEX_10 * src)
index_type stride0;
index_type dim;
index_type dsize;
GFC_COMPLEX_10 *dest;
GFC_COMPLEX_10 * restrict dest;
int n;
dest = d->data;
......
libgfortran/generated/in_unpack_c16.c
......@@ -45,7 +45,7 @@ internal_unpack_c16 (gfc_array_c16 * d, const GFC_COMPLEX_16 * src)
index_type stride0;
index_type dim;
index_type dsize;
GFC_COMPLEX_16 *dest;
GFC_COMPLEX_16 * restrict dest;
int n;
dest = d->data;
......
libgfortran/generated/in_unpack_c4.c
......@@ -45,7 +45,7 @@ internal_unpack_c4 (gfc_array_c4 * d, const GFC_COMPLEX_4 * src)
index_type stride0;
index_type dim;
index_type dsize;
GFC_COMPLEX_4 *dest;
GFC_COMPLEX_4 * restrict dest;
int n;
dest = d->data;
......
libgfortran/generated/in_unpack_c8.c
......@@ -45,7 +45,7 @@ internal_unpack_c8 (gfc_array_c8 * d, const GFC_COMPLEX_8 * src)
index_type stride0;
index_type dim;
index_type dsize;
GFC_COMPLEX_8 *dest;
GFC_COMPLEX_8 * restrict dest;
int n;
dest = d->data;
......
libgfortran/generated/in_unpack_i1.c
......@@ -45,7 +45,7 @@ internal_unpack_1 (gfc_array_i1 * d, const GFC_INTEGER_1 * src)
index_type stride0;
index_type dim;
index_type dsize;
GFC_INTEGER_1 *dest;
GFC_INTEGER_1 * restrict dest;
int n;
dest = d->data;
......
libgfortran/generated/in_unpack_i16.c
......@@ -45,7 +45,7 @@ internal_unpack_16 (gfc_array_i16 * d, const GFC_INTEGER_16 * src)
index_type stride0;
index_type dim;
index_type dsize;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
int n;
dest = d->data;
......
libgfortran/generated/in_unpack_i2.c
......@@ -45,7 +45,7 @@ internal_unpack_2 (gfc_array_i2 * d, const GFC_INTEGER_2 * src)
index_type stride0;
index_type dim;
index_type dsize;
GFC_INTEGER_2 *dest;
GFC_INTEGER_2 * restrict dest;
int n;
dest = d->data;
......
libgfortran/generated/in_unpack_i4.c
......@@ -45,7 +45,7 @@ internal_unpack_4 (gfc_array_i4 * d, const GFC_INTEGER_4 * src)
index_type stride0;
index_type dim;
index_type dsize;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
int n;
dest = d->data;
......
libgfortran/generated/in_unpack_i8.c
......@@ -45,7 +45,7 @@ internal_unpack_8 (gfc_array_i8 * d, const GFC_INTEGER_8 * src)
index_type stride0;
index_type dim;
index_type dsize;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
int n;
dest = d->data;
......
libgfortran/generated/in_unpack_r10.c
......@@ -45,7 +45,7 @@ internal_unpack_r10 (gfc_array_r10 * d, const GFC_REAL_10 * src)
index_type stride0;
index_type dim;
index_type dsize;
GFC_REAL_10 *dest;
GFC_REAL_10 * restrict dest;
int n;
dest = d->data;
......
libgfortran/generated/in_unpack_r16.c
......@@ -45,7 +45,7 @@ internal_unpack_r16 (gfc_array_r16 * d, const GFC_REAL_16 * src)
index_type stride0;
index_type dim;
index_type dsize;
GFC_REAL_16 *dest;
GFC_REAL_16 * restrict dest;
int n;
dest = d->data;
......
libgfortran/generated/in_unpack_r4.c
......@@ -45,7 +45,7 @@ internal_unpack_r4 (gfc_array_r4 * d, const GFC_REAL_4 * src)
index_type stride0;
index_type dim;
index_type dsize;
GFC_REAL_4 *dest;
GFC_REAL_4 * restrict dest;
int n;
dest = d->data;
......
libgfortran/generated/in_unpack_r8.c
......@@ -45,7 +45,7 @@ internal_unpack_r8 (gfc_array_r8 * d, const GFC_REAL_8 * src)
index_type stride0;
index_type dim;
index_type dsize;
GFC_REAL_8 *dest;
GFC_REAL_8 * restrict dest;
int n;
dest = d->data;
......
libgfortran/generated/maxloc0_16_i1.c
......@@ -50,7 +50,7 @@ maxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_1 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_16_i16.c
......@@ -50,7 +50,7 @@ maxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_16 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_16_i2.c
......@@ -50,7 +50,7 @@ maxloc0_16_i2 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_2 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_16_i4.c
......@@ -50,7 +50,7 @@ maxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_4 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_16_i8.c
......@@ -50,7 +50,7 @@ maxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_8 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_16_r10.c
......@@ -50,7 +50,7 @@ maxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_10 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_16_r16.c
......@@ -50,7 +50,7 @@ maxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_16 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_16_r4.c
......@@ -50,7 +50,7 @@ maxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_4 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_16_r8.c
......@@ -50,7 +50,7 @@ maxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_8 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_4_i1.c
......@@ -50,7 +50,7 @@ maxloc0_4_i1 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_1 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_4_i16.c
......@@ -50,7 +50,7 @@ maxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_16 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_4_i2.c
......@@ -50,7 +50,7 @@ maxloc0_4_i2 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_2 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_4_i4.c
......@@ -50,7 +50,7 @@ maxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_4 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_4_i8.c
......@@ -50,7 +50,7 @@ maxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_8 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_4_r10.c
......@@ -50,7 +50,7 @@ maxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_10 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_4_r16.c
......@@ -50,7 +50,7 @@ maxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_16 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_4_r4.c
......@@ -50,7 +50,7 @@ maxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_4 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_4_r8.c
......@@ -50,7 +50,7 @@ maxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_8 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_8_i1.c
......@@ -50,7 +50,7 @@ maxloc0_8_i1 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_1 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_8_i16.c
......@@ -50,7 +50,7 @@ maxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_16 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_8_i2.c
......@@ -50,7 +50,7 @@ maxloc0_8_i2 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_2 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_8_i4.c
......@@ -50,7 +50,7 @@ maxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_4 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_8_i8.c
......@@ -50,7 +50,7 @@ maxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_8 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_8_r10.c
......@@ -50,7 +50,7 @@ maxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_10 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_8_r16.c
......@@ -50,7 +50,7 @@ maxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_16 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_8_r4.c
......@@ -50,7 +50,7 @@ maxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_4 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/maxloc0_8_r8.c
......@@ -50,7 +50,7 @@ maxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_8 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_16_i1.c
......@@ -50,7 +50,7 @@ minloc0_16_i1 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_1 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_16_i16.c
......@@ -50,7 +50,7 @@ minloc0_16_i16 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_16 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_16_i2.c
......@@ -50,7 +50,7 @@ minloc0_16_i2 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_2 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_16_i4.c
......@@ -50,7 +50,7 @@ minloc0_16_i4 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_4 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_16_i8.c
......@@ -50,7 +50,7 @@ minloc0_16_i8 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_8 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_16_r10.c
......@@ -50,7 +50,7 @@ minloc0_16_r10 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_10 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_16_r16.c
......@@ -50,7 +50,7 @@ minloc0_16_r16 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_16 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_16_r4.c
......@@ -50,7 +50,7 @@ minloc0_16_r4 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_4 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_16_r8.c
......@@ -50,7 +50,7 @@ minloc0_16_r8 (gfc_array_i16 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_8 *base;
GFC_INTEGER_16 *dest;
GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_4_i1.c
......@@ -50,7 +50,7 @@ minloc0_4_i1 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_1 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_4_i16.c
......@@ -50,7 +50,7 @@ minloc0_4_i16 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_16 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_4_i2.c
......@@ -50,7 +50,7 @@ minloc0_4_i2 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_2 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_4_i4.c
......@@ -50,7 +50,7 @@ minloc0_4_i4 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_4 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_4_i8.c
......@@ -50,7 +50,7 @@ minloc0_4_i8 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_8 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_4_r10.c
......@@ -50,7 +50,7 @@ minloc0_4_r10 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_10 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_4_r16.c
......@@ -50,7 +50,7 @@ minloc0_4_r16 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_16 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_4_r4.c
......@@ -50,7 +50,7 @@ minloc0_4_r4 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_4 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_4_r8.c
......@@ -50,7 +50,7 @@ minloc0_4_r8 (gfc_array_i4 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_8 *base;
GFC_INTEGER_4 *dest;
GFC_INTEGER_4 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_8_i1.c
......@@ -50,7 +50,7 @@ minloc0_8_i1 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_1 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_8_i16.c
......@@ -50,7 +50,7 @@ minloc0_8_i16 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_16 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_8_i2.c
......@@ -50,7 +50,7 @@ minloc0_8_i2 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_2 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_8_i4.c
......@@ -50,7 +50,7 @@ minloc0_8_i4 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_4 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_8_i8.c
......@@ -50,7 +50,7 @@ minloc0_8_i8 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_INTEGER_8 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_8_r10.c
......@@ -50,7 +50,7 @@ minloc0_8_r10 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_10 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_8_r16.c
......@@ -50,7 +50,7 @@ minloc0_8_r16 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_16 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_8_r4.c
......@@ -50,7 +50,7 @@ minloc0_8_r4 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_4 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/minloc0_8_r8.c
......@@ -50,7 +50,7 @@ minloc0_8_r8 (gfc_array_i8 * const restrict retarray,
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_8 *base;
GFC_INTEGER_8 *dest;
GFC_INTEGER_8 * restrict dest;
index_type rank;
index_type n;
......
libgfortran/generated/pack_c10.c
......@@ -82,7 +82,7 @@ pack_c10 (gfc_array_c10 *ret, const gfc_array_c10 *array,
{
/* r.* indicates the return array. */
index_type rstride0;
GFC_COMPLEX_10 *rptr;
GFC_COMPLEX_10 * restrict rptr;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/pack_c16.c
......@@ -82,7 +82,7 @@ pack_c16 (gfc_array_c16 *ret, const gfc_array_c16 *array,
{
/* r.* indicates the return array. */
index_type rstride0;
GFC_COMPLEX_16 *rptr;
GFC_COMPLEX_16 * restrict rptr;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/pack_c4.c
......@@ -82,7 +82,7 @@ pack_c4 (gfc_array_c4 *ret, const gfc_array_c4 *array,
{
/* r.* indicates the return array. */
index_type rstride0;
GFC_COMPLEX_4 *rptr;
GFC_COMPLEX_4 * restrict rptr;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/pack_c8.c
......@@ -82,7 +82,7 @@ pack_c8 (gfc_array_c8 *ret, const gfc_array_c8 *array,
{
/* r.* indicates the return array. */
index_type rstride0;
GFC_COMPLEX_8 *rptr;
GFC_COMPLEX_8 * restrict rptr;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/pack_i1.c
......@@ -82,7 +82,7 @@ pack_i1 (gfc_array_i1 *ret, const gfc_array_i1 *array,
{
/* r.* indicates the return array. */
index_type rstride0;
GFC_INTEGER_1 *rptr;
GFC_INTEGER_1 * restrict rptr;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/pack_i16.c
......@@ -82,7 +82,7 @@ pack_i16 (gfc_array_i16 *ret, const gfc_array_i16 *array,
{
/* r.* indicates the return array. */
index_type rstride0;
GFC_INTEGER_16 *rptr;
GFC_INTEGER_16 * restrict rptr;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/pack_i2.c
......@@ -82,7 +82,7 @@ pack_i2 (gfc_array_i2 *ret, const gfc_array_i2 *array,
{
/* r.* indicates the return array. */
index_type rstride0;
GFC_INTEGER_2 *rptr;
GFC_INTEGER_2 * restrict rptr;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/pack_i4.c
......@@ -82,7 +82,7 @@ pack_i4 (gfc_array_i4 *ret, const gfc_array_i4 *array,
{
/* r.* indicates the return array. */
index_type rstride0;
GFC_INTEGER_4 *rptr;
GFC_INTEGER_4 * restrict rptr;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/pack_i8.c
......@@ -82,7 +82,7 @@ pack_i8 (gfc_array_i8 *ret, const gfc_array_i8 *array,
{
/* r.* indicates the return array. */
index_type rstride0;
GFC_INTEGER_8 *rptr;
GFC_INTEGER_8 * restrict rptr;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/pack_r10.c
......@@ -82,7 +82,7 @@ pack_r10 (gfc_array_r10 *ret, const gfc_array_r10 *array,
{
/* r.* indicates the return array. */
index_type rstride0;
GFC_REAL_10 *rptr;
GFC_REAL_10 * restrict rptr;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/pack_r16.c
......@@ -82,7 +82,7 @@ pack_r16 (gfc_array_r16 *ret, const gfc_array_r16 *array,
{
/* r.* indicates the return array. */
index_type rstride0;
GFC_REAL_16 *rptr;
GFC_REAL_16 * restrict rptr;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/pack_r4.c
......@@ -82,7 +82,7 @@ pack_r4 (gfc_array_r4 *ret, const gfc_array_r4 *array,
{
/* r.* indicates the return array. */
index_type rstride0;
GFC_REAL_4 *rptr;
GFC_REAL_4 * restrict rptr;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/pack_r8.c
......@@ -82,7 +82,7 @@ pack_r8 (gfc_array_r8 *ret, const gfc_array_r8 *array,
{
/* r.* indicates the return array. */
index_type rstride0;
GFC_REAL_8 *rptr;
GFC_REAL_8 * restrict rptr;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......
libgfortran/generated/spread_c10.c
......@@ -48,7 +48,7 @@ spread_c10 (gfc_array_c10 *ret, const gfc_array_c10 *source,
index_type rrank;
index_type rs;
GFC_COMPLEX_10 *rptr;
GFC_COMPLEX_10 *dest;
GFC_COMPLEX_10 * restrict dest;
/* s.* indicates the source array. */
index_type sstride[GFC_MAX_DIMENSIONS];
index_type sstride0;
......@@ -240,7 +240,7 @@ spread_scalar_c10 (gfc_array_c10 *ret, const GFC_COMPLEX_10 *source,
{
int n;
int ncopies = pncopies;
GFC_COMPLEX_10 * dest;
GFC_COMPLEX_10 * restrict dest;
index_type stride;
if (GFC_DESCRIPTOR_RANK (ret) != 1)
......@@ -275,3 +275,4 @@ spread_scalar_c10 (gfc_array_c10 *ret, const GFC_COMPLEX_10 *source,
}
#endif
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment