! Check for valid clauses with intrinsic symbols specified in OpenACC | |
! 'routine' directives. | |
SUBROUTINE sub_1 | |
IMPLICIT NONE | |
!$ACC ROUTINE (ABORT) | |
!$ACC ROUTINE (ABORT) SEQ | |
CALL ABORT | |
END SUBROUTINE sub_1 | |
MODULE m_w_1 | |
IMPLICIT NONE | |
!$ACC ROUTINE (ABORT) SEQ | |
!$ACC ROUTINE (ABORT) | |
CONTAINS | |
SUBROUTINE sub_2 | |
CALL ABORT | |
END SUBROUTINE sub_2 | |
END MODULE m_w_1 |