22 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2module library3contains4 subroutine lib_sub(buf)5!dir$ ignore_tkr(c) buf6 real :: buf(1:*)7 end subroutine8end module9 10module user11 use library12contains13 subroutine sub(var, ptr)14 real :: var(:,:,:)15 real, pointer :: ptr(:)16! CHECK: CALL lib_sub17 call lib_sub(var(1, 2, 3))18! CHECK: CALL lib_sub19 call lib_sub(ptr(1))20 end subroutine21end module22