diff options
Diffstat (limited to 'libgfortran/runtime/environ.c')
| -rw-r--r-- | libgfortran/runtime/environ.c | 32 |
1 files changed, 30 insertions, 2 deletions
diff --git a/libgfortran/runtime/environ.c b/libgfortran/runtime/environ.c index 8d608ae..c1a71cf 100644 --- a/libgfortran/runtime/environ.c +++ b/libgfortran/runtime/environ.c @@ -97,7 +97,7 @@ var_source (variable * v) } -/* init_integer()-- Initialize an integer environment variable */ +/* init_integer()-- Initialize an integer environment variable. */ static void init_integer (variable * v) @@ -109,6 +109,34 @@ init_integer (variable * v) goto set_default; for (q = p; *q; q++) + if (!isdigit (*q) && (p != q || *q != '-')) + { + v->bad = 1; + goto set_default; + } + + *v->var = atoi (p); + return; + + set_default: + *v->var = v->value; + return; +} + + +/* init_unsigned_integer()-- Initialize an integer environment variable + which has to be positive. */ + +static void +init_unsigned_integer (variable * v) +{ + char *p, *q; + + p = getenv (v->name); + if (p == NULL) + goto set_default; + + for (q = p; *q; q++) if (!isdigit (*q)) { v->bad = 1; @@ -467,7 +495,7 @@ static variable variable_table[] = { "Print optional plus signs in numbers where permitted. Default FALSE."}, {"GFORTRAN_DEFAULT_RECL", DEFAULT_RECL, &options.default_recl, - init_integer, show_integer, + init_integer, show_unsigned_integer, "Default maximum record length for sequential files. Most useful for\n" "adjusting line length of preconnected units. Default " stringize (DEFAULT_RECL)}, |