test/Semantics/omp-clause-validity01.f90 - llvm-project/flang - Git at Google

 ! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp
 use omp_lib
 ! Check OpenMP clause validity for the following directives:
 !
 !    2.5 PARALLEL construct
 !    2.7.1 Loop construct
 !    ...

   integer :: b = 128
   integer :: z, c = 32
   integer, parameter :: num = 16
   real(8) :: arrayA(256), arrayB(512)

   integer(omp_memspace_handle_kind) :: xy_memspace = omp_default_mem_space
   type(omp_alloctrait) :: xy_traits(1) = [omp_alloctrait(omp_atk_alignment,64)]
   integer(omp_allocator_handle_kind) :: xy_alloc
   xy_alloc = omp_init_allocator(xy_memspace, 1, xy_traits)

   arrayA = 1.414
   arrayB = 3.14
   N = 1024

 ! 2.5 parallel-clause -> if-clause |
 !                        num-threads-clause |
 !                        default-clause |
 !                        private-clause |
 !                        firstprivate-clause |
 !                        shared-clause |
 !                        copyin-clause |
 !                        reduction-clause |
 !                        proc-bind-clause |
 !                        allocate-clause

   !$omp parallel
   do i = 1, N
      a = 3.14
   enddo
   !$omp end parallel

   !$omp parallel private(b) allocate(b)
   do i = 1, N
      a = 3.14
   enddo
   !$omp end parallel

   !$omp parallel private(c, b) allocate(omp_default_mem_space : b, c)
   do i = 1, N
      a = 3.14
   enddo
   !$omp end parallel

   !$omp parallel allocate(b) allocate(c) private(b, c)
   do i = 1, N
      a = 3.14
   enddo
   !$omp end parallel

   !$omp parallel allocate(xy_alloc :b) private(b)
   do i = 1, N
      a = 3.14
   enddo
   !$omp end parallel

   !$omp task private(b) allocate(b)
   do i = 1, N
      z = 2
   end do
   !$omp end task

   !$omp teams private(b) allocate(b)
   do i = 1, N
      z = 2
   end do
   !$omp end teams

   !$omp target private(b) allocate(b)
   do i = 1, N
      z = 2
   end do
   !$omp end target

   !ERROR: ALLOCATE clause is not allowed on the TARGET DATA directive
   !$omp target data map(from: b) allocate(b)
   do i = 1, N
      z = 2
   enddo
   !$omp end target data

   !ERROR: SCHEDULE clause is not allowed on the PARALLEL directive
   !$omp parallel schedule(static)
   do i = 1, N
      a = 3.14
   enddo
   !$omp end parallel

   !ERROR: COLLAPSE clause is not allowed on the PARALLEL directive
   !$omp parallel collapse(2)
   do i = 1, N
      do j = 1, N
         a = 3.14
      enddo
   enddo
   !$omp end parallel

   !ERROR: The parameter of the COLLAPSE clause must be a constant positive integer expression
   !$omp do collapse(-1)
   do i = 1, N
     do j = 1, N
       a = 3.14
     enddo
   enddo
   !$omp end do

   a = 1.0
   !$omp parallel firstprivate(a)
   do i = 1, N
      a = 3.14
   enddo
   !ERROR: NUM_THREADS clause is not allowed on the END PARALLEL directive
   !$omp end parallel num_threads(4)

   !ERROR: LASTPRIVATE clause is not allowed on the PARALLEL directive
   !ERROR: NUM_TASKS clause is not allowed on the PARALLEL directive
   !ERROR: INBRANCH clause is not allowed on the PARALLEL directive
   !$omp parallel lastprivate(a) NUM_TASKS(4) inbranch
   do i = 1, N
      a = 3.14
   enddo
   !$omp end parallel

   !ERROR: At most one NUM_THREADS clause can appear on the PARALLEL directive
   !$omp parallel num_threads(2) num_threads(4)
   do i = 1, N
      a = 3.14
   enddo
   !$omp end parallel

   !ERROR: The parameter of the NUM_THREADS clause must be a positive integer expression
   !$omp parallel num_threads(1-4)
   do i = 1, N
      a = 3.14
   enddo
   !ERROR: NOWAIT clause is not allowed on the END PARALLEL directive
   !$omp end parallel nowait

   !$omp parallel num_threads(num-10)
   do i = 1, N
      a = 3.14
   enddo
   !$omp end parallel

   !$omp parallel num_threads(b+1)
   do i = 1, N
      a = 3.14
   enddo
   !$omp end parallel

   !$omp parallel
   do i = 1, N
   enddo
   !ERROR: Unmatched END TARGET directive
   !$omp end target

   ! OMP 5.0 - 2.6 Restriction point 1
   outofparallel: do k =1, 10
   !$omp parallel
   !$omp do
   outer: do i=0, 10
     inner: do j=1, 10
       exit
       exit outer
       !ERROR: EXIT to construct 'outofparallel' outside of PARALLEL construct is not allowed
       !ERROR: EXIT to construct 'outofparallel' outside of DO construct is not allowed
       exit outofparallel
     end do inner
   end do outer
   !$omp end do
   !$omp end parallel
   end do outofparallel

 ! 2.7.1  do-clause -> private-clause |
 !                     firstprivate-clause |
 !                     lastprivate-clause |
 !                     linear-clause |
 !                     reduction-clause |
 !                     schedule-clause |
 !                     collapse-clause |
 !                     ordered-clause

   !ERROR: When SCHEDULE clause has AUTO specified, it must not have chunk size specified
   !ERROR: At most one SCHEDULE clause can appear on the DO directive
   !ERROR: When SCHEDULE clause has RUNTIME specified, it must not have chunk size specified
   !$omp do schedule(auto, 2) schedule(runtime, 2)
   do i = 1, N
      a = 3.14
   enddo

   !ERROR: A modifier may not be specified in a LINEAR clause on the DO directive
   !$omp do linear(ref(b))
   do i = 1, N
      a = 3.14
   enddo

   !ERROR: The NONMONOTONIC modifier can only be specified with SCHEDULE(DYNAMIC) or SCHEDULE(GUIDED)
   !ERROR: The NONMONOTONIC modifier cannot be specified if an ORDERED clause is specified
   !$omp do schedule(NONMONOTONIC:static) ordered
   do i = 1, N
      a = 3.14
   enddo

   !$omp do schedule(simd, monotonic:dynamic)
   do i = 1, N
      a = 3.14
   enddo

   !ERROR: Clause LINEAR is not allowed if clause ORDERED appears on the DO directive
   !ERROR: The parameter of the ORDERED clause must be a constant positive integer expression
   !$omp do ordered(1-1) private(b) linear(b) linear(a)
   do i = 1, N
      a = 3.14
   enddo

   !ERROR: The parameter of the ORDERED clause must be greater than or equal to the parameter of the COLLAPSE clause
   !$omp do collapse(num-14) ordered(1)
   do i = 1, N
      do j = 1, N
         do k = 1, N
            a = 3.14
         enddo
      enddo
   enddo

   !$omp parallel do simd if(parallel:a>1.)
   do i = 1, N
   enddo
   !$omp end parallel do simd

   !ERROR: Unmatched directive name modifier TARGET on the IF clause
   !$omp parallel do if(target:a>1.)
   do i = 1, N
   enddo
   !ERROR: Unmatched END SIMD directive
   !$omp end simd

 ! 2.7.2 sections-clause -> private-clause |
 !                         firstprivate-clause |
 !                         lastprivate-clause |
 !                         reduction-clause

   !$omp parallel
   !$omp sections
   !$omp section
   a = 0.0
   !$omp section
   b = 1
   !$omp end sections nowait
   !$omp end parallel

   !$omp parallel
   !$omp sections
   !$omp section
   a = 0.0
   !ERROR: Unmatched END PARALLEL SECTIONS directive
   !$omp end parallel sections
   !$omp end parallel

   !$omp parallel
   !$omp sections
   a = 0.0
   b = 1
   !$omp section
   c = 1
   d = 2
   !ERROR: NUM_THREADS clause is not allowed on the END SECTIONS directive
   !$omp end sections num_threads(4)

   !$omp parallel
   !$omp sections
     b = 1
   !$omp section
     c = 1
     d = 2
   !ERROR: At most one NOWAIT clause can appear on the END SECTIONS directive
   !$omp end sections nowait nowait
   !$omp end parallel

   !$omp end parallel

 ! 2.11.2 parallel-sections-clause -> parallel-clause |
 !                                    sections-clause

   !$omp parallel sections num_threads(4) private(b) lastprivate(d)
   a = 0.0
   !$omp section
   b = 1
   c = 2
   !$omp section
   d = 3
   !$omp end parallel sections

   !ERROR: At most one NUM_THREADS clause can appear on the PARALLEL SECTIONS directive
   !$omp parallel sections num_threads(1) num_threads(4)
   a = 0.0
   !ERROR: Unmatched END SECTIONS directive
   !$omp end sections

   !$omp parallel sections
   !ERROR: NOWAIT clause is not allowed on the END PARALLEL SECTIONS directive
   !$omp end parallel sections nowait

 ! 2.7.3 single-clause -> private-clause |
 !                        firstprivate-clause
 !   end-single-clause -> copyprivate-clause |
 !                        nowait-clause

   !$omp parallel
   b = 1
   !ERROR: LASTPRIVATE clause is not allowed on the SINGLE directive
   !$omp single private(a) lastprivate(c)
   a = 3.14
   !ERROR: Clause NOWAIT is not allowed if clause COPYPRIVATE appears on the END SINGLE directive
   !ERROR: COPYPRIVATE variable 'a' may not appear on a PRIVATE or FIRSTPRIVATE clause on a SINGLE construct
   !ERROR: At most one NOWAIT clause can appear on the END SINGLE directive
   !$omp end single copyprivate(a) nowait nowait
   c = 2
   !$omp end parallel

 ! 2.7.4 workshare

   !$omp parallel
   !$omp workshare
   a = 1.0
   !$omp end workshare nowait
   !ERROR: NUM_THREADS clause is not allowed on the WORKSHARE directive
   !$omp workshare num_threads(4)
   a = 1.0
   !ERROR: COPYPRIVATE clause is not allowed on the END WORKSHARE directive
   !$omp end workshare nowait copyprivate(a)
   !$omp end parallel

 ! 2.8.1 simd-clause -> safelen-clause |
 !                      simdlen-clause |
 !                      linear-clause |
 !                      aligned-clause |
 !                      private-clause |
 !                      lastprivate-clause |
 !                      reduction-clause |
 !                      collapse-clause

   a = 0.0
   !ERROR: TASK_REDUCTION clause is not allowed on the SIMD directive
   !$omp simd private(b) reduction(+:a) task_reduction(+:a)
   do i = 1, N
      a = a + b + 3.14
   enddo

   !ERROR: At most one SAFELEN clause can appear on the SIMD directive
   !$omp simd safelen(1) safelen(2)
   do i = 1, N
      a = 3.14
   enddo

   !ERROR: The parameter of the SIMDLEN clause must be a constant positive integer expression
   !$omp simd simdlen(-1)
   do i = 1, N
      a = 3.14
   enddo

   !ERROR: The parameter of the ALIGNED clause must be a constant positive integer expression
   !$omp simd aligned(b:-2)
   do i = 1, N
      a = 3.14
   enddo

   !$omp parallel
   !ERROR: The parameter of the SIMDLEN clause must be less than or equal to the parameter of the SAFELEN clause
   !$omp simd safelen(1+1) simdlen(1+2)
   do i = 1, N
      a = 3.14
   enddo
   !$omp end parallel

 ! 2.11.1 parallel-do-clause -> parallel-clause |
 !                              do-clause

   !ERROR: At most one PROC_BIND clause can appear on the PARALLEL DO directive
   !ERROR: A modifier may not be specified in a LINEAR clause on the PARALLEL DO directive
   !$omp parallel do proc_bind(master) proc_bind(close) linear(val(b))
   do i = 1, N
      a = 3.14
   enddo

 ! 2.8.3 do-simd-clause -> do-clause |
 !                         simd-clause

   !$omp parallel
   !ERROR: No ORDERED clause with a parameter can be specified on the DO SIMD directive
   !ERROR: NOGROUP clause is not allowed on the DO SIMD directive
   !$omp do simd ordered(2) NOGROUP
   do i = 1, N
      do j = 1, N
         a = 3.14
      enddo
   enddo
   !$omp end parallel

 ! 2.11.4 parallel-do-simd-clause -> parallel-clause |
 !                                   do-simd-clause

   !$omp parallel do simd collapse(2) safelen(2) &
   !$omp & simdlen(1) private(c) firstprivate(a) proc_bind(spread)
   do i = 1, N
      do j = 1, N
         a = 3.14
      enddo
   enddo

 ! 2.9.2 taskloop -> TASKLOOP [taskloop-clause[ [,] taskloop-clause]...]
 !       taskloop-clause -> if-clause |
 !                          shared-clause |
 !                          private-clause |
 !                          firstprivate-clause |
 !                          lastprivate-clause |
 !                          default-clause |
 !                          grainsize-clause |
 !                          num-tasks-clause |
 !                          collapse-clause |
 !                          final-clause |
 !                          priority-clause |
 !                          untied-clause |
 !                          mergeable-clause |
 !                          nogroup-clause

   !$omp taskloop
   do i = 1, N
      a = 3.14
   enddo

   !ERROR: SCHEDULE clause is not allowed on the TASKLOOP directive
   !$omp taskloop schedule(static)
   do i = 1, N
      a = 3.14
   enddo

   !ERROR: GRAINSIZE and NUM_TASKS clauses are mutually exclusive and may not appear on the same TASKLOOP directive
   !$omp taskloop num_tasks(3) grainsize(2)
   do i = 1,N
      a = 3.14
   enddo

   !ERROR: At most one NUM_TASKS clause can appear on the TASKLOOP directive
   !ERROR: TASK_REDUCTION clause is not allowed on the TASKLOOP directive
   !$omp taskloop num_tasks(3) num_tasks(2) task_reduction(*:a)
   do i = 1,N
     a = 3.14
   enddo

 ! 2.13.1 master

   !$omp parallel
   !$omp master
   a=3.14
   !$omp end master
   !$omp end parallel

   !$omp parallel
   !ERROR: NUM_THREADS clause is not allowed on the MASTER directive
   !$omp master num_threads(4)
   a=3.14
   !$omp end master
   !$omp end parallel

 ! Standalone Directives (basic)

   !$omp taskyield
   !$omp barrier
   !$omp taskwait
   !$omp taskwait depend(source)
   ! !$omp taskwait depend(sink:i-1)
   ! !$omp target enter data map(to:arrayA) map(alloc:arrayB)
   ! !$omp target update from(arrayA) to(arrayB)
   ! !$omp target exit data map(from:arrayA) map(delete:arrayB)
   !$omp ordered depend(source)
   ! !$omp ordered depend(sink:i-1)
   !$omp flush (c)
   !$omp flush acq_rel
   !$omp flush release
   !$omp flush acquire
   !ERROR: If memory-order-clause is RELEASE, ACQUIRE, or ACQ_REL, list items must not be specified on the FLUSH directive
   !$omp flush release (c)
   !ERROR: SEQ_CST clause is not allowed on the FLUSH directive
   !$omp flush seq_cst
   !ERROR: RELAXED clause is not allowed on the FLUSH directive
   !$omp flush relaxed

 ! 2.13.2 critical Construct

   ! !$omp critical (first)
   a = 3.14
   ! !$omp end critical (first)

 ! 2.9.1 task-clause -> if-clause |
 !                      final-clause |
 !                      untied-clause |
 !                      default-clause |
 !                      mergeable-clause |
 !                      private-clause |
 !                      firstprivate-clause |
 !                      shared-clause |
 !                      depend-clause |
 !                      priority-clause

   !$omp task shared(a) default(none) if(task:a > 1.)
   a = 1.
   !$omp end task

   !ERROR: Unmatched directive name modifier TASKLOOP on the IF clause
   !$omp task private(a) if(taskloop:a.eq.1)
   a = 1.
   !$omp end task

   !ERROR: LASTPRIVATE clause is not allowed on the TASK directive
   !ERROR: At most one FINAL clause can appear on the TASK directive
   !$omp task lastprivate(b) final(a.GE.1) final(.false.)
   b = 1
   !$omp end task

   !ERROR: The parameter of the PRIORITY clause must be a positive integer expression
   !$omp task priority(-1) firstprivate(a) mergeable
   a = 3.14
   !$omp end task

 ! 2.9.3 taskloop-simd-clause -> taskloop-clause |
 !                               simd-clause

   !$omp taskloop simd
   do i = 1, N
      a = 3.14
   enddo
   !$omp end taskloop simd

   !$omp taskloop simd reduction(+:a)
   do i = 1, N
      a = a + 3.14
   enddo
   !ERROR: Unmatched END TASKLOOP directive
   !$omp end taskloop

   !ERROR: GRAINSIZE and NUM_TASKS clauses are mutually exclusive and may not appear on the same TASKLOOP SIMD directive
   !$omp taskloop simd num_tasks(3) grainsize(2)
   do i = 1,N
      a = 3.14
   enddo

   !ERROR: The parameter of the SIMDLEN clause must be a constant positive integer expression
   !ERROR: The parameter of the ALIGNED clause must be a constant positive integer expression
   !$omp taskloop simd simdlen(-1) aligned(a:-2)
   do i = 1, N
      a = 3.14
   enddo
 end program
	! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenmp
	use omp_lib
	! Check OpenMP clause validity for the following directives:
	!
	! 2.5 PARALLEL construct
	! 2.7.1 Loop construct
	! ...

	integer :: b = 128
	integer :: z, c = 32
	integer, parameter :: num = 16
	real(8) :: arrayA(256), arrayB(512)

	integer(omp_memspace_handle_kind) :: xy_memspace = omp_default_mem_space
	type(omp_alloctrait) :: xy_traits(1) = [omp_alloctrait(omp_atk_alignment,64)]
	integer(omp_allocator_handle_kind) :: xy_alloc
	xy_alloc = omp_init_allocator(xy_memspace, 1, xy_traits)

	arrayA = 1.414
	arrayB = 3.14
	N = 1024

	! 2.5 parallel-clause -> if-clause \|
	! num-threads-clause \|
	! default-clause \|
	! private-clause \|
	! firstprivate-clause \|
	! shared-clause \|
	! copyin-clause \|
	! reduction-clause \|
	! proc-bind-clause \|
	! allocate-clause

	!$omp parallel
	do i = 1, N
	a = 3.14
	enddo
	!$omp end parallel

	!$omp parallel private(b) allocate(b)
	do i = 1, N
	a = 3.14
	enddo
	!$omp end parallel

	!$omp parallel private(c, b) allocate(omp_default_mem_space : b, c)
	do i = 1, N
	a = 3.14
	enddo
	!$omp end parallel

	!$omp parallel allocate(b) allocate(c) private(b, c)
	do i = 1, N
	a = 3.14
	enddo
	!$omp end parallel

	!$omp parallel allocate(xy_alloc :b) private(b)
	do i = 1, N
	a = 3.14
	enddo
	!$omp end parallel

	!$omp task private(b) allocate(b)
	do i = 1, N
	z = 2
	end do
	!$omp end task

	!$omp teams private(b) allocate(b)
	do i = 1, N
	z = 2
	end do
	!$omp end teams

	!$omp target private(b) allocate(b)
	do i = 1, N
	z = 2
	end do
	!$omp end target

	!ERROR: ALLOCATE clause is not allowed on the TARGET DATA directive
	!$omp target data map(from: b) allocate(b)
	do i = 1, N
	z = 2
	enddo
	!$omp end target data

	!ERROR: SCHEDULE clause is not allowed on the PARALLEL directive
	!$omp parallel schedule(static)
	do i = 1, N
	a = 3.14
	enddo
	!$omp end parallel

	!ERROR: COLLAPSE clause is not allowed on the PARALLEL directive
	!$omp parallel collapse(2)
	do i = 1, N
	do j = 1, N
	a = 3.14
	enddo
	enddo
	!$omp end parallel

	!ERROR: The parameter of the COLLAPSE clause must be a constant positive integer expression
	!$omp do collapse(-1)
	do i = 1, N
	do j = 1, N
	a = 3.14
	enddo
	enddo
	!$omp end do

	a = 1.0
	!$omp parallel firstprivate(a)
	do i = 1, N
	a = 3.14
	enddo
	!ERROR: NUM_THREADS clause is not allowed on the END PARALLEL directive
	!$omp end parallel num_threads(4)

	!ERROR: LASTPRIVATE clause is not allowed on the PARALLEL directive
	!ERROR: NUM_TASKS clause is not allowed on the PARALLEL directive
	!ERROR: INBRANCH clause is not allowed on the PARALLEL directive
	!$omp parallel lastprivate(a) NUM_TASKS(4) inbranch
	do i = 1, N
	a = 3.14
	enddo
	!$omp end parallel

	!ERROR: At most one NUM_THREADS clause can appear on the PARALLEL directive
	!$omp parallel num_threads(2) num_threads(4)
	do i = 1, N
	a = 3.14
	enddo
	!$omp end parallel

	!ERROR: The parameter of the NUM_THREADS clause must be a positive integer expression
	!$omp parallel num_threads(1-4)
	do i = 1, N
	a = 3.14
	enddo
	!ERROR: NOWAIT clause is not allowed on the END PARALLEL directive
	!$omp end parallel nowait

	!$omp parallel num_threads(num-10)
	do i = 1, N
	a = 3.14
	enddo
	!$omp end parallel

	!$omp parallel num_threads(b+1)
	do i = 1, N
	a = 3.14
	enddo
	!$omp end parallel

	!$omp parallel
	do i = 1, N
	enddo
	!ERROR: Unmatched END TARGET directive
	!$omp end target

	! OMP 5.0 - 2.6 Restriction point 1
	outofparallel: do k =1, 10
	!$omp parallel
	!$omp do
	outer: do i=0, 10
	inner: do j=1, 10
	exit
	exit outer
	!ERROR: EXIT to construct 'outofparallel' outside of PARALLEL construct is not allowed
	!ERROR: EXIT to construct 'outofparallel' outside of DO construct is not allowed
	exit outofparallel
	end do inner
	end do outer
	!$omp end do
	!$omp end parallel
	end do outofparallel

	! 2.7.1 do-clause -> private-clause \|
	! firstprivate-clause \|
	! lastprivate-clause \|
	! linear-clause \|
	! reduction-clause \|
	! schedule-clause \|
	! collapse-clause \|
	! ordered-clause

	!ERROR: When SCHEDULE clause has AUTO specified, it must not have chunk size specified
	!ERROR: At most one SCHEDULE clause can appear on the DO directive
	!ERROR: When SCHEDULE clause has RUNTIME specified, it must not have chunk size specified
	!$omp do schedule(auto, 2) schedule(runtime, 2)
	do i = 1, N
	a = 3.14
	enddo

	!ERROR: A modifier may not be specified in a LINEAR clause on the DO directive
	!$omp do linear(ref(b))
	do i = 1, N
	a = 3.14
	enddo

	!ERROR: The NONMONOTONIC modifier can only be specified with SCHEDULE(DYNAMIC) or SCHEDULE(GUIDED)
	!ERROR: The NONMONOTONIC modifier cannot be specified if an ORDERED clause is specified
	!$omp do schedule(NONMONOTONIC:static) ordered
	do i = 1, N
	a = 3.14
	enddo

	!$omp do schedule(simd, monotonic:dynamic)
	do i = 1, N
	a = 3.14
	enddo

	!ERROR: Clause LINEAR is not allowed if clause ORDERED appears on the DO directive
	!ERROR: The parameter of the ORDERED clause must be a constant positive integer expression
	!$omp do ordered(1-1) private(b) linear(b) linear(a)
	do i = 1, N
	a = 3.14
	enddo

	!ERROR: The parameter of the ORDERED clause must be greater than or equal to the parameter of the COLLAPSE clause
	!$omp do collapse(num-14) ordered(1)
	do i = 1, N
	do j = 1, N
	do k = 1, N
	a = 3.14
	enddo
	enddo
	enddo

	!$omp parallel do simd if(parallel:a>1.)
	do i = 1, N
	enddo
	!$omp end parallel do simd

	!ERROR: Unmatched directive name modifier TARGET on the IF clause
	!$omp parallel do if(target:a>1.)
	do i = 1, N
	enddo
	!ERROR: Unmatched END SIMD directive
	!$omp end simd

	! 2.7.2 sections-clause -> private-clause \|
	! firstprivate-clause \|
	! lastprivate-clause \|
	! reduction-clause

	!$omp parallel
	!$omp sections
	!$omp section
	a = 0.0
	!$omp section
	b = 1
	!$omp end sections nowait
	!$omp end parallel

	!$omp parallel
	!$omp sections
	!$omp section
	a = 0.0
	!ERROR: Unmatched END PARALLEL SECTIONS directive
	!$omp end parallel sections
	!$omp end parallel

	!$omp parallel
	!$omp sections
	a = 0.0
	b = 1
	!$omp section
	c = 1
	d = 2
	!ERROR: NUM_THREADS clause is not allowed on the END SECTIONS directive
	!$omp end sections num_threads(4)

	!$omp parallel
	!$omp sections
	b = 1
	!$omp section
	c = 1
	d = 2
	!ERROR: At most one NOWAIT clause can appear on the END SECTIONS directive
	!$omp end sections nowait nowait
	!$omp end parallel

	!$omp end parallel

	! 2.11.2 parallel-sections-clause -> parallel-clause \|
	! sections-clause

	!$omp parallel sections num_threads(4) private(b) lastprivate(d)
	a = 0.0
	!$omp section
	b = 1
	c = 2
	!$omp section
	d = 3
	!$omp end parallel sections

	!ERROR: At most one NUM_THREADS clause can appear on the PARALLEL SECTIONS directive
	!$omp parallel sections num_threads(1) num_threads(4)
	a = 0.0
	!ERROR: Unmatched END SECTIONS directive
	!$omp end sections

	!$omp parallel sections
	!ERROR: NOWAIT clause is not allowed on the END PARALLEL SECTIONS directive
	!$omp end parallel sections nowait

	! 2.7.3 single-clause -> private-clause \|
	! firstprivate-clause
	! end-single-clause -> copyprivate-clause \|
	! nowait-clause

	!$omp parallel
	b = 1
	!ERROR: LASTPRIVATE clause is not allowed on the SINGLE directive
	!$omp single private(a) lastprivate(c)
	a = 3.14
	!ERROR: Clause NOWAIT is not allowed if clause COPYPRIVATE appears on the END SINGLE directive
	!ERROR: COPYPRIVATE variable 'a' may not appear on a PRIVATE or FIRSTPRIVATE clause on a SINGLE construct
	!ERROR: At most one NOWAIT clause can appear on the END SINGLE directive
	!$omp end single copyprivate(a) nowait nowait
	c = 2
	!$omp end parallel

	! 2.7.4 workshare

	!$omp parallel
	!$omp workshare
	a = 1.0
	!$omp end workshare nowait
	!ERROR: NUM_THREADS clause is not allowed on the WORKSHARE directive
	!$omp workshare num_threads(4)
	a = 1.0
	!ERROR: COPYPRIVATE clause is not allowed on the END WORKSHARE directive
	!$omp end workshare nowait copyprivate(a)
	!$omp end parallel

	! 2.8.1 simd-clause -> safelen-clause \|
	! simdlen-clause \|
	! linear-clause \|
	! aligned-clause \|
	! private-clause \|
	! lastprivate-clause \|
	! reduction-clause \|
	! collapse-clause

	a = 0.0
	!ERROR: TASK_REDUCTION clause is not allowed on the SIMD directive
	!$omp simd private(b) reduction(+:a) task_reduction(+:a)
	do i = 1, N
	a = a + b + 3.14
	enddo

	!ERROR: At most one SAFELEN clause can appear on the SIMD directive
	!$omp simd safelen(1) safelen(2)
	do i = 1, N
	a = 3.14
	enddo

	!ERROR: The parameter of the SIMDLEN clause must be a constant positive integer expression
	!$omp simd simdlen(-1)
	do i = 1, N
	a = 3.14
	enddo

	!ERROR: The parameter of the ALIGNED clause must be a constant positive integer expression
	!$omp simd aligned(b:-2)
	do i = 1, N
	a = 3.14
	enddo

	!$omp parallel
	!ERROR: The parameter of the SIMDLEN clause must be less than or equal to the parameter of the SAFELEN clause
	!$omp simd safelen(1+1) simdlen(1+2)
	do i = 1, N
	a = 3.14
	enddo
	!$omp end parallel

	! 2.11.1 parallel-do-clause -> parallel-clause \|
	! do-clause

	!ERROR: At most one PROC_BIND clause can appear on the PARALLEL DO directive
	!ERROR: A modifier may not be specified in a LINEAR clause on the PARALLEL DO directive
	!$omp parallel do proc_bind(master) proc_bind(close) linear(val(b))
	do i = 1, N
	a = 3.14
	enddo

	! 2.8.3 do-simd-clause -> do-clause \|
	! simd-clause

	!$omp parallel
	!ERROR: No ORDERED clause with a parameter can be specified on the DO SIMD directive
	!ERROR: NOGROUP clause is not allowed on the DO SIMD directive
	!$omp do simd ordered(2) NOGROUP
	do i = 1, N
	do j = 1, N
	a = 3.14
	enddo
	enddo
	!$omp end parallel

	! 2.11.4 parallel-do-simd-clause -> parallel-clause \|
	! do-simd-clause

	!$omp parallel do simd collapse(2) safelen(2) &
	!$omp & simdlen(1) private(c) firstprivate(a) proc_bind(spread)
	do i = 1, N
	do j = 1, N
	a = 3.14
	enddo
	enddo

	! 2.9.2 taskloop -> TASKLOOP [taskloop-clause[ [,] taskloop-clause]...]
	! taskloop-clause -> if-clause \|
	! shared-clause \|
	! private-clause \|
	! firstprivate-clause \|
	! lastprivate-clause \|
	! default-clause \|
	! grainsize-clause \|
	! num-tasks-clause \|
	! collapse-clause \|
	! final-clause \|
	! priority-clause \|
	! untied-clause \|
	! mergeable-clause \|
	! nogroup-clause

	!$omp taskloop
	do i = 1, N
	a = 3.14
	enddo

	!ERROR: SCHEDULE clause is not allowed on the TASKLOOP directive
	!$omp taskloop schedule(static)
	do i = 1, N
	a = 3.14
	enddo

	!ERROR: GRAINSIZE and NUM_TASKS clauses are mutually exclusive and may not appear on the same TASKLOOP directive
	!$omp taskloop num_tasks(3) grainsize(2)
	do i = 1,N
	a = 3.14
	enddo

	!ERROR: At most one NUM_TASKS clause can appear on the TASKLOOP directive
	!ERROR: TASK_REDUCTION clause is not allowed on the TASKLOOP directive
	!$omp taskloop num_tasks(3) num_tasks(2) task_reduction(*:a)
	do i = 1,N
	a = 3.14
	enddo

	! 2.13.1 master

	!$omp parallel
	!$omp master
	a=3.14
	!$omp end master
	!$omp end parallel

	!$omp parallel
	!ERROR: NUM_THREADS clause is not allowed on the MASTER directive
	!$omp master num_threads(4)
	a=3.14
	!$omp end master
	!$omp end parallel

	! Standalone Directives (basic)

	!$omp taskyield
	!$omp barrier
	!$omp taskwait
	!$omp taskwait depend(source)
	! !$omp taskwait depend(sink:i-1)
	! !$omp target enter data map(to:arrayA) map(alloc:arrayB)
	! !$omp target update from(arrayA) to(arrayB)
	! !$omp target exit data map(from:arrayA) map(delete:arrayB)
	!$omp ordered depend(source)
	! !$omp ordered depend(sink:i-1)
	!$omp flush (c)
	!$omp flush acq_rel
	!$omp flush release
	!$omp flush acquire
	!ERROR: If memory-order-clause is RELEASE, ACQUIRE, or ACQ_REL, list items must not be specified on the FLUSH directive
	!$omp flush release (c)
	!ERROR: SEQ_CST clause is not allowed on the FLUSH directive
	!$omp flush seq_cst
	!ERROR: RELAXED clause is not allowed on the FLUSH directive
	!$omp flush relaxed

	! 2.13.2 critical Construct

	! !$omp critical (first)
	a = 3.14
	! !$omp end critical (first)

	! 2.9.1 task-clause -> if-clause \|
	! final-clause \|
	! untied-clause \|
	! default-clause \|
	! mergeable-clause \|
	! private-clause \|
	! firstprivate-clause \|
	! shared-clause \|
	! depend-clause \|
	! priority-clause

	!$omp task shared(a) default(none) if(task:a > 1.)
	a = 1.
	!$omp end task

	!ERROR: Unmatched directive name modifier TASKLOOP on the IF clause
	!$omp task private(a) if(taskloop:a.eq.1)
	a = 1.
	!$omp end task

	!ERROR: LASTPRIVATE clause is not allowed on the TASK directive
	!ERROR: At most one FINAL clause can appear on the TASK directive
	!$omp task lastprivate(b) final(a.GE.1) final(.false.)
	b = 1
	!$omp end task

	!ERROR: The parameter of the PRIORITY clause must be a positive integer expression
	!$omp task priority(-1) firstprivate(a) mergeable
	a = 3.14
	!$omp end task

	! 2.9.3 taskloop-simd-clause -> taskloop-clause \|
	! simd-clause

	!$omp taskloop simd
	do i = 1, N
	a = 3.14
	enddo
	!$omp end taskloop simd

	!$omp taskloop simd reduction(+:a)
	do i = 1, N
	a = a + 3.14
	enddo
	!ERROR: Unmatched END TASKLOOP directive
	!$omp end taskloop

	!ERROR: GRAINSIZE and NUM_TASKS clauses are mutually exclusive and may not appear on the same TASKLOOP SIMD directive
	!$omp taskloop simd num_tasks(3) grainsize(2)
	do i = 1,N
	a = 3.14
	enddo

	!ERROR: The parameter of the SIMDLEN clause must be a constant positive integer expression
	!ERROR: The parameter of the ALIGNED clause must be a constant positive integer expression
	!$omp taskloop simd simdlen(-1) aligned(a:-2)
	do i = 1, N
	a = 3.14
	enddo
	end program