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