re PR fortran/36515 (Integer read from stdin yields a value overflow for a valid integer.)

2008-06-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/36515
	* libgfortran.h (compile_options_t): Add int range_check to structure.
	* runtime/compile_options.c (set_options): Add range_check option.
	(init_compile_options): Likewise.
	*io/read.c (read_decimal): Change overflow checks to include
	range_check.

From-SVN: r136822
This commit is contained in:
Jerry DeLisle 2008-06-15 20:02:58 +00:00
parent a60658ba41
commit a9608b5743
4 changed files with 15 additions and 2 deletions

View File

@ -1,3 +1,12 @@
2008-06-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/36515
* libgfortran.h (compile_options_t): Add int range_check to structure.
* runtime/compile_options.c (set_options): Add range_check option.
(init_compile_options): Likewise.
*io/read.c (read_decimal): Change overflow checks to include
range_check.
2008-06-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/36538

View File

@ -428,13 +428,13 @@ read_decimal (st_parameter_dt *dtp, const fnode *f, char *dest, int length)
if (c < '0' || c > '9')
goto bad;
if (value > maxv_10)
if (value > maxv_10 && compile_options.range_check == 1)
goto overflow;
c -= '0';
value = 10 * value;
if (value > maxv - c)
if (value > maxv - c && compile_options.range_check == 1)
goto overflow;
value += c;
}

View File

@ -477,6 +477,7 @@ typedef struct
size_t record_marker;
int max_subrecord_length;
int bounds_check;
int range_check;
}
compile_options_t;

View File

@ -105,6 +105,8 @@ set_options (int num, int options[])
compile_options.sign_zero = options[5];
if (num >= 7)
compile_options.bounds_check = options[6];
if (num >= 8)
compile_options.range_check = options[7];
/* If backtrace is required, we set signal handlers on most common
signals. */
@ -146,6 +148,7 @@ init_compile_options (void)
compile_options.dump_core = 0;
compile_options.backtrace = 0;
compile_options.sign_zero = 1;
compile_options.range_check = 1;
}
/* Function called by the front-end to tell us the