blob: baa1b116f950da3534aa9e7c9edde329d69d1ac6 [file]
! RUN: bbc -sentinel-test=sen$ --pft-test %s -o - 2>&1 | FileCheck %s
! Test support additional compiler directive sentinels.
module test_sentinel
interface
subroutine alternative_sentinel(a)
integer(4) :: a
!sen$ ignore_tkr a
!CHECK: CompilerDirective: !ignore_tkr a
end subroutine
end interface
end module test_sentinel