OSDN Git Service

2008-06-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 15 Jun 2008 20:00:41 +0000 (20:00 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 15 Jun 2008 20:00:41 +0000 (20:00 +0000)
PR fortran/36515
* trans-decl.c (gfc_generate_function_code): Add range_check to options
array.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@136821 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/trans-decl.c

index 82ca881..307af67 100644 (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.
index 57914ae..686e059 100644 (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);
     }