Skip to content

R
riscv-gcc-1
Commit 7672ae20 by Andreas Jaeger Committed by Andreas Jaeger
Options

eoshift1.m4: Initialize variables to avoid warnings. 

	* m4/eoshift1.m4: Initialize variables to avoid warnings.
	* m4/eoshift3.m4: Initialize variables to avoid warnings.
	* generated/eoshift1_4.c, generated/eoshift1_8.c,
	generated/eoshift3_4.c, generated/eoshift3_8.c: Regenerated.

	* intrinsics/spread_generic.c (spread): Initialize variables to
	avoid warnings.

	* intrinsics/eoshift0.c (eoshift0): Initialize variables to avoid
	warnings.
	* intrinsics/eoshift2.c (eoshift2): Initialize variables to avoid
	warnings.

	* io/list_read.c (nml_get_obj_data): Initialize variables to avoid
	warnings.

From-SVN: r99726
parent 7d3cdba1
Showing with 76 additions and 14 deletions
libgfortran/ChangeLog
2005-05-15 Andreas Jaeger <aj@suse.de> 2005-05-15 Andreas Jaeger <aj@suse.de>
* m4/eoshift1.m4: Initialize variables to avoid warnings.
* m4/eoshift3.m4: Initialize variables to avoid warnings.
* generated/eoshift1_4.c, generated/eoshift1_8.c,
generated/eoshift3_4.c, generated/eoshift3_8.c: Regenerated.
* intrinsics/spread_generic.c (spread): Initialize variables to
avoid warnings.
* intrinsics/eoshift0.c (eoshift0): Initialize variables to avoid
warnings.
* intrinsics/eoshift2.c (eoshift2): Initialize variables to avoid
warnings.
* io/list_read.c (nml_get_obj_data): Initialize variables to avoid
warnings.
* intrinsics/pack_generic.c (pack): Remove unneeded calculation. * intrinsics/pack_generic.c (pack): Remove unneeded calculation.
* m4/matmull.m4 (matmul_): Remove unneeded calculations, fix * m4/matmull.m4 (matmul_): Remove unneeded calculations, fix
......
libgfortran/generated/eoshift1_4.c
/* Implementation of the EOSHIFT intrinsic /* Implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc. Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org> Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran). This file is part of the GNU Fortran 95 runtime library (libgfortran).
...@@ -76,6 +76,12 @@ eoshift1_4 (const gfc_array_char *ret, ...@@ -76,6 +76,12 @@ eoshift1_4 (const gfc_array_char *ret,
GFC_INTEGER_4 sh; GFC_INTEGER_4 sh;
GFC_INTEGER_4 delta; GFC_INTEGER_4 delta;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
if (pwhich) if (pwhich)
which = *pwhich - 1; which = *pwhich - 1;
else else
......
libgfortran/generated/eoshift1_8.c
/* Implementation of the EOSHIFT intrinsic /* Implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc. Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org> Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran). This file is part of the GNU Fortran 95 runtime library (libgfortran).
...@@ -76,6 +76,12 @@ eoshift1_8 (const gfc_array_char *ret, ...@@ -76,6 +76,12 @@ eoshift1_8 (const gfc_array_char *ret,
GFC_INTEGER_8 sh; GFC_INTEGER_8 sh;
GFC_INTEGER_8 delta; GFC_INTEGER_8 delta;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
if (pwhich) if (pwhich)
which = *pwhich - 1; which = *pwhich - 1;
else else
......
libgfortran/generated/eoshift3_4.c
/* Implementation of the EOSHIFT intrinsic /* Implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc. Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org> Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran). This file is part of the GNU Fortran 95 runtime library (libgfortran).
...@@ -78,6 +78,12 @@ eoshift3_4 (gfc_array_char *ret, gfc_array_char *array, ...@@ -78,6 +78,12 @@ eoshift3_4 (gfc_array_char *ret, gfc_array_char *array,
GFC_INTEGER_4 sh; GFC_INTEGER_4 sh;
GFC_INTEGER_4 delta; GFC_INTEGER_4 delta;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
if (pwhich) if (pwhich)
which = *pwhich - 1; which = *pwhich - 1;
else else
......
libgfortran/generated/eoshift3_8.c
/* Implementation of the EOSHIFT intrinsic /* Implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc. Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org> Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran). This file is part of the GNU Fortran 95 runtime library (libgfortran).
...@@ -78,6 +78,12 @@ eoshift3_8 (gfc_array_char *ret, gfc_array_char *array, ...@@ -78,6 +78,12 @@ eoshift3_8 (gfc_array_char *ret, gfc_array_char *array,
GFC_INTEGER_8 sh; GFC_INTEGER_8 sh;
GFC_INTEGER_8 delta; GFC_INTEGER_8 delta;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
if (pwhich) if (pwhich)
which = *pwhich - 1; which = *pwhich - 1;
else else
......
libgfortran/intrinsics/eoshift0.c
/* Generic implementation of the EOSHIFT intrinsic /* Generic implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc. Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org> Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran). This file is part of the GNU Fortran 95 runtime library (libgfortran).
...@@ -64,6 +64,12 @@ eoshift0 (gfc_array_char * ret, const gfc_array_char * array, ...@@ -64,6 +64,12 @@ eoshift0 (gfc_array_char * ret, const gfc_array_char * array,
index_type len; index_type len;
index_type n; index_type n;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
if (!pbound) if (!pbound)
pbound = zeros; pbound = zeros;
...@@ -251,4 +257,3 @@ eoshift0_8 (gfc_array_char *ret, const gfc_array_char *array, ...@@ -251,4 +257,3 @@ eoshift0_8 (gfc_array_char *ret, const gfc_array_char *array,
{ {
eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1); eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1);
} }
libgfortran/intrinsics/eoshift2.c
/* Generic implementation of the EOSHIFT intrinsic /* Generic implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc. Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org> Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran). This file is part of the GNU Fortran 95 runtime library (libgfortran).
...@@ -68,6 +68,12 @@ eoshift2 (gfc_array_char *ret, const gfc_array_char *array, ...@@ -68,6 +68,12 @@ eoshift2 (gfc_array_char *ret, const gfc_array_char *array,
index_type len; index_type len;
index_type n; index_type n;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
size = GFC_DESCRIPTOR_SIZE (ret); size = GFC_DESCRIPTOR_SIZE (ret);
if (ret->data == NULL) if (ret->data == NULL)
...@@ -267,4 +273,3 @@ eoshift2_8 (gfc_array_char *ret, const gfc_array_char *array, ...@@ -267,4 +273,3 @@ eoshift2_8 (gfc_array_char *ret, const gfc_array_char *array,
{ {
eoshift2 (ret, array, *pshift, bound, pdim ? *pdim : 1); eoshift2 (ret, array, *pshift, bound, pdim ? *pdim : 1);
} }
libgfortran/intrinsics/spread_generic.c
/* Generic implementation of the SPREAD intrinsic /* Generic implementation of the SPREAD intrinsic
Copyright 2002 Free Software Foundation, Inc. Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org> Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran). This file is part of the GNU Fortran 95 runtime library (libgfortran).
...@@ -45,7 +45,7 @@ spread (gfc_array_char *ret, const gfc_array_char *source, ...@@ -45,7 +45,7 @@ spread (gfc_array_char *ret, const gfc_array_char *source,
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS]; index_type rstride[GFC_MAX_DIMENSIONS];
index_type rstride0; index_type rstride0;
index_type rdelta; index_type rdelta = 0;
index_type rrank; index_type rrank;
index_type rs; index_type rs;
char *rptr; char *rptr;
......
libgfortran/io/list_read.c
...@@ -2026,8 +2026,8 @@ nml_get_obj_data (void) ...@@ -2026,8 +2026,8 @@ nml_get_obj_data (void)
char c; char c;
char * ext_name; char * ext_name;
namelist_info * nl; namelist_info * nl;
namelist_info * first_nl; namelist_info * first_nl = NULL;
namelist_info * root_nl; namelist_info * root_nl = NULL;
int dim; int dim;
int component_flag; int component_flag;
......
libgfortran/m4/eoshift1.m4
`/* Implementation of the EOSHIFT intrinsic `/* Implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc. Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org> Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran). This file is part of the GNU Fortran 95 runtime library (libgfortran).
...@@ -77,6 +77,12 @@ eoshift1_`'atype_kind (const gfc_array_char *ret, ...@@ -77,6 +77,12 @@ eoshift1_`'atype_kind (const gfc_array_char *ret,
atype_name sh; atype_name sh;
atype_name delta; atype_name delta;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
if (pwhich) if (pwhich)
which = *pwhich - 1; which = *pwhich - 1;
else else
......
libgfortran/m4/eoshift3.m4
`/* Implementation of the EOSHIFT intrinsic `/* Implementation of the EOSHIFT intrinsic
Copyright 2002 Free Software Foundation, Inc. Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org> Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran). This file is part of the GNU Fortran 95 runtime library (libgfortran).
...@@ -79,6 +79,12 @@ eoshift3_`'atype_kind (gfc_array_char *ret, gfc_array_char *array, ...@@ -79,6 +79,12 @@ eoshift3_`'atype_kind (gfc_array_char *ret, gfc_array_char *array,
atype_name sh; atype_name sh;
atype_name delta; atype_name delta;
/* The compiler cannot figure out that these are set, initialize
them to avoid warnings. */
len = 0;
soffset = 0;
roffset = 0;
if (pwhich) if (pwhich)
which = *pwhich - 1; which = *pwhich - 1;
else else
......
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