gcc/fortran/openmp.c

848      (omp_mask (OMP_CLAUSE_XXX) | OMP_CLAUSE_YYY | OMP_CLAUSE_ZZZ)
850    (XXX_CLAUSES | YYY_CLAUSES) & ~(omp_mask (OMP_CLAUSE_VVV))
854 struct omp_mask {
857   inline omp_mask ();
858   inline omp_mask (omp_mask1);
859   inline omp_mask (omp_mask2);
860   inline omp_mask (uint64_t, uint64_t);
861   inline omp_mask operator| (omp_mask1) const;
862   inline omp_mask operator| (omp_mask2) const;
863   inline omp_mask operator| (omp_mask) const;
864   inline omp_mask operator& (const omp_inv_mask &) const;
870 struct omp_inv_mask : public omp_mask {
871   inline omp_inv_mask (const omp_mask &);
874 omp_mask::omp_mask () : mask1 (0), mask2 (0)
878 omp_mask::omp_mask (omp_mask1 m) : mask1 (((uint64_t) 1) << m), mask2 (0)
882 omp_mask::omp_mask (omp_mask2 m) : mask1 (0), mask2 (((uint64_t) 1) << m)
886 omp_mask::omp_mask (uint64_t m1, uint64_t m2) : mask1 (m1), mask2 (m2)
890 omp_mask
891 omp_mask::operator| (omp_mask1 m) const
893   return omp_mask (mask1 | (((uint64_t) 1) << m), mask2);
896 omp_mask
897 omp_mask::operator| (omp_mask2 m) const
899   return omp_mask (mask1, mask2 | (((uint64_t) 1) << m));
902 omp_mask
903 omp_mask::operator| (omp_mask m) const
905   return omp_mask (mask1 | m.mask1, mask2 | m.mask2);
908 omp_mask
909 omp_mask::operator& (const omp_inv_mask &m) const
911   return omp_mask (mask1 & ~m.mask1, mask2 & ~m.mask2);
915 omp_mask::operator& (omp_mask1 m) const
921 omp_mask::operator& (omp_mask2 m) const
927 omp_mask::operator~ () const
932 omp_inv_mask::omp_inv_mask (const omp_mask &m) : omp_mask (m)
961 gfc_match_omp_clauses (gfc_omp_clauses **cp, const omp_mask mask,
2002   (omp_mask (OMP_CLAUSE_IF) | OMP_CLAUSE_ASYNC | OMP_CLAUSE_NUM_GANGS	      \
2009   (omp_mask (OMP_CLAUSE_IF) | OMP_CLAUSE_ASYNC | OMP_CLAUSE_NUM_GANGS	      \
2015   (omp_mask (OMP_CLAUSE_IF) | OMP_CLAUSE_ASYNC | OMP_CLAUSE_REDUCTION	      \
2021   (omp_mask (OMP_CLAUSE_IF) | OMP_CLAUSE_DEVICEPTR  | OMP_CLAUSE_COPY	      \
2025   (omp_mask (OMP_CLAUSE_COLLAPSE) | OMP_CLAUSE_GANG | OMP_CLAUSE_WORKER	      \
2036   (omp_mask (OMP_CLAUSE_USE_DEVICE)					      \
2040   (omp_mask (OMP_CLAUSE_COPY) | OMP_CLAUSE_COPYIN | OMP_CLAUSE_COPYOUT	      \
2045   (omp_mask (OMP_CLAUSE_IF) | OMP_CLAUSE_ASYNC | OMP_CLAUSE_HOST_SELF	      \
2048   (omp_mask (OMP_CLAUSE_IF) | OMP_CLAUSE_ASYNC | OMP_CLAUSE_WAIT	      \
2051   (omp_mask (OMP_CLAUSE_IF) | OMP_CLAUSE_ASYNC | OMP_CLAUSE_WAIT	      \
2055   omp_mask (OMP_CLAUSE_ASYNC)
2057   (omp_mask (OMP_CLAUSE_GANG) | OMP_CLAUSE_WORKER | OMP_CLAUSE_VECTOR	      \
2062 match_acc (gfc_exec_op op, const omp_mask mask)
2545   (omp_mask (OMP_CLAUSE_PRIVATE) | OMP_CLAUSE_FIRSTPRIVATE		\
2550   (omp_mask (OMP_CLAUSE_SIMDLEN) | OMP_CLAUSE_LINEAR			\
2554   (omp_mask (OMP_CLAUSE_PRIVATE) | OMP_CLAUSE_FIRSTPRIVATE		\
2559   (omp_mask (OMP_CLAUSE_PRIVATE) | OMP_CLAUSE_FIRSTPRIVATE		\
2562   (omp_mask (OMP_CLAUSE_PRIVATE) | OMP_CLAUSE_LASTPRIVATE		\
2566   (omp_mask (OMP_CLAUSE_PRIVATE) | OMP_CLAUSE_FIRSTPRIVATE		\
2571   (omp_mask (OMP_CLAUSE_PRIVATE) | OMP_CLAUSE_FIRSTPRIVATE		\
2577   (omp_mask (OMP_CLAUSE_DEVICE) | OMP_CLAUSE_MAP | OMP_CLAUSE_IF	\
2582   (omp_mask (OMP_CLAUSE_DEVICE) | OMP_CLAUSE_MAP | OMP_CLAUSE_IF	\
2585   (omp_mask (OMP_CLAUSE_DEVICE) | OMP_CLAUSE_MAP | OMP_CLAUSE_IF	\
2588   (omp_mask (OMP_CLAUSE_DEVICE) | OMP_CLAUSE_MAP | OMP_CLAUSE_IF	\
2591   (omp_mask (OMP_CLAUSE_DEVICE) | OMP_CLAUSE_IF | OMP_CLAUSE_TO		\
2594   (omp_mask (OMP_CLAUSE_NUM_TEAMS) | OMP_CLAUSE_THREAD_LIMIT		\
2598   (omp_mask (OMP_CLAUSE_PRIVATE) | OMP_CLAUSE_FIRSTPRIVATE		\
2601   (omp_mask (OMP_CLAUSE_PRIVATE) | OMP_CLAUSE_FIRSTPRIVATE)
2603   (omp_mask (OMP_CLAUSE_THREADS) | OMP_CLAUSE_SIMD)
2605   (omp_mask (OMP_CLAUSE_TO) | OMP_CLAUSE_LINK)
2609 match_omp (gfc_exec_op op, const omp_mask mask)
2635   else if (gfc_match_omp_clauses (&c, omp_mask (OMP_CLAUSE_HINT)) != MATCH_YES)
2678 		    & ~(omp_mask (OMP_CLAUSE_ORDERED))
2679 		    & ~(omp_mask (OMP_CLAUSE_LINEAR)));
2689 		    & ~(omp_mask (OMP_CLAUSE_ORDERED)));
3465 		    & ~(omp_mask (OMP_CLAUSE_COPYIN)));
3474 		     | OMP_DO_CLAUSES) & ~(omp_mask (OMP_CLAUSE_COPYIN)));
3483 		     | OMP_SIMD_CLAUSES) & ~(omp_mask (OMP_CLAUSE_COPYIN)));
3519 		    & ~(omp_mask (OMP_CLAUSE_ORDERED))
3520 		    & ~(omp_mask (OMP_CLAUSE_LINEAR)));
3531 		    & ~(omp_mask (OMP_CLAUSE_ORDERED)));
3570 		    & ~(omp_mask (OMP_CLAUSE_REDUCTION)));
3623 		    & ~(omp_mask (OMP_CLAUSE_ORDERED))
3624 		    & ~(omp_mask (OMP_CLAUSE_LINEAR)));
3634 		     | OMP_SIMD_CLAUSES) & ~(omp_mask (OMP_CLAUSE_ORDERED)));
3685   return match_omp (EXEC_OMP_ORDERED, omp_mask (OMP_CLAUSE_DEPEND));
3798   if (gfc_match_omp_clauses (&c, omp_mask (OMP_CLAUSE_IF), false) != MATCH_YES)
3855   if (gfc_match_omp_clauses (&c, omp_mask (OMP_CLAUSE_COPYPRIVATE))