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

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 82ca881e7bbd44288080be4bc192d6872b4e5415..307af676b8a90a48e22349c40849cd2abb71f602 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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.

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 57914ae7a427e6e651379871ae045d314efce380..686e059ec4e0a68bbe20840b4eb12fc5ec3a7341 100644 (file)
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -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);
     }