1! Check for multiple clauses specifying the level of parallelism.
2
3SUBROUTINE v_1
4  !$ACC ROUTINE VECTOR WORKER ! { dg-error "Multiple loop axes specified for routine" }
5END SUBROUTINE v_1
6
7SUBROUTINE sub_1
8  IMPLICIT NONE
9  EXTERNAL :: g_1
10  !$ACC ROUTINE (g_1) GANG WORKER ! { dg-error "Multiple loop axes specified for routine" }
11  !$ACC ROUTINE (ABORT) SEQ WORKER GANG VECTOR ! { dg-error "Multiple loop axes specified for routine" }
12  !$ACC ROUTINE WORKER SEQ ! { dg-error "Multiple loop axes specified for routine" }
13
14  CALL v_1
15  CALL g_1
16  CALL ABORT
17END SUBROUTINE sub_1
18
19MODULE m_w_1
20  IMPLICIT NONE
21  EXTERNAL :: w_1
22  !$ACC ROUTINE VECTOR GANG SEQ ! { dg-error "Multiple loop axes specified for routine" }
23  !$ACC ROUTINE (w_1) GANG WORKER SEQ ! { dg-error "Multiple loop axes specified for routine" }
24  !$ACC ROUTINE (ABORT) VECTOR GANG ! { dg-error "Multiple loop axes specified for routine" }
25
26CONTAINS
27  SUBROUTINE sub_2
28    CALL v_1
29    CALL w_1
30    CALL ABORT
31  END SUBROUTINE sub_2
32END MODULE m_w_1
33