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

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

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

	PR fortran/36515
	* trans-decl.c (gfc_generate_function_code): Add range_check to options
	array.

From-SVN: r136821
This commit is contained in:
Jerry DeLisle 2008-06-15 20:00:41 +00:00
parent f4df5771d9
commit a60658ba41
2 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View file

@ -1,3 +1,9 @@
2008-06-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/36515
* trans-decl.c (gfc_generate_function_code): Add range_check to options
array.
2008-06-15 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
* gfc-internals.texi: Expand TABs, drop indentation outside examples.

8
gcc/fortran/trans-decl.c
View file

@ -3292,9 +3292,13 @@ gfc_generate_function_code (gfc_namespace * ns)
build_int_cst (integer_type_node,
flag_bounds_check), array);
array = tree_cons (NULL_TREE,
build_int_cst (integer_type_node,
gfc_option.flag_range_check), array);
array_type = build_array_type (integer_type_node,
build_index_type (build_int_cst (NULL_TREE,
6)));
7)));
array = build_constructor_from_list (array_type, nreverse (array));
TREE_CONSTANT (array) = 1;
TREE_STATIC (array) = 1;
@ -3308,7 +3312,7 @@ gfc_generate_function_code (gfc_namespace * ns)
var = gfc_build_addr_expr (pvoid_type_node, var);
tmp = build_call_expr (gfor_fndecl_set_options, 2,
build_int_cst (integer_type_node, 7), var);
build_int_cst (integer_type_node, 8), var);
gfc_add_expr_to_block (&body, tmp);
}