! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
module library
contains
  subroutine lib_sub(buf)
!dir$ ignore_tkr(c) buf
    real :: buf(1:*)
  end subroutine
end module

module user
  use library
contains
  subroutine sub(var, ptr)
    real :: var(:,:,:)
    real, pointer :: ptr(:)
! CHECK: CALL lib_sub
    call lib_sub(var(1, 2, 3))
! CHECK: CALL lib_sub
    call lib_sub(ptr(1))
  end subroutine
end module