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