22 lines
422 B
Fortran
22 lines
422 B
Fortran
|
! 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
|