1! { dg-do compile }
2! { dg-additional-options "-fopenmp" }
3      SUBROUTINE ICHI
4      INTEGER :: ARGC
5      ARGC = COMMAND_ARGUMENT_COUNT ()
6
7!$OMP PARALLEL
8!$ACC PARALLEL                                                          &
9!$ACC& COPYIN(ARGC) ! { dg-error "directive cannot be specified within" }
10      IF (ARGC .NE. 0) THEN
11         STOP 1
12      END IF
13!$ACC END PARALLEL
14!$OMP END PARALLEL
15
16      END SUBROUTINE ICHI
17
18
19      SUBROUTINE NI
20      IMPLICIT NONE
21      INTEGER :: I
22
23!$ACC PARALLEL                                                          &
24!$OMP& DO ! { dg-error "Wrong OpenACC continuation" }
25      DO I = 1, 10
26      ENDDO
27
28!$OMP PARALLEL                                                          &
29!$ACC& LOOP ! { dg-error "Wrong OpenMP continuation" }
30      DO I = 1, 10
31      ENDDO
32      END SUBROUTINE NI
33