1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s 2module library 3contains 4 subroutine lib_sub(buf) 5!dir$ ignore_tkr(c) buf 6 real :: buf(1:*) 7 end subroutine 8end module 9 10module user 11 use library 12contains 13 subroutine sub(var, ptr) 14 real :: var(:,:,:) 15 real, pointer :: ptr(:) 16! CHECK: CALL lib_sub 17 call lib_sub(var(1, 2, 3)) 18! CHECK: CALL lib_sub 19 call lib_sub(ptr(1)) 20 end subroutine 21end module 22