48 lines
1,003 B
Fortran
48 lines
1,003 B
Fortran
|
! RUN: %python %S/test_symbols.py %s %flang_fc1
|
||
|
|
!DEF: /m1a Module
|
||
|
|
module m1a
|
||
|
|
!DEF: /m1a/foo PUBLIC DerivedType
|
||
|
|
type :: foo
|
||
|
|
!DEF: /m1a/foo/j ObjectEntity INTEGER(4)
|
||
|
|
integer :: j
|
||
|
|
end type
|
||
|
|
end module
|
||
|
|
!DEF: /m1b Module
|
||
|
|
module m1b
|
||
|
|
!DEF: /m1b/foo PUBLIC (Function) Generic
|
||
|
|
interface foo
|
||
|
|
!DEF: /m1b/bar PUBLIC (Function) Subprogram REAL(4)
|
||
|
|
module procedure :: bar
|
||
|
|
end interface
|
||
|
|
contains
|
||
|
|
!REF: /m1b/bar
|
||
|
|
function bar()
|
||
|
|
end function
|
||
|
|
end module
|
||
|
|
!DEF: /test1a (Subroutine) Subprogram
|
||
|
|
subroutine test1a
|
||
|
|
!REF: /m1a
|
||
|
|
use :: m1a
|
||
|
|
!REF: /m1b
|
||
|
|
use :: m1b
|
||
|
|
!DEF: /test1a/foo (Function) Generic
|
||
|
|
!DEF: /test1a/x ObjectEntity TYPE(foo)
|
||
|
|
type(foo) :: x
|
||
|
|
!DEF: /test1a/foo Use
|
||
|
|
!REF: /m1b/bar
|
||
|
|
print *, foo(1), foo()
|
||
|
|
end subroutine
|
||
|
|
!DEF: /test1b (Subroutine) Subprogram
|
||
|
|
subroutine test1b
|
||
|
|
!REF: /m1b
|
||
|
|
use :: m1b
|
||
|
|
!REF: /m1a
|
||
|
|
use :: m1a
|
||
|
|
!DEF: /test1b/foo (Function) Generic
|
||
|
|
!DEF: /test1b/x ObjectEntity TYPE(foo)
|
||
|
|
type(foo) :: x
|
||
|
|
!DEF: /test1b/foo Use
|
||
|
|
!REF: /m1b/bar
|
||
|
|
print *, foo(1), foo()
|
||
|
|
end subroutine
|