Lines Matching defs:clause
421 /* Return true if DECL in private clause needs
422 OMP_CLAUSE_PRIVATE_OUTER_REF on the private clause. */
674 gfc_omp_clause_default_ctor (tree clause, tree decl, tree outer)
679 switch (OMP_CLAUSE_CODE (clause))
699 && (!GFC_DECL_GET_SCALAR_ALLOCATABLE (OMP_CLAUSE_DECL (clause))
702 if (gfc_has_alloc_comps (type, OMP_CLAUSE_DECL (clause)))
707 OMP_CLAUSE_DECL (clause),
755 if (gfc_has_alloc_comps (type, OMP_CLAUSE_DECL (clause)))
758 OMP_CLAUSE_DECL (clause),
764 /* Reduction clause requires allocated ALLOCATABLE. */
765 if (OMP_CLAUSE_CODE (clause) != OMP_CLAUSE_REDUCTION
766 && OMP_CLAUSE_CODE (clause) != OMP_CLAUSE_IN_REDUCTION
767 && OMP_CLAUSE_CODE (clause) != OMP_CLAUSE_TASK_REDUCTION)
801 gfc_omp_clause_copy_ctor (tree clause, tree dest, tree src)
804 tree decl_type = TREE_TYPE (OMP_CLAUSE_DECL (clause));
808 gcc_assert (OMP_CLAUSE_CODE (clause) == OMP_CLAUSE_FIRSTPRIVATE
809 || OMP_CLAUSE_CODE (clause) == OMP_CLAUSE_LINEAR);
812 if (DECL_P (OMP_CLAUSE_DECL (clause))
813 && GFC_DECL_ASSOCIATE_VAR_P (OMP_CLAUSE_DECL (clause)))
816 if (DECL_ARTIFICIAL (OMP_CLAUSE_DECL (clause))
817 && DECL_LANG_SPECIFIC (OMP_CLAUSE_DECL (clause))
818 && GFC_DECL_SAVED_DESCRIPTOR (OMP_CLAUSE_DECL (clause)))
820 = TREE_TYPE (GFC_DECL_SAVED_DESCRIPTOR (OMP_CLAUSE_DECL (clause)));
893 && (!GFC_DECL_GET_SCALAR_ALLOCATABLE (OMP_CLAUSE_DECL (clause))
896 if (gfc_has_alloc_comps (type, OMP_CLAUSE_DECL (clause)))
900 tree tem = gfc_walk_alloc_comps (src, dest, OMP_CLAUSE_DECL (clause),
955 if (gfc_has_alloc_comps (type, OMP_CLAUSE_DECL (clause)))
958 OMP_CLAUSE_DECL (clause),
989 gfc_omp_clause_assign_op (tree clause, tree dest, tree src)
997 && (!GFC_DECL_GET_SCALAR_ALLOCATABLE (OMP_CLAUSE_DECL (clause))
1000 if (gfc_has_alloc_comps (type, OMP_CLAUSE_DECL (clause)))
1005 OMP_CLAUSE_DECL (clause),
1011 tem = gfc_walk_alloc_comps (src, dest, OMP_CLAUSE_DECL (clause),
1022 if (gfc_has_alloc_comps (type, OMP_CLAUSE_DECL (clause)))
1024 then_b = gfc_walk_alloc_comps (dest, NULL_TREE, OMP_CLAUSE_DECL (clause),
1137 if (gfc_has_alloc_comps (type, OMP_CLAUSE_DECL (clause)))
1140 OMP_CLAUSE_DECL (clause),
1146 if (OMP_CLAUSE_CODE (clause) == OMP_CLAUSE_COPYIN)
1224 gfc_omp_clause_linear_ctor (tree clause, tree dest, tree src, tree add)
1229 gcc_assert (OMP_CLAUSE_CODE (clause) == OMP_CLAUSE_LINEAR);
1236 && (!GFC_DECL_GET_SCALAR_ALLOCATABLE (OMP_CLAUSE_DECL (clause))
1324 gfc_omp_clause_dtor (tree clause, tree decl)
1327 tree decl_type = TREE_TYPE (OMP_CLAUSE_DECL (clause));
1330 if (DECL_P (OMP_CLAUSE_DECL (clause))
1331 && GFC_DECL_ASSOCIATE_VAR_P (OMP_CLAUSE_DECL (clause)))
1334 if (DECL_ARTIFICIAL (OMP_CLAUSE_DECL (clause))
1335 && DECL_LANG_SPECIFIC (OMP_CLAUSE_DECL (clause))
1336 && GFC_DECL_SAVED_DESCRIPTOR (OMP_CLAUSE_DECL (clause)))
1338 = TREE_TYPE (GFC_DECL_SAVED_DESCRIPTOR (OMP_CLAUSE_DECL (clause)));
1386 && (!GFC_DECL_GET_SCALAR_ALLOCATABLE (OMP_CLAUSE_DECL (clause))
1389 if (gfc_has_alloc_comps (type, OMP_CLAUSE_DECL (clause)))
1391 OMP_CLAUSE_DECL (clause),
1409 if (gfc_has_alloc_comps (type, OMP_CLAUSE_DECL (clause)))
1417 OMP_CLAUSE_DECL (clause),
2233 /* And stick the placeholder VAR_DECL into the clause as well. */
2267 omp_clause_code clause = OMP_CLAUSE_REDUCTION;
2275 clause = OMP_CLAUSE_IN_REDUCTION;
2278 clause = OMP_CLAUSE_TASK_REDUCTION;
2290 clause);
2592 /* An OpenACC async clause indicates the need to set reduction
4317 clause, that one provides better location information. */
4335 clause, that one provides better location information. */
4353 clause, that one provides better location information. */
5054 clause, if present. */
5745 data mapping/sharing clause, add it to 'map(tofrom:' if is_target
6242 /* Private clause is supported on all constructs but master/masked,
6252 /* Firstprivate clause is supported on all constructs but
6328 /* Linear clause is supported on do and simd,
6350 /* Distribute allocate clause to do, parallel, distribute, teams, target
6353 privatization clause on those construct. If yes, then we add it
6409 gfc_error ("%qs specified in 'allocate' clause at %L but not "
6410 "in an explicit privatization clause",
7132 /* masked does have just filter clause, but during gimplification
Indexes created Wed Apr 29 00:23:26 UTC 2026