Hi Jakub, Yes, sorry about that. I should have added some more context to the email, as well. I had sent out the patchset some time ago ( https://gcc.gnu.org/pipermail/gcc-patches/2025-November/701841.html) and gotten it approved, but there was some FSF overhead involved with write permissions. That got resolved, but unfortunately the patchset had become somewhat bitrotten with respect to the changed USM tests. I discussed with Tobias and since the same change applied to the tests as in the original patch, it was added, tested, and committed, while the offending patch was sent out to the mailing list as a point of reference. Apologies again for the formatting errors - I was working on a patch to fix them when I saw this come in. Thank you for catching them (and the quick patch).
Regards, supers1ngular On Thu, Dec 11, 2025 at 11:50 AM Jakub Jelinek <[email protected]> wrote: > Hi! > > On Thu, Dec 11, 2025 at 05:12:10PM +0100, Jakub Jelinek wrote: > > On Thu, Dec 11, 2025 at 08:02:08AM -0800, Gio T wrote: > > > --- a/gcc/c/c-parser.cc > > > +++ b/gcc/c/c-parser.cc > > > @@ -18849,6 +18849,9 @@ c_parser_omp_clause_reduction (c_parser > *parser, enum omp_clause_code kind, > > > code = MULT_EXPR; > > > break; > > > case CPP_MINUS: > > > + warning_at (c_parser_peek_token (parser)->location, > > > + OPT_Wdeprecated_openmp, > > > + "%<-%> operator for reductions deprecated in OpenMP 5.2"); > > > > Please fix up formatting. The extra arguments should be aligned below > the > > first argument, and too long string literal can be split among multiple > > lines, just don't forget that the space needs to be just one, either > > at the end of one line or start of next line, not both, not neither. > > warning_at (c_parser_peek_token (parser)->location, > > OPT_Wdeprecated_openmp, > > "%<-%> operator for reductions deprecated in " > > "OpenMP 5.2"); > > Similarly in other spots. > > I see you've already committed it. > > So, here is what I've committed on top of that: > > 2025-12-11 Jakub Jelinek <[email protected]> > > gcc/c/ > * c-parser.cc (c_parser_omp_clause_reduction, > c_parser_omp_clause_linear, c_parser_omp_clause_depend, > c_parser_omp_clause_map, c_parser_omp_clause_proc_bind, > c_parser_omp_master, c_parser_omp_declare_target, > c_parser_omp_metadirective): Formatting fixes. > gcc/cp/ > * parser.cc (cp_parser_omp_clause_reduction, > cp_parser_omp_clause_linear, cp_parser_omp_clause_depend, > cp_parser_omp_clause_map, cp_parser_omp_clause_proc_bind, > cp_parser_omp_master, cp_parser_omp_declare_target, > cp_parser_omp_metadirective): Formatting fixes. > gcc/fortran/ > * openmp.cc (gfc_match_omp_clause_reduction, > gfc_match_omp_clause_uses_allocators, gfc_match_omp_clauses, > match_omp_metadirective, gfc_match_omp_parallel_master, > gfc_match_omp_parallel_master_taskloop, > gfc_match_omp_parallel_master_taskloop_simd, > gfc_match_omp_master, gfc_match_omp_master_taskloop, > gfc_match_omp_master_taskloop_simd, resolve_omp_clauses): > Formatting > fixes. > > --- gcc/c/c-parser.cc.jj 2025-12-11 19:33:57.000000000 +0100 > +++ gcc/c/c-parser.cc 2025-12-11 20:26:35.967165076 +0100 > @@ -18850,8 +18850,9 @@ c_parser_omp_clause_reduction (c_parser > break; > case CPP_MINUS: > warning_at (c_parser_peek_token (parser)->location, > - OPT_Wdeprecated_openmp, > - "%<-%> operator for reductions deprecated in OpenMP 5.2"); > + OPT_Wdeprecated_openmp, > + "%<-%> operator for reductions deprecated in " > + "OpenMP 5.2"); > code = MINUS_EXPR; > break; > case CPP_AND: > @@ -19601,8 +19602,8 @@ c_parser_omp_clause_linear (c_parser *pa > if (kind != OMP_CLAUSE_LINEAR_DEFAULT) > { > warning_at (clause_loc, OPT_Wdeprecated_openmp, > - "specifying the list items as arguments to the modifiers is " > - "deprecated since OpenMP 5.2"); > + "specifying the list items as arguments to the " > + "modifiers is deprecated since OpenMP 5.2"); > old_linear_modifier = true; > c_parser_consume_token (parser); > c_parser_consume_token (parser); > @@ -20141,15 +20142,15 @@ c_parser_omp_clause_depend (c_parser *pa > else if (strcmp ("sink", p) == 0) > { > warning_at (clause_loc, OPT_Wdeprecated_openmp, > - "%<sink%> modifier with %<depend%> clause deprecated since " > - "OpenMP 5.2, use with %<doacross%>"); > + "%<sink%> modifier with %<depend%> clause deprecated > " > + "since OpenMP 5.2, use with %<doacross%>"); > dkind = OMP_CLAUSE_DOACROSS_SINK; > } > else if (strcmp ("source", p) == 0) > { > warning_at (clause_loc, OPT_Wdeprecated_openmp, > - "%<source%> modifier with %<depend%> clause deprecated since " > - "OpenMP 5.2, use with %<doacross%>"); > + "%<source%> modifier with %<depend%> clause > deprecated " > + "since OpenMP 5.2, use with %<doacross%>"); > dkind = OMP_CLAUSE_DOACROSS_SOURCE; > } > else > @@ -20583,8 +20584,8 @@ c_parser_omp_clause_map (c_parser *parse > ++num_identifiers; > if (num_identifiers - 1 != num_commas) > warning_at (clause_loc, OPT_Wdeprecated_openmp, > - "%<map%> clause modifiers without comma separation is deprecated > " > - "since OpenMP 5.2"); > + "%<map%> clause modifiers without comma separation is " > + "deprecated since OpenMP 5.2"); > } > > if (c_parser_next_token_is (parser, CPP_NAME) > @@ -20827,12 +20828,12 @@ c_parser_omp_clause_proc_bind (c_parser > if (strcmp ("primary", p) == 0) > kind = OMP_CLAUSE_PROC_BIND_PRIMARY; > else if (strcmp ("master", p) == 0) > - { > - warning_at (clause_loc, OPT_Wdeprecated_openmp, > - "%<master%> affinity deprecated since OpenMP 5.1, " > - "use %<primary%>"); > - kind = OMP_CLAUSE_PROC_BIND_MASTER; > - } > + { > + warning_at (clause_loc, OPT_Wdeprecated_openmp, > + "%<master%> affinity deprecated since OpenMP 5.1, " > + "use %<primary%>"); > + kind = OMP_CLAUSE_PROC_BIND_MASTER; > + } > else if (strcmp ("close", p) == 0) > kind = OMP_CLAUSE_PROC_BIND_CLOSE; > else if (strcmp ("spread", p) == 0) > @@ -25451,7 +25452,8 @@ c_parser_omp_master (location_t loc, c_p > bool *if_p) > { > warning_at (loc, OPT_Wdeprecated_openmp, > - "%<master%> construct deprecated since OpenMP 5.1, use %<masked%>"); > + "%<master%> construct deprecated since OpenMP 5.1, use " > + "%<masked%>"); > tree block, clauses, ret; > > strcat (p_name, " master"); > @@ -28384,9 +28386,10 @@ c_parser_omp_declare_target (c_parser *p > else > { > warning_at (c_parser_peek_token (parser)->location, > - OPT_Wdeprecated_openmp, > - "use of %<omp declare target%> as a synonym for %<omp begin > declare " > - "target%> has been deprecated since OpenMP 5.2"); > + OPT_Wdeprecated_openmp, > + "use of %<omp declare target%> as a synonym for " > + "%<omp begin declare target%> has been deprecated since " > + "OpenMP 5.2"); > bool attr_syntax = parser->in_omp_attribute_pragma != NULL; > c_parser_skip_to_pragma_eol (parser); > c_omp_declare_target_attr attr = { attr_syntax, -1, 0 }; > @@ -28397,8 +28400,9 @@ c_parser_omp_declare_target (c_parser *p > { > if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_ENTER && OMP_CLAUSE_ENTER_TO > (c)) > warning_at (c_parser_peek_token (parser)->location, > - OPT_Wdeprecated_openmp, "%<to%> clause with %<declare target%> " > - "deprecated since OpenMP 5.2, use %<enter%>"); > + OPT_Wdeprecated_openmp, > + "%<to%> clause with %<declare target%> deprecated > since " > + "OpenMP 5.2, use %<enter%>"); > if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_DEVICE_TYPE) > device_type |= OMP_CLAUSE_DEVICE_TYPE_KIND (c); > if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_INDIRECT) > @@ -30206,8 +30210,8 @@ c_parser_omp_metadirective (c_parser *pa > const char *p = IDENTIFIER_POINTER (c_parser_peek_token > (parser)->value); > if (strcmp (p, "default") == 0) > warning_at (pragma_loc, OPT_Wdeprecated_openmp, > - "%<default%> clause on metadirectives deprecated since " > - "OpenMP 5.2, use %<otherwise%>"); > + "%<default%> clause on metadirectives deprecated since > " > + "OpenMP 5.2, use %<otherwise%>"); > c_parser_consume_token (parser); > bool default_p > = strcmp (p, "default") == 0 || strcmp (p, "otherwise") == 0; > --- gcc/cp/parser.cc.jj 2025-12-11 19:33:57.533489651 +0100 > +++ gcc/cp/parser.cc 2025-12-11 20:29:33.344111518 +0100 > @@ -42166,8 +42166,8 @@ cp_parser_omp_clause_reduction (cp_parse > case CPP_MULT: code = MULT_EXPR; break; > case CPP_MINUS: > warning_at (cp_lexer_peek_token (parser->lexer)->location, > - OPT_Wdeprecated_openmp, > - "%<-%> operator for reductions deprecated in OpenMP 5.2"); > + OPT_Wdeprecated_openmp, > + "%<-%> operator for reductions deprecated in OpenMP > 5.2"); > code = MINUS_EXPR; > break; > case CPP_AND: code = BIT_AND_EXPR; break; > @@ -42866,9 +42866,9 @@ cp_parser_omp_clause_linear (cp_parser * > cp_lexer_consume_token (parser->lexer); > old_linear_modifier = true; > warning_at (cp_lexer_peek_token (parser->lexer)->location, > - OPT_Wdeprecated_openmp, > - "specifying the list items as arguments to the modifiers is " > - "deprecated since OpenMP 5.2"); > + OPT_Wdeprecated_openmp, > + "specifying the list items as arguments to the " > + "modifiers is deprecated since OpenMP 5.2"); > } > else > kind = OMP_CLAUSE_LINEAR_DEFAULT; > @@ -43480,15 +43480,15 @@ cp_parser_omp_clause_depend (cp_parser * > else if (strcmp ("sink", p) == 0) > { > warning_at (loc, OPT_Wdeprecated_openmp, > - "%<sink%> modifier with %<depend%> clause deprecated since " > - "OpenMP 5.2, use with %<doacross%>"); > + "%<sink%> modifier with %<depend%> clause deprecated > " > + "since OpenMP 5.2, use with %<doacross%>"); > dkind = OMP_CLAUSE_DOACROSS_SINK; > } > else if (strcmp ("source", p) == 0) > { > warning_at (loc, OPT_Wdeprecated_openmp, > - "%<source%> modifier with %<depend%> clause deprecated since " > - "OpenMP 5.2, use with %<doacross%>"); > + "%<source%> modifier with %<depend%> clause > deprecated " > + "since OpenMP 5.2, use with %<doacross%>"); > dkind = OMP_CLAUSE_DOACROSS_SOURCE; > } > else > @@ -44077,8 +44077,8 @@ cp_parser_omp_clause_map (cp_parser *par > ++num_identifiers; > if (num_identifiers - 1 != num_commas) > warning_at (clause_loc, OPT_Wdeprecated_openmp, > - "%<map%> clause modifiers without comma separation is " > - "deprecated since OpenMP 5.2"); > + "%<map%> clause modifiers without comma separation is " > + "deprecated since OpenMP 5.2"); > } > > if (cp_lexer_next_token_is (parser->lexer, CPP_NAME) > @@ -44320,12 +44320,12 @@ cp_parser_omp_clause_proc_bind (cp_parse > if (strcmp ("primary", p) == 0) > kind = OMP_CLAUSE_PROC_BIND_PRIMARY; > else if (strcmp ("master", p) == 0) > - { > - warning_at (location, OPT_Wdeprecated_openmp, > - "%<master%> affinity deprecated since OpenMP 5.1, " > - "use %<primary%>"); > - kind = OMP_CLAUSE_PROC_BIND_MASTER; > - } > + { > + warning_at (location, OPT_Wdeprecated_openmp, > + "%<master%> affinity deprecated since OpenMP 5.1, " > + "use %<primary%>"); > + kind = OMP_CLAUSE_PROC_BIND_MASTER; > + } > else if (strcmp ("close", p) == 0) > kind = OMP_CLAUSE_PROC_BIND_CLOSE; > else if (strcmp ("spread", p) == 0) > @@ -49042,7 +49042,8 @@ cp_parser_omp_master (cp_parser *parser, > unsigned int save; > location_t loc = cp_lexer_peek_token (parser->lexer)->location; > warning_at (loc, OPT_Wdeprecated_openmp, > - "%<master%> construct deprecated since OpenMP 5.1, use %<masked%>"); > + "%<master%> construct deprecated since OpenMP 5.1, use " > + "%<masked%>"); > > strcat (p_name, " master"); > > @@ -52779,9 +52780,10 @@ cp_parser_omp_declare_target (cp_parser > else > { > warning_at (cp_lexer_peek_token (parser->lexer)->location, > - OPT_Wdeprecated_openmp, > - "use of %<omp declare target%> as a synonym for %<omp begin > declare " > - "target%> has been deprecated since OpenMP 5.2"); > + OPT_Wdeprecated_openmp, > + "use of %<omp declare target%> as a synonym for " > + "%<omp begin declare target%> has been deprecated since " > + "OpenMP 5.2"); > cp_omp_declare_target_attr a > = { parser->lexer->in_omp_attribute_pragma, -1, false }; > vec_safe_push (scope_chain->omp_declare_target_attribute, a); > @@ -52792,8 +52794,8 @@ cp_parser_omp_declare_target (cp_parser > { > if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_ENTER && OMP_CLAUSE_ENTER_TO > (c)) > warning_at (OMP_CLAUSE_LOCATION (c), OPT_Wdeprecated_openmp, > - "%<to%> clause with %<declare target%> deprecated since " > - "OpenMP 5.2, use %<enter%>"); > + "%<to%> clause with %<declare target%> deprecated > since " > + "OpenMP 5.2, use %<enter%>"); > if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_DEVICE_TYPE) > device_type |= OMP_CLAUSE_DEVICE_TYPE_KIND (c); > if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_INDIRECT) > @@ -53216,8 +53218,8 @@ cp_parser_omp_metadirective (cp_parser * > = IDENTIFIER_POINTER (cp_lexer_peek_token > (parser->lexer)->u.value); > if (strcmp (p, "default") == 0) > warning_at (match_loc, OPT_Wdeprecated_openmp, > - "%<default%> clause on metadirectives deprecated since " > - "OpenMP 5.2, use %<otherwise%>"); > + "%<default%> clause on metadirectives deprecated since > " > + "OpenMP 5.2, use %<otherwise%>"); > cp_lexer_consume_token (parser->lexer); > bool default_p > = strcmp (p, "default") == 0 || strcmp (p, "otherwise") == 0; > --- gcc/fortran/openmp.cc.jj 2025-12-11 19:33:57.672487260 +0100 > +++ gcc/fortran/openmp.cc 2025-12-11 20:36:13.278226631 +0100 > @@ -1495,8 +1495,9 @@ gfc_match_omp_clause_reduction (char pc, > rop = OMP_REDUCTION_TIMES; > else if (gfc_match_char ('-') == MATCH_YES) > { > - gfc_warning (OPT_Wdeprecated_openmp, "%<-%> operator at %C " > - "for reductions deprecated in OpenMP 5.2"); > + gfc_warning (OPT_Wdeprecated_openmp, > + "%<-%> operator at %C for reductions deprecated in " > + "OpenMP 5.2"); > rop = OMP_REDUCTION_MINUS; > } > else if (gfc_match (".and.") == MATCH_YES) > @@ -1858,10 +1859,11 @@ gfc_match_omp_clause_uses_allocators (gf > if (!has_modifiers) > { > if (gfc_match ("( %S ) ", &p->u2.traits_sym) == MATCH_YES) > - gfc_warning (OPT_Wdeprecated_openmp, "The specification of " > - "arguments to %<uses_allocators%> at %L where each item is > of " > - "the form %<allocator(traits)%> is deprecated since OpenMP > 5.2", > - &p->where); > + gfc_warning (OPT_Wdeprecated_openmp, > + "The specification of arguments to " > + "%<uses_allocators%> at %L where each item is of " > + "the form %<allocator(traits)%> is deprecated > since " > + "OpenMP 5.2", &p->where); > } > else if (gfc_peek_ascii_char () == '(') > { > @@ -2918,9 +2920,10 @@ gfc_match_omp_clauses (gfc_omp_clauses * > goto error; > } > if (is_depend) > - gfc_warning (OPT_Wdeprecated_openmp, "%<source%> " > - "modifier with %<depend%> clause at %L deprecated " > - "since OpenMP 5.2, use with %<doacross%>", &old_loc); > + gfc_warning (OPT_Wdeprecated_openmp, > + "%<source%> modifier with %<depend%> > clause " > + "at %L deprecated since OpenMP 5.2, use > with " > + "%<doacross%>", &old_loc); > c->doacross_source = true; > c->depend_source = is_depend; > continue; > @@ -2945,10 +2948,10 @@ gfc_match_omp_clauses (gfc_omp_clauses * > goto error; > } > if (is_depend) > - gfc_warning (OPT_Wdeprecated_openmp, "%<sink%> " > - "modifier with %<depend%> clause at %L " > - "deprecated since OpenMP 5.2, use with %<doacross%>", > - &old_loc); > + gfc_warning (OPT_Wdeprecated_openmp, > + "%<sink%> modifier with %<depend%> clause > at " > + "%L deprecated since OpenMP 5.2, use with > " > + "%<doacross%>", &old_loc); > m = gfc_match_omp_doacross_sink > (&c->lists[OMP_LIST_DEPEND], > is_depend); > if (m == MATCH_YES) > @@ -3462,9 +3465,9 @@ gfc_match_omp_clauses (gfc_omp_clauses * > } > if (old_linear_modifier) > gfc_warning (OPT_Wdeprecated_openmp, > - "Specification of the list items as arguments to the " > - "modifiers at %L is deprecated since OpenMP 5.2", > - &saved_loc); > + "Specification of the list items as arguments > to " > + "the modifiers at %L is deprecated since " > + "OpenMP 5.2", &saved_loc); > if (linear_op != OMP_LINEAR_DEFAULT) > { > if (gfc_match (" :") == MATCH_YES) > @@ -3651,9 +3654,10 @@ gfc_match_omp_clauses (gfc_omp_clauses * > break; > if (gfc_match (", ") != MATCH_YES) > gfc_warning (OPT_Wdeprecated_openmp, > - "The specification of modifiers without comma " > - "separators for the %<map%> clause at %C has " > - "been deprecated since OpenMP 5.2"); > + "The specification of modifiers without " > + "comma separators for the %<map%> clause " > + "at %C has been deprecated since " > + "OpenMP 5.2"); > } > > gfc_omp_map_op map_op = OMP_MAP_TOFROM; > @@ -4049,9 +4053,9 @@ gfc_match_omp_clauses (gfc_omp_clauses * > c->proc_bind = OMP_PROC_BIND_PRIMARY; > else if (gfc_match ("master )") == MATCH_YES) > { > - gfc_warning (OPT_Wdeprecated_openmp, "%<master%> > affinity " > - "policy at %C deprecated since OpenMP 5.1, use " > - "%<primary%>"); > + gfc_warning (OPT_Wdeprecated_openmp, > + "%<master%> affinity policy at %C > deprecated " > + "since OpenMP 5.1, use %<primary%>"); > c->proc_bind = OMP_PROC_BIND_MASTER; > } > else if (gfc_match ("spread )") == MATCH_YES) > @@ -4317,9 +4321,10 @@ gfc_match_omp_clauses (gfc_omp_clauses * > goto error; > if (m == MATCH_YES) > { > - gfc_warning (OPT_Wdeprecated_openmp, "%<to%> clause with > " > - "%<declare target%> at %L deprecated since OpenMP 5.2, > " > - "use %<enter%>", &old_loc); > + gfc_warning (OPT_Wdeprecated_openmp, > + "%<to%> clause with %<declare target%> at > %L " > + "deprecated since OpenMP 5.2, use > %<enter%>", > + &old_loc); > continue; > } > } > @@ -7094,8 +7099,8 @@ match_omp_metadirective (bool begin_p) > { > default_p = true; > gfc_warning (OPT_Wdeprecated_openmp, > - "%<default%> clause with metadirective at %L " > - "deprecated since OpenMP 5.2", &variant_locus); > + "%<default%> clause with metadirective at %L " > + "deprecated since OpenMP 5.2", &variant_locus); > } > else if (gfc_match ("otherwise ( ") == MATCH_YES) > default_p = true; > @@ -7468,16 +7473,18 @@ gfc_match_omp_parallel_masked_taskloop_s > match > gfc_match_omp_parallel_master (void) > { > - gfc_warning (OPT_Wdeprecated_openmp, "%<master%> construct at %C > deprecated" > - " since OpenMP 5.1, use %<masked%>"); > + gfc_warning (OPT_Wdeprecated_openmp, > + "%<master%> construct at %C deprecated since OpenMP 5.1, > use " > + "%<masked%>"); > return match_omp (EXEC_OMP_PARALLEL_MASTER, OMP_PARALLEL_CLAUSES); > } > > match > gfc_match_omp_parallel_master_taskloop (void) > { > - gfc_warning (OPT_Wdeprecated_openmp, "%<master%> construct at %C > deprecated" > - " since OpenMP 5.1, use %<masked%>"); > + gfc_warning (OPT_Wdeprecated_openmp, > + "%<master%> construct at %C deprecated since OpenMP 5.1, " > + "use %<masked%>"); > return match_omp (EXEC_OMP_PARALLEL_MASTER_TASKLOOP, > (OMP_PARALLEL_CLAUSES | OMP_TASKLOOP_CLAUSES) > & ~(omp_mask (OMP_CLAUSE_IN_REDUCTION))); > @@ -7486,8 +7493,9 @@ gfc_match_omp_parallel_master_taskloop ( > match > gfc_match_omp_parallel_master_taskloop_simd (void) > { > - gfc_warning (OPT_Wdeprecated_openmp, "%<master%> construct at %C > deprecated" > - " since OpenMP 5.1, use %<masked%>"); > + gfc_warning (OPT_Wdeprecated_openmp, > + "%<master%> construct at %C deprecated since OpenMP 5.1, " > + "use %<masked%>"); > return match_omp (EXEC_OMP_PARALLEL_MASTER_TASKLOOP_SIMD, > (OMP_PARALLEL_CLAUSES | OMP_TASKLOOP_CLAUSES > | OMP_SIMD_CLAUSES) > @@ -8071,8 +8079,9 @@ gfc_match_omp_masked_taskloop_simd (void > match > gfc_match_omp_master (void) > { > - gfc_warning (OPT_Wdeprecated_openmp, "%<master%> construct at %C > deprecated" > - " since OpenMP 5.1, use %<masked%>"); > + gfc_warning (OPT_Wdeprecated_openmp, > + "%<master%> construct at %C deprecated since OpenMP 5.1, " > + "use %<masked%>"); > if (gfc_match_omp_eos () != MATCH_YES) > { > gfc_error ("Unexpected junk after $OMP MASTER statement at %C"); > @@ -8086,16 +8095,18 @@ gfc_match_omp_master (void) > match > gfc_match_omp_master_taskloop (void) > { > - gfc_warning (OPT_Wdeprecated_openmp, "%<master%> construct at %C > deprecated" > - " since OpenMP 5.1, use %<masked%>"); > + gfc_warning (OPT_Wdeprecated_openmp, > + "%<master%> construct at %C deprecated since OpenMP 5.1, " > + "use %<masked%>"); > return match_omp (EXEC_OMP_MASTER_TASKLOOP, OMP_TASKLOOP_CLAUSES); > } > > match > gfc_match_omp_master_taskloop_simd (void) > { > - gfc_warning (OPT_Wdeprecated_openmp, "%<master%> construct at %C > deprecated" > - " since OpenMP 5.1, use %<masked%>"); > + gfc_warning (OPT_Wdeprecated_openmp, > + "%<master%> construct at %C deprecated since OpenMP 5.1, > use " > + "%<masked%>"); > return match_omp (EXEC_OMP_MASTER_TASKLOOP_SIMD, > OMP_TASKLOOP_CLAUSES | OMP_SIMD_CLAUSES); > } > @@ -9454,10 +9465,10 @@ resolve_omp_clauses (gfc_code *code, gfc > { > if (code->op == EXEC_OMP_ALLOCATE) > gfc_warning (OPT_Wdeprecated_openmp, > - "The use of one or more %<allocate%> directives with " > - "an associated %<allocate%> statement at %L is " > - "deprecated since OpenMP 5.2, use an %<allocators%> " > - "directive", &code->loc); > + "The use of one or more %<allocate%> directives > with " > + "an associated %<allocate%> statement at %L is " > + "deprecated since OpenMP 5.2, use an > %<allocators%> " > + "directive", &code->loc); > gfc_alloc *a; > gfc_omp_namelist *n_null = NULL; > bool missing_allocator = false; > @@ -10052,9 +10063,9 @@ resolve_omp_clauses (gfc_code *code, gfc > { > /* For TARGET, non-C_PTR are deprecated and handled as > has_device_addr. */ > - gfc_warning (OPT_Wdeprecated_openmp, "Non-C_PTR type " > - "argument at %L is deprecated, use HAS_DEVICE_ADDR", > - &n->where); > + gfc_warning (OPT_Wdeprecated_openmp, > + "Non-C_PTR type argument at %L is > deprecated, " > + "use HAS_DEVICE_ADDR", &n->where); > gfc_omp_namelist *n2 = n; > n = n->next; > if (last) > @@ -10081,9 +10092,9 @@ resolve_omp_clauses (gfc_code *code, gfc > if (n->sym->ts.type != BT_DERIVED > || !n->sym->ts.u.derived->ts.is_iso_c) > { > - gfc_warning (OPT_Wdeprecated_openmp, "Non-C_PTR type " > - "argument at %L is deprecated, use USE_DEVICE_ADDR", > - &n->where); > + gfc_warning (OPT_Wdeprecated_openmp, > + "Non-C_PTR type argument at %L is " > + "deprecated, use USE_DEVICE_ADDR", > &n->where); > n = n->next; > if (last) > last->next = n; > > > Jakub > >
