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