OpenMP, Fortran: Fix indentation in resolve_omp_clauses_aff_dep_map_cache

Commit basepoints/gcc-17-1747-ga7724fcb5f4 moved a large block of code
from resolve_omp_clauses to a new function.  I noticed that the
indentation of some nested switch statements looked odd when trying to
rebase some patches on top of this, and Tobias independently had
addressed this as part of his own WIP followup patch posted at
https://gcc.gnu.org/pipermail/gcc-patches/2026-June/721741.html.  This
patch addresses just the indentation problem and doesn't include any
functional changes.

gcc/fortran/ChangeLog
	* openmp.cc (resolve_omp_clauses_aff_dep_map_cache): Fix
	indentation.
Co-authored-by: Tobias Burnus <tburnus@baylibre.com>

diff --git a/gcc/fortran/openmp.cc b/gcc/fortran/openmp.cc
index bea829a38436ea1a7253a98c1775b4d67f52552d..64355971d9e157064cfef718e525c85c1560ebfa 100644 (file)
--- a/gcc/fortran/openmp.cc
+++ b/gcc/fortran/openmp.cc
@@ -9947,92 +9947,92 @@ resolve_omp_clauses_aff_dep_map_cache (gfc_code *code,
       case EXEC_OMP_TARGET_TEAMS_DISTRIBUTE_SIMD:
       case EXEC_OMP_TARGET_TEAMS_LOOP:
       case EXEC_OMP_TARGET_DATA:
-           switch (n->u.map.op)
-             {
-             case OMP_MAP_TO:
-             case OMP_MAP_ALWAYS_TO:
-             case OMP_MAP_PRESENT_TO:
-             case OMP_MAP_ALWAYS_PRESENT_TO:
-             case OMP_MAP_FROM:
-             case OMP_MAP_ALWAYS_FROM:
-             case OMP_MAP_PRESENT_FROM:
-             case OMP_MAP_ALWAYS_PRESENT_FROM:
-             case OMP_MAP_TOFROM:
-             case OMP_MAP_ALWAYS_TOFROM:
-             case OMP_MAP_PRESENT_TOFROM:
-             case OMP_MAP_ALWAYS_PRESENT_TOFROM:
-             case OMP_MAP_ALLOC:
-             case OMP_MAP_PRESENT_ALLOC:
-                         break;
-             default:
-                         gfc_error ("TARGET%s with map-type other than TO, "
-                                    "FROM, TOFROM, or ALLOC on MAP clause "
-                                    "at %L",
-                                    code->op == EXEC_OMP_TARGET_DATA
-                                    ? " DATA" : "", &n->where);
-                         break;
-             }
+       switch (n->u.map.op)
+         {
+         case OMP_MAP_TO:
+         case OMP_MAP_ALWAYS_TO:
+         case OMP_MAP_PRESENT_TO:
+         case OMP_MAP_ALWAYS_PRESENT_TO:
+         case OMP_MAP_FROM:
+         case OMP_MAP_ALWAYS_FROM:
+         case OMP_MAP_PRESENT_FROM:
+         case OMP_MAP_ALWAYS_PRESENT_FROM:
+         case OMP_MAP_TOFROM:
+         case OMP_MAP_ALWAYS_TOFROM:
+         case OMP_MAP_PRESENT_TOFROM:
+         case OMP_MAP_ALWAYS_PRESENT_TOFROM:
+         case OMP_MAP_ALLOC:
+         case OMP_MAP_PRESENT_ALLOC:
            break;
+         default:
+           gfc_error ("TARGET%s with map-type other than TO, "
+                      "FROM, TOFROM, or ALLOC on MAP clause "
+                      "at %L",
+                      code->op == EXEC_OMP_TARGET_DATA
+                      ? " DATA" : "", &n->where);
+           break;
+         }
+       break;
       case EXEC_OMP_TARGET_ENTER_DATA:
-           switch (n->u.map.op)
-             {
-             case OMP_MAP_TO:
-             case OMP_MAP_ALWAYS_TO:
-             case OMP_MAP_PRESENT_TO:
-             case OMP_MAP_ALWAYS_PRESENT_TO:
-             case OMP_MAP_ALLOC:
-             case OMP_MAP_PRESENT_ALLOC:
-                         break;
-             case OMP_MAP_TOFROM:
-                         n->u.map.op = OMP_MAP_TO;
-                         break;
-             case OMP_MAP_ALWAYS_TOFROM:
-                         n->u.map.op = OMP_MAP_ALWAYS_TO;
-                         break;
-             case OMP_MAP_PRESENT_TOFROM:
-                         n->u.map.op = OMP_MAP_PRESENT_TO;
-                         break;
-             case OMP_MAP_ALWAYS_PRESENT_TOFROM:
-                         n->u.map.op = OMP_MAP_ALWAYS_PRESENT_TO;
-                         break;
-             default:
-                         gfc_error ("TARGET ENTER DATA with map-type other "
-                                    "than TO, TOFROM or ALLOC on MAP clause "
-                                    "at %L", &n->where);
-                         break;
-             }
+       switch (n->u.map.op)
+         {
+         case OMP_MAP_TO:
+         case OMP_MAP_ALWAYS_TO:
+         case OMP_MAP_PRESENT_TO:
+         case OMP_MAP_ALWAYS_PRESENT_TO:
+         case OMP_MAP_ALLOC:
+         case OMP_MAP_PRESENT_ALLOC:
+           break;
+         case OMP_MAP_TOFROM:
+           n->u.map.op = OMP_MAP_TO;
+           break;
+         case OMP_MAP_ALWAYS_TOFROM:
+           n->u.map.op = OMP_MAP_ALWAYS_TO;
            break;
+         case OMP_MAP_PRESENT_TOFROM:
+           n->u.map.op = OMP_MAP_PRESENT_TO;
+           break;
+         case OMP_MAP_ALWAYS_PRESENT_TOFROM:
+           n->u.map.op = OMP_MAP_ALWAYS_PRESENT_TO;
+           break;
+         default:
+           gfc_error ("TARGET ENTER DATA with map-type other "
+                      "than TO, TOFROM or ALLOC on MAP clause "
+                      "at %L", &n->where);
+           break;
+         }
+       break;
       case EXEC_OMP_TARGET_EXIT_DATA:
-           switch (n->u.map.op)
-             {
-             case OMP_MAP_FROM:
-             case OMP_MAP_ALWAYS_FROM:
-             case OMP_MAP_PRESENT_FROM:
-             case OMP_MAP_ALWAYS_PRESENT_FROM:
-             case OMP_MAP_RELEASE:
-             case OMP_MAP_DELETE:
-                         break;
-             case OMP_MAP_TOFROM:
-                         n->u.map.op = OMP_MAP_FROM;
-                         break;
-             case OMP_MAP_ALWAYS_TOFROM:
-                         n->u.map.op = OMP_MAP_ALWAYS_FROM;
-                         break;
-             case OMP_MAP_PRESENT_TOFROM:
-                         n->u.map.op = OMP_MAP_PRESENT_FROM;
-                         break;
-             case OMP_MAP_ALWAYS_PRESENT_TOFROM:
-                         n->u.map.op = OMP_MAP_ALWAYS_PRESENT_FROM;
-                         break;
-             default:
-                         gfc_error ("TARGET EXIT DATA with map-type other "
-                                    "than FROM, TOFROM, RELEASE, or DELETE on "
-                                    "MAP clause at %L", &n->where);
-                         break;
-             }
+       switch (n->u.map.op)
+         {
+         case OMP_MAP_FROM:
+         case OMP_MAP_ALWAYS_FROM:
+         case OMP_MAP_PRESENT_FROM:
+         case OMP_MAP_ALWAYS_PRESENT_FROM:
+         case OMP_MAP_RELEASE:
+         case OMP_MAP_DELETE:
            break;
-      default:
+         case OMP_MAP_TOFROM:
+           n->u.map.op = OMP_MAP_FROM;
+           break;
+         case OMP_MAP_ALWAYS_TOFROM:
+           n->u.map.op = OMP_MAP_ALWAYS_FROM;
+           break;
+         case OMP_MAP_PRESENT_TOFROM:
+           n->u.map.op = OMP_MAP_PRESENT_FROM;
+           break;
+         case OMP_MAP_ALWAYS_PRESENT_TOFROM:
+           n->u.map.op = OMP_MAP_ALWAYS_PRESENT_FROM;
            break;
+         default:
+           gfc_error ("TARGET EXIT DATA with map-type other "
+                      "than FROM, TOFROM, RELEASE, or DELETE on "
+                      "MAP clause at %L", &n->where);
+           break;
+         }
+       break;
+      default:
+       break;
       }
   if (list == OMP_LIST_MAP || list == OMP_LIST_TO || list == OMP_LIST_FROM)
     {