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

libgfortran ChangeLog:

Browse source 
2005-11-27  Janne Blomqvist  <jb@gcc.gnu.org>

	* m4/*: Add const restrict to function arguments.
	* generated/*.c: Regenerate.

From-SVN: r107573
This commit is contained in:
Janne Blomqvist 2005-11-27 23:03:33 +02:00
parent 949446f557
commit 64acfd9910
186 changed files with 2734 additions and 1838 deletions
Download patch file Download diff file Expand all files Collapse all files

18
libgfortran/generated/minloc0_16_r16.c
View file

@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16)
extern void minloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array);
extern void minloc0_16_r16 (gfc_array_i16 * const restrict retarray,
gfc_array_r16 * const restrict array);
export_proto(minloc0_16_r16);
void
minloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array)
minloc0_16_r16 (gfc_array_i16 * const restrict retarray,
gfc_array_r16 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_REAL_16 *base;
const GFC_REAL_16 *base;
GFC_INTEGER_16 *dest;
index_type rank;
index_type n;
@ -154,12 +156,14 @@ minloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array)
}
extern void mminloc0_16_r16 (gfc_array_i16 *, gfc_array_r16 *, gfc_array_l4 *);
extern void mminloc0_16_r16 (gfc_array_i16 * const restrict,
gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
export_proto(mminloc0_16_r16);
void
mminloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array,
gfc_array_l4 * mask)
mminloc0_16_r16 (gfc_array_i16 * const restrict retarray,
gfc_array_r16 * const restrict array,
gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
@ -167,7 +171,7 @@ mminloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array,
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_16 *dest;
GFC_REAL_16 *base;
const GFC_REAL_16 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;