@@ -6544,18 +6544,20 @@ gimplify_scan_omp_clauses (tree *list_p, gimple_seq *pre_p,
the Fortran FE is updated to OpenMP 4.5. */
ctx->target_map_scalars_firstprivate = true;
}
- if (!lang_GNU_Fortran ())
- switch (code)
- {
- case OMP_TARGET:
- case OMP_TARGET_DATA:
- case OMP_TARGET_ENTER_DATA:
- case OMP_TARGET_EXIT_DATA:
- case OACC_HOST_DATA:
- ctx->target_firstprivatize_array_bases = true;
- default:
+ switch (code)
+ {
+ case OMP_TARGET:
+ case OMP_TARGET_DATA:
+ case OMP_TARGET_ENTER_DATA:
+ case OMP_TARGET_EXIT_DATA:
+ if (lang_GNU_Fortran ())
break;
- }
+ /* FALLTHRU */
+ case OACC_HOST_DATA:
+ ctx->target_firstprivatize_array_bases = true;
+ default:
+ break;
+ }
while ((c = *list_p) != NULL)
{