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-array.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-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index a6bcd2b..0d013de 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -2764,7 +2764,7 @@ trans_array_constructor (gfc_ss * ss, locus * where) desc = ss_info->data.array.descriptor; offset = gfc_index_zero_node; offsetvar = gfc_create_var_np (gfc_array_index_type, "offset"); - TREE_NO_WARNING (offsetvar) = 1; + suppress_warning (offsetvar); TREE_USED (offsetvar) = 0; gfc_trans_array_constructor_value (&outer_loop->pre, type, desc, c, &offset, &offsetvar, dynamic); |