OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

normalize.c (almostone_r4, [...]): Fix parameter list. 

* runtime/normalize.c (almostone_r4, almostone_r8): Fix parameter
	list.

	* intrinsics/random.c (KISS_DEFAULT_SEED): Remove extra semicolon.

	* io/transfer.c: Do not use empty initializers for global objects.
	Add missing initializers.

	* io/lock.c: Do not use empty initializers for global objects.

	* io/close.c: Add missing initializers.

	* runtime/environ.c: Add missing initializers. Do not use empty
	initializers for global object.
	(init_string): Mark argument as unused.

	* runtime/main.c (cleanup): Fix parameter list.

	* io/io.h: Fix parameter lists.

	* m4/transpose.m4, m4/matmul.m4: Fix pointer cast to avoid
	warning.

	* generated/transpose_c4.c, generated/transpose_c8.c,
	generated/transpose_i4.c, generated/transpose_i8.c,
	generated/matmul_c4.c, generated/matmul_c8.c,
	generated/matmul_i4.c, generated/matmul_i8.c,
	generated/matmul_r4.c, generated/matmul_r8.c: Regenerated.

	* io/write.c (nml_write_obj): Fix 64-bit problem.

	* io/list_read.c (nml_get_obj_data): Add missing braces around
	initializer to avoid warnings.

	* intrinsics/etime.c (etime_sub): Remove unused variable.

From-SVN: r99719
This commit is contained in:
Andreas Jaeger 2005-05-15 14:44:42 +02:00 committed by Andreas Jaeger
parent deeab82073
commit 4b6903ec2f
26 changed files with 117 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
libgfortran/ChangeLog
View File

@ -1,5 +1,41 @@
2005-05-15 Andreas Jaeger <aj@suse.de>
* runtime/normalize.c (almostone_r4, almostone_r8): Fix parameter
list.
* intrinsics/random.c (KISS_DEFAULT_SEED): Remove extra semicolon.
* io/transfer.c: Do not use empty initializers for global objects.
Add missing initializers.
* io/lock.c: Do not use empty initializers for global objects.
* io/close.c: Add missing initializers.
* runtime/environ.c: Add missing initializers. Do not use empty
initializers for global object.
(init_string): Mark argument as unused.
* runtime/main.c (cleanup): Fix parameter list.
* io/io.h: Fix parameter lists.
* m4/transpose.m4, m4/matmul.m4: Fix pointer cast to avoid
warning.
* generated/transpose_c4.c, generated/transpose_c8.c,
generated/transpose_i4.c, generated/transpose_i8.c,
generated/matmul_c4.c, generated/matmul_c8.c,
generated/matmul_i4.c, generated/matmul_i8.c,
generated/matmul_r4.c, generated/matmul_r8.c: Regenerated.
* io/write.c (nml_write_obj): Fix 64-bit problem.
* io/list_read.c (nml_get_obj_data): Add missing braces around
initializer to avoid warnings.
* intrinsics/etime.c (etime_sub): Remove unused variable.
* intrinsics/chdir.c, intrinsics/getlog.c, intrinsics/link.c,
intrinsics/symlnk.c, intrinsics/perror.c: Include <string.h> for
prototypes.

6
libgfortran/generated/matmul_c4.c
View File

