1! Check for valid clauses with intrinsic symbols specified in OpenACC
2! 'routine' directives.
3
4      SUBROUTINE sub_1
5      IMPLICIT NONE
6!$ACC ROUTINE (ABORT)
7!$ACC ROUTINE (ABORT) SEQ
8
9      CALL ABORT
10      END SUBROUTINE sub_1
11
12      MODULE m_w_1
13      IMPLICIT NONE
14!$ACC ROUTINE (ABORT) SEQ
15!$ACC ROUTINE (ABORT)
16
17      CONTAINS
18      SUBROUTINE sub_2
19      CALL ABORT
20      END SUBROUTINE sub_2
21      END MODULE m_w_1
22