Re: [Patch] OpenMP/Fortran: Add support for enter clause on declare target (was: [committed] openmp: Add support for enter clause on declare target)

[Jakub Jelinek via Gcc-patches]

On Fri, May 27, 2022 at 05:20:08PM +0200, Jakub Jelinek wrote:
> 2) move the
>           else if (n->sym->mark)
>             gfc_error_now ("Variable at %L mentioned multiple times in "
>                            "clauses of the same OMP DECLARE TARGET directive",
>                            &n->where);
>   diagnostics earlier, above
>           else if (n->sym->attr.omp_declare_target
>                    && n->sym->attr.omp_declare_target_link
>                    && list != OMP_LIST_LINK)
>   and adjust testsuite if needed

Note, that matches what the C/C++ FEs do, they also first check for clauses
on the same construct and only afterwards do the link vs. to/enter on
separate directives.

Here is an incremental patch I plan to commit after full testing for the
C/C++ FE wording.

2022-05-27  Jakub Jelinek  <ja...@redhat.com>

gcc/c/
        * c-parser.cc (c_parser_omp_declare_target): If OMP_CLAUSE_LINK was
        seen first, use "%<to%>" or "%<enter%>" depending on
        OMP_CLAUSE_ENTER_TO of the current clause, otherwise use
        "%<to%> or %<enter%>" wording.
gcc/cp/
        * parser.c (handle_omp_declare_target_clause): If OMP_CLAUSE_LINK was
        seen first, use "%<to%>" or "%<enter%>" depending on
        OMP_CLAUSE_ENTER_TO of the current clause, otherwise use
        "%<to%> or %<enter%>" wording.
gcc/testsuite/
        * c-c++-common/gomp/declare-target-2.c: Add further tests for mixing of
        link and to/enter clauses on separate directives.

--- gcc/c/c-parser.cc.jj        2022-05-26 23:22:30.312850583 +0200
+++ gcc/c/c-parser.cc   2022-05-27 17:28:59.120420300 +0200
@@ -22067,9 +22067,14 @@ c_parser_omp_declare_target (c_parser *p
        id = get_identifier ("omp declare target");
       if (at2)
        {
-         error_at (OMP_CLAUSE_LOCATION (c),
-                   "%qD specified both in declare target %<link%> and %<to%>"
-                   " clauses", t);
+         if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_ENTER)
+           error_at (OMP_CLAUSE_LOCATION (c),
+                     "%qD specified both in declare target %<link%> and %qs"
+                     " clauses", t, OMP_CLAUSE_ENTER_TO (c) ? "to" : "enter");
+         else
+           error_at (OMP_CLAUSE_LOCATION (c),
+                     "%qD specified both in declare target %<link%> and "
+                     "%<to%> or %<enter%> clauses", t);
          continue;
        }
       if (!at1)
--- gcc/cp/parser.cc.jj 2022-05-26 23:22:30.306850645 +0200
+++ gcc/cp/parser.cc    2022-05-27 17:31:19.086980582 +0200
@@ -45991,9 +45991,14 @@ handle_omp_declare_target_clause (tree c
     id = get_identifier ("omp declare target");
   if (at2)
     {
-      error_at (OMP_CLAUSE_LOCATION (c),
-               "%qD specified both in declare target %<link%> and %<to%>"
-               " clauses", t);
+      if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_ENTER)
+       error_at (OMP_CLAUSE_LOCATION (c),
+                 "%qD specified both in declare target %<link%> and %qs"
+                 " clauses", t, OMP_CLAUSE_ENTER_TO (c) ? "to" : "enter");
+      else
+       error_at (OMP_CLAUSE_LOCATION (c),
+                 "%qD specified both in declare target %<link%> and "
+                 "%<to%> or %<enter%> clauses", t);
       return false;
     }
   if (!at1)
--- gcc/testsuite/c-c++-common/gomp/declare-target-2.c.jj       2022-05-27 
12:31:36.114087022 +0200
+++ gcc/testsuite/c-c++-common/gomp/declare-target-2.c  2022-05-27 
17:38:12.173731493 +0200
@@ -10,7 +10,22 @@ int b;
 #pragma omp declare target enter (b) link (b)  /* { dg-error "appears more 
than once on the same .declare target. directive" } */
 int c;
 #pragma omp declare target (c)
-#pragma omp declare target link (c)            /* { dg-error "specified both 
in declare target" } */
+#pragma omp declare target link (c)            /* { dg-error "specified both 
in declare target 'link' and 'to' or 'enter' clauses" } */
+int c2;
+#pragma omp declare target to (c2)
+#pragma omp declare target link (c2)           /* { dg-error "specified both 
in declare target 'link' and 'to' or 'enter' clauses" } */
+int c3;
+#pragma omp declare target enter (c3)
+#pragma omp declare target link (c3)           /* { dg-error "specified both 
in declare target 'link' and 'to' or 'enter' clauses" } */
+int c4;
+#pragma omp declare target link (c4)
+#pragma omp declare target (c4)                        /* { dg-error 
"specified both in declare target 'link' and 'enter' clauses" } */
+int c5;
+#pragma omp declare target link (c5)
+#pragma omp declare target to (c5)             /* { dg-error "specified both 
in declare target 'link' and 'to' clauses" } */
+int c6;
+#pragma omp declare target link (c6)
+#pragma omp declare target enter (c6)          /* { dg-error "specified both 
in declare target 'link' and 'enter' clauses" } */
 int foo (void);
 #pragma omp declare target link (foo)          /* { dg-error "is not a 
variable in clause" } */
 struct S;

        Jakub