@ -1,5 +1,5 @@
/* Implementation of the MATMUL intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -99,7 +99,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 (retarray));
= internal_malloc_size (sizeof (GFC_COMPLEX_4) * size0 ((array_t *) retarray));
retarray->base = 0;
}
@ -178,7 +178,7 @@ matmul_c4 (gfc_array_c4 * retarray, gfc_array_c4 * a, gfc_array_c4 * b)
GFC_COMPLEX_4 *abase_n;
GFC_COMPLEX_4 bbase_yn;
memset (dest, 0, (sizeof (GFC_COMPLEX_4) * size0(retarray)));
memset (dest, 0, (sizeof (GFC_COMPLEX_4) * size0((array_t *) retarray)));
for (y = 0; y < ycount; y++)
{

6
libgfortran/generated/matmul_c8.c
View File

@ -1,5 +1,5 @@
/* Implementation of the MATMUL intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -99,7 +99,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 (retarray));
= internal_malloc_size (sizeof (GFC_COMPLEX_8) * size0 ((array_t *) retarray));
retarray->base = 0;
}
@ -178,7 +178,7 @@ matmul_c8 (gfc_array_c8 * retarray, gfc_array_c8 * a, gfc_array_c8 * b)
GFC_COMPLEX_8 *abase_n;
GFC_COMPLEX_8 bbase_yn;
memset (dest, 0, (sizeof (GFC_COMPLEX_8) * size0(retarray)));
memset (dest, 0, (sizeof (GFC_COMPLEX_8) * size0((array_t *) retarray)));
for (y = 0; y < ycount; y++)
{

6
libgfortran/generated/matmul_i4.c
View File

@ -1,5 +1,5 @@
/* Implementation of the MATMUL intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -99,7 +99,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 (retarray));
= internal_malloc_size (sizeof (GFC_INTEGER_4) * size0 ((array_t *) retarray));
retarray->base = 0;
}
@ -178,7 +178,7 @@ matmul_i4 (gfc_array_i4 * retarray, gfc_array_i4 * a, gfc_array_i4 * b)
GFC_INTEGER_4 *abase_n;
GFC_INTEGER_4 bbase_yn;
memset (dest, 0, (sizeof (GFC_INTEGER_4) * size0(retarray)));
memset (dest, 0, (sizeof (GFC_INTEGER_4) * size0((array_t *) retarray)));
for (y = 0; y < ycount; y++)
{

6
libgfortran/generated/matmul_i8.c
View File

@ -1,5 +1,5 @@
/* Implementation of the MATMUL intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -99,7 +99,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 (retarray));
= internal_malloc_size (sizeof (GFC_INTEGER_8) * size0 ((array_t *) retarray));
retarray->base = 0;
}
@ -178,7 +178,7 @@ matmul_i8 (gfc_array_i8 * retarray, gfc_array_i8 * a, gfc_array_i8 * b)
GFC_INTEGER_8 *abase_n;
GFC_INTEGER_8 bbase_yn;
memset (dest, 0, (sizeof (GFC_INTEGER_8) * size0(retarray)));
memset (dest, 0, (sizeof (GFC_INTEGER_8) * size0((array_t *) retarray)));
for (y = 0; y < ycount; y++)
{

6
libgfortran/generated/matmul_l4.c
View File

@ -1,5 +1,5 @@
/* Implementation of the MATMUL intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -90,7 +90,7 @@ matmul_l4 (gfc_array_l4 * retarray, gfc_array_l4 * a, gfc_array_l4 * b)
}
retarray->data
= internal_malloc_size (sizeof (GFC_LOGICAL_4) * size0 (retarray));
= internal_malloc_size (sizeof (GFC_LOGICAL_4) * size0 ((array_t *) retarray));
retarray->base = 0;
}
@ -99,14 +99,12 @@ matmul_l4 (gfc_array_l4 * retarray, gfc_array_l4 * a, gfc_array_l4 * b)
{
assert (GFC_DESCRIPTOR_SIZE (a) == 8);
abase = GFOR_POINTER_L8_TO_L4 (abase);
astride <<= 1;
}
bbase = b->data;
if (GFC_DESCRIPTOR_SIZE (b) != 4)
{
assert (GFC_DESCRIPTOR_SIZE (b) == 8);
bbase = GFOR_POINTER_L8_TO_L4 (bbase);
bstride <<= 1;
}
dest = retarray->data;

6
libgfortran/generated/matmul_l8.c
View File

@ -1,5 +1,5 @@
/* Implementation of the MATMUL intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -90,7 +90,7 @@ matmul_l8 (gfc_array_l8 * retarray, gfc_array_l4 * a, gfc_array_l4 * b)
}
retarray->data
= internal_malloc_size (sizeof (GFC_LOGICAL_8) * size0 (retarray));
= internal_malloc_size (sizeof (GFC_LOGICAL_8) * size0 ((array_t *) retarray));
retarray->base = 0;
}
@ -99,14 +99,12 @@ matmul_l8 (gfc_array_l8 * retarray, gfc_array_l4 * a, gfc_array_l4 * b)
{
assert (GFC_DESCRIPTOR_SIZE (a) == 8);
abase = GFOR_POINTER_L8_TO_L4 (abase);
astride <<= 1;
}
bbase = b->data;
if (GFC_DESCRIPTOR_SIZE (b) != 4)
{
assert (GFC_DESCRIPTOR_SIZE (b) == 8);
bbase = GFOR_POINTER_L8_TO_L4 (bbase);
bstride <<= 1;
}
dest = retarray->data;

6
libgfortran/generated/matmul_r4.c
View File

@ -1,5 +1,5 @@
/* Implementation of the MATMUL intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -99,7 +99,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 (retarray));
= internal_malloc_size (sizeof (GFC_REAL_4) * size0 ((array_t *) retarray));
retarray->base = 0;
}
@ -178,7 +178,7 @@ matmul_r4 (gfc_array_r4 * retarray, gfc_array_r4 * a, gfc_array_r4 * b)
GFC_REAL_4 *abase_n;
GFC_REAL_4 bbase_yn;
memset (dest, 0, (sizeof (GFC_REAL_4) * size0(retarray)));
memset (dest, 0, (sizeof (GFC_REAL_4) * size0((array_t *) retarray)));
for (y = 0; y < ycount; y++)
{

6
libgfortran/generated/matmul_r8.c
View File

@ -1,5 +1,5 @@
/* Implementation of the MATMUL intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -99,7 +99,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 (retarray));
= internal_malloc_size (sizeof (GFC_REAL_8) * size0 ((array_t *) retarray));
retarray->base = 0;
}
@ -178,7 +178,7 @@ matmul_r8 (gfc_array_r8 * retarray, gfc_array_r8 * a, gfc_array_r8 * b)
GFC_REAL_8 *abase_n;
GFC_REAL_8 bbase_yn;
memset (dest, 0, (sizeof (GFC_REAL_8) * size0(retarray)));
memset (dest, 0, (sizeof (GFC_REAL_8) * size0((array_t *) retarray)));
for (y = 0; y < ycount; y++)
{

2
libgfortran/generated/transpose_c4.c
View File

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

2
libgfortran/generated/transpose_c8.c
View File

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

2
libgfortran/generated/transpose_i4.c
View File

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

2
libgfortran/generated/transpose_i8.c
View File

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

3
libgfortran/intrinsics/etime.c
View File

@ -1,5 +1,5 @@
/* Implementation of the ETIME intrinsic.
Copyright (C) 2004 Free Software Foundation, Inc.
Copyright (C) 2004, 2005 Free Software Foundation, Inc.
Contributed by Steven G. Kargl <kargls@comcast.net>.
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -46,7 +46,6 @@ void
etime_sub (gfc_array_r4 *t, GFC_REAL_4 *result)
{
GFC_REAL_4 tu, ts, tt, *tp;
index_type dim;
#if defined(HAVE_SYS_TIME_H) && defined(HAVE_SYS_RESOURCE_H)
struct rusage rt;

4
libgfortran/intrinsics/random.c
View File

@ -1,5 +1,5 @@
/* Implementation of the RANDOM intrinsics
Copyright 2002, 2004 Free Software Foundation, Inc.
Copyright 2002, 2004, 2005 Free Software Foundation, Inc.
Contributed by Lars Segerlund <seger@linuxmail.org>
and Steve Kargl.
@ -440,7 +440,7 @@ KISS algorithm. */
#define GFC_SR(k, n) ((k)^((k)>>(n)))
static const GFC_INTEGER_4 kiss_size = 4;
#define KISS_DEFAULT_SEED {123456789, 362436069, 521288629, 916191069};
#define KISS_DEFAULT_SEED {123456789, 362436069, 521288629, 916191069}
static const GFC_UINTEGER_4 kiss_default_seed[4] = KISS_DEFAULT_SEED;
static GFC_UINTEGER_4 kiss_seed[4] = KISS_DEFAULT_SEED;

