forked from OSchip/llvm-project
42 lines
769 B
Fortran
42 lines
769 B
Fortran
! RUN: %S/test_modfile.sh %s %t %f18
|
|
|
|
! Check modfile that contains import of use-assocation of another use-association.
|
|
|
|
module m1
|
|
interface
|
|
subroutine s(x)
|
|
use, intrinsic :: iso_c_binding, only: c_ptr
|
|
type(c_ptr) :: x
|
|
end subroutine
|
|
end interface
|
|
end module
|
|
!Expect: m1.mod
|
|
!module m1
|
|
! interface
|
|
! subroutine s(x)
|
|
! use iso_c_binding, only: c_ptr
|
|
! type(c_ptr) :: x
|
|
! end
|
|
! end interface
|
|
!end
|
|
|
|
module m2
|
|
use, intrinsic :: iso_c_binding, only: c_ptr
|
|
interface
|
|
subroutine s(x)
|
|
import :: c_ptr
|
|
type(c_ptr) :: x
|
|
end subroutine
|
|
end interface
|
|
end module
|
|
!Expect: m2.mod
|
|
!module m2
|
|
! use iso_c_binding,only:c_ptr
|
|
! interface
|
|
! subroutine s(x)
|
|
! import::c_ptr
|
|
! type(c_ptr)::x
|
|
! end
|
|
! end interface
|
|
!end
|