diff options
| author | Martin Sebor <msebor@redhat.com> | 2021-06-28 14:47:21 -0600 |
|---|---|---|
| committer | Martin Sebor <msebor@redhat.com> | 2021-06-28 14:47:21 -0600 |
| commit | d5e69948beb61fb320d9ca703faff84d6f608545 (patch) | |
| tree | 737c21d80886bd2c6eb937b1461d19aa2a992d08 /gcc/fortran/trans-openmp.c | |
| parent | 8c7dfbb8f3d55be6bed27a6889ebae30c0e7a044 (diff) | |
| download | gcc-d5e69948beb61fb320d9ca703faff84d6f608545.zip gcc-d5e69948beb61fb320d9ca703faff84d6f608545.tar.gz gcc-d5e69948beb61fb320d9ca703faff84d6f608545.tar.bz2 | |
fortran: Add support for per-location warning groups.
gcc/fortran/ChangeLog:
* trans-array.c (trans_array_constructor): Replace direct uses
of TREE_NO_WARNING with warning_suppressed_p, and suppress_warning.
* trans-decl.c (gfc_build_qualified_array): Same.
(gfc_build_dummy_array_decl): Same.
(generate_local_decl): Same.
(gfc_generate_function_code): Same.
* trans-openmp.c (gfc_omp_clause_default_ctor): Same.
(gfc_omp_clause_copy_ctor): Same.
* trans-types.c (get_dtype_type_node): Same.
(gfc_get_desc_dim_type): Same.
(gfc_get_array_descriptor_base): Same.
(gfc_get_caf_vector_type): Same.
(gfc_get_caf_reference_type): Same.
* trans.c (gfc_create_var_np): Same.
Diffstat (limited to 'gcc/fortran/trans-openmp.c')
| -rw-r--r-- | gcc/fortran/trans-openmp.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c index ce1991e..ace4faf 100644 --- a/gcc/fortran/trans-openmp.c +++ b/gcc/fortran/trans-openmp.c @@ -785,7 +785,7 @@ gfc_omp_clause_default_ctor (tree clause, tree decl, tree outer) else_b)); /* Avoid -W*uninitialized warnings. */ if (DECL_P (decl)) - TREE_NO_WARNING (decl) = 1; + suppress_warning (decl, OPT_Wuninitialized); } else gfc_add_expr_to_block (&block, then_b); @@ -970,7 +970,7 @@ gfc_omp_clause_copy_ctor (tree clause, tree dest, tree src) void_type_node, cond, then_b, else_b)); /* Avoid -W*uninitialized warnings. */ if (DECL_P (dest)) - TREE_NO_WARNING (dest) = 1; + suppress_warning (dest, OPT_Wuninitialized); return gfc_finish_block (&block); } |