4
libgfortran/io/close.c
View File

@ -1,4 +1,4 @@
/* Copyright (C) 2002-2003 Free Software Foundation, Inc.
/* Copyright (C) 2002, 2003, 2005 Free Software Foundation, Inc.
Contributed by Andy Vaught
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -38,7 +38,7 @@ close_status;
static st_option status_opt[] = {
{"keep", CLOSE_KEEP},
{"delete", CLOSE_DELETE},
{NULL}
{NULL, 0}
};

6
libgfortran/io/io.h
View File

@ -597,13 +597,13 @@ internal_proto(list_formatted_read);
extern void finish_list_read (void);
internal_proto(finish_list_read);
extern void init_at_eol();
extern void init_at_eol (void);
internal_proto(init_at_eol);
extern void namelist_read();
extern void namelist_read (void);
internal_proto(namelist_read);
extern void namelist_write();
extern void namelist_write (void);
internal_proto(namelist_write);
/* write.c */

4
libgfortran/io/list_read.c
View File

@ -2188,8 +2188,8 @@ get_name:
if (c == '(' && nl->type == GFC_DTYPE_CHARACTER)
{
descriptor_dimension chd[1] = {1, clow, nl->string_length};
nml_loop_spec ind[1] = {1, clow, nl->string_length, 1};
descriptor_dimension chd[1] = { {1, clow, nl->string_length} };
nml_loop_spec ind[1] = { {1, clow, nl->string_length, 1} };
if (nml_parse_qualifier (chd, ind, 1) == FAILURE)
{

6
libgfortran/io/lock.c
View File

@ -33,11 +33,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h"
#include "io.h"
st_parameter ioparm = { };
st_parameter ioparm;
iexport_data(ioparm);
namelist_info *ionml = 0;
global_t g = { };
namelist_info *ionml;
global_t g;
/* library_start()-- Called with a library call is entered. */

4
libgfortran/io/transfer.c
View File

@ -82,7 +82,7 @@ gfc_unit *current_unit = NULL;
static int sf_seen_eor = 0;
static int eor_condition = 0;
char scratch[SCRATCH_SIZE] = { };
char scratch[SCRATCH_SIZE];
static char *line_buffer = NULL;
static unit_advance advance_status;
@ -90,7 +90,7 @@ static unit_advance advance_status;
static st_option advance_opt[] = {
{"yes", ADVANCE_YES},
{"no", ADVANCE_NO},
{NULL}
{NULL, 0}
};

2
libgfortran/io/write.c
View File

@ -1490,7 +1490,7 @@ nml_write_obj (namelist_info * obj, index_type offset,
{
strcat (ext_name, dim_i ? "" : "(");
clen = strlen (ext_name);
st_sprintf (ext_name + clen, "%d", obj->ls[dim_i].idx);
st_sprintf (ext_name + clen, "%ld", (long) obj->ls[dim_i].idx);
strcat (ext_name, (dim_i == obj->var_rank - 1) ? ")" : ",");
}

6
libgfortran/m4/matmul.m4
View File

@ -1,5 +1,5 @@
`/* Implementation of the MATMUL intrinsic
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -100,7 +100,7 @@ matmul_`'rtype_code (rtype * retarray, rtype * a, rtype * b)
}
retarray->data
= internal_malloc_size (sizeof (rtype_name) * size0 (retarray));
= internal_malloc_size (sizeof (rtype_name) * size0 ((array_t *) retarray));
retarray->base = 0;
}
@ -180,7 +180,7 @@ sinclude(`matmul_asm_'rtype_code`.m4')dnl
rtype_name *abase_n;
rtype_name bbase_yn;
memset (dest, 0, (sizeof (rtype_name) * size0(retarray)));
memset (dest, 0, (sizeof (rtype_name) * size0((array_t *) retarray)));
for (y = 0; y < ycount; y++)
{

2
libgfortran/m4/transpose.m4
View File

@ -64,7 +64,7 @@ transpose_`'rtype_code (rtype * ret, rtype * source)
ret->dim[1].ubound = source->dim[0].ubound - source->dim[0].lbound;
ret->dim[1].stride = ret->dim[0].ubound+1;
ret->data = internal_malloc_size (sizeof (rtype_name) * size0 (ret));
ret->data = internal_malloc_size (sizeof (rtype_name) * size0 ((array_t *) ret));
ret->base = 0;
}

58
libgfortran/runtime/environ.c
View File

@ -46,7 +46,7 @@ Boston, MA 02111-1307, USA. */
* but other variables are checked during execution of the user's
* program. */
options_t options = { };
options_t options;
typedef struct variable
@ -326,7 +326,7 @@ show_sep (variable * v)
static void
init_string (variable * v)
init_string (variable * v __attribute__ ((unused)))
{
}
@ -361,7 +361,7 @@ static choice rounding[] = {
{"UP", FP_ROUND_UP},
{"DOWN", FP_ROUND_DOWN},
{"ZERO", FP_ROUND_ZERO},
{NULL}
{NULL, 0}
};
static choice precision[] =
@ -369,14 +369,14 @@ static choice precision[] =
{ "24", 1},
{ "53", 2},
{ "64", 0},
{ NULL}
{ NULL, 0}
};
static choice signal_choices[] =
{
{ "IGNORE", 1},
{ "ABORT", 0},
{ NULL}
{ NULL, 0}
};
@ -463,98 +463,100 @@ show_signal (variable * v)
static variable variable_table[] = {
{"GFORTRAN_STDIN_UNIT", 5, &options.stdin_unit, init_integer, show_integer,
"Unit number that will be preconnected to standard input\n"
"(No preconnection if negative)"},
"(No preconnection if negative)", 0},
{"GFORTRAN_STDOUT_UNIT", 6, &options.stdout_unit, init_integer,
show_integer,
"Unit number that will be preconnected to standard output\n"
"(No preconnection if negative)"},
"(No preconnection if negative)", 0},
{"GFORTRAN_STDERR_UNIT", 0, &options.stderr_unit, init_integer,
show_integer,
"Unit number that will be preconnected to standard error\n"
"(No preconnection if negative)"},
"(No preconnection if negative)", 0},
{"GFORTRAN_USE_STDERR", 1, &options.use_stderr, init_boolean,
show_boolean,
"Sends library output to standard error instead of standard output."},
"Sends library output to standard error instead of standard output.", 0},
{"GFORTRAN_TMPDIR", 0, NULL, init_string, show_string,
"Directory for scratch files. Overrides the TMP environment variable\n"
"If TMP is not set " DEFAULT_TEMPDIR " is used."},
"If TMP is not set " DEFAULT_TEMPDIR " is used.", 0},
{"GFORTRAN_UNBUFFERED_ALL", 0, &options.all_unbuffered, init_boolean,
show_boolean,
"If TRUE, all output is unbuffered. This will slow down large writes "
"but can be\nuseful for forcing data to be displayed immediately."},
"but can be\nuseful for forcing data to be displayed immediately.", 0},
{"GFORTRAN_SHOW_LOCUS", 1, &options.locus, init_boolean, show_boolean,
"If TRUE, print filename and line number where runtime errors happen."},
"If TRUE, print filename and line number where runtime errors happen.", 0},
{"GFORTRAN_OPTIONAL_PLUS", 0, &options.optional_plus, init_boolean, show_boolean,
"Print optional plus signs in numbers where permitted. Default FALSE."},
"Print optional plus signs in numbers where permitted. Default FALSE.", 0},
{"GFORTRAN_DEFAULT_RECL", DEFAULT_RECL, &options.default_recl,
init_unsigned_integer, show_integer,
"Default maximum record length for sequential files. Most useful for\n"
"adjusting line length of preconnected units. Default "
stringize (DEFAULT_RECL)},
stringize (DEFAULT_RECL), 0},
{"GFORTRAN_LIST_SEPARATOR", 0, NULL, init_sep, show_sep,
"Separatator to use when writing list output. May contain any number of "
"spaces\nand at most one comma. Default is a single space."},
"spaces\nand at most one comma. Default is a single space.", 0},
/* Memory related controls */
{"GFORTRAN_MEM_INIT", 0, NULL, init_mem, show_mem,
"How to initialize allocated memory. Default value is NONE for no "
"initialization\n(faster), NAN for a Not-a-Number with the mantissa "
"0x40f95 or a custom\nhexadecimal value"},
"0x40f95 or a custom\nhexadecimal value", 0},
{"GFORTRAN_MEM_CHECK", 0, &options.mem_check, init_boolean, show_boolean,
"Whether memory still allocated will be reported when the program ends."},
"Whether memory still allocated will be reported when the program ends.",
0},
/* Signal handling (Unix). */
{"GFORTRAN_SIGHUP", 0, &options.sighup, init_signal, show_signal,
"Whether the program will IGNORE or ABORT on SIGHUP."},
"Whether the program will IGNORE or ABORT on SIGHUP.", 0},
{"GFORTRAN_SIGINT", 0, &options.sigint, init_signal, show_signal,
"Whether the program will IGNORE or ABORT on SIGINT."},
"Whether the program will IGNORE or ABORT on SIGINT.", 0},
/* Floating point control */
{"GFORTRAN_FPU_ROUND", 0, &options.fpu_round, init_round, show_round,
"Set floating point rounding. Values are NEAREST, UP, DOWN, ZERO."},
"Set floating point rounding. Values are NEAREST, UP, DOWN, ZERO.", 0},
{"GFORTRAN_FPU_PRECISION", 0, &options.fpu_precision, init_precision,
show_precision,
"Precision of intermediate results. Values are 24, 53 and 64."},
"Precision of intermediate results. Values are 24, 53 and 64.", 0},
{"GFORTRAN_FPU_INVALID", 1, &options.fpu_invalid, init_boolean,
show_boolean,
"Raise a floating point exception on invalid FP operation."},
"Raise a floating point exception on invalid FP operation.", 0},
{"GFORTRAN_FPU_DENORMAL", 1, &options.fpu_denormal, init_boolean,
show_boolean,
"Raise a floating point exception when denormal numbers are encountered."},
"Raise a floating point exception when denormal numbers are encountered.",
0},
{"GFORTRAN_FPU_ZERO", 0, &options.fpu_zerodiv, init_boolean, show_boolean,
"Raise a floating point exception when dividing by zero."},
"Raise a floating point exception when dividing by zero.", 0},
{"GFORTRAN_FPU_OVERFLOW", 0, &options.fpu_overflow, init_boolean,
show_boolean,
"Raise a floating point exception on overflow."},
"Raise a floating point exception on overflow.", 0},
{"GFORTRAN_FPU_UNDERFLOW", 0, &options.fpu_underflow, init_boolean,
show_boolean,
"Raise a floating point exception on underflow."},
"Raise a floating point exception on underflow.", 0},
{"GFORTRAN_FPU_PRECISION", 0, &options.fpu_precision_loss, init_boolean,
show_boolean,
"Raise a floating point exception on precision loss."},
"Raise a floating point exception on precision loss.", 0},
{NULL}
{NULL, 0, NULL, NULL, NULL, NULL, 0}
};

4
libgfortran/runtime/main.c
View File

@ -1,4 +1,4 @@
/* Copyright (C) 2002-2003 Free Software Foundation, Inc.
/* Copyright (C) 2002-2003, 2005 Free Software Foundation, Inc.
Contributed by Andy Vaught and Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -113,7 +113,7 @@ init (void)
/* Cleanup the runtime library. */
static void __attribute__((destructor))
cleanup ()
cleanup (void)
{
close_units ();
}

6
libgfortran/runtime/normalize.c
View File

@ -1,5 +1,5 @@
/* Nelper routines to convert from integer to real.
Copyright 2004 Free Software Foundation, Inc.
Copyright 2004, 2005 Free Software Foundation, Inc.
Contributed by Paul Brook.
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -36,7 +36,7 @@ Boston, MA 02111-1307, USA. */
/* Return the largest value less than one representable in a REAL*4. */
static inline GFC_REAL_4
almostone_r4 ()
almostone_r4 (void)
{
#ifdef HAVE_NEXTAFTERF
return nextafterf (1.0f, 0.0f);
@ -65,7 +65,7 @@ almostone_r4 ()
/* Return the largest value less than one representable in a REAL*8. */
static inline GFC_REAL_8
almostone_r8 ()
almostone_r8 (void)
{
#ifdef HAVE_NEXTAFTER
return nextafter (1.0, 0.0);