1! RUN: %S/test_symbols.sh %s %t %f18
2! "Bare" uses of type parameters and components
3
4 !DEF: /MainProgram1/t1 DerivedType
5 !DEF: /MainProgram1/t1/k TypeParam INTEGER(4)
6 type :: t1(k)
7  !REF: /MainProgram1/t1/k
8  integer, kind :: k=666
9  !DEF: /MainProgram1/t1/a ObjectEntity REAL(4)
10  !REF: /MainProgram1/t1/k
11  real :: a(k)
12 end type t1
13 !REF: /MainProgram1/t1
14 !DEF: /MainProgram1/t2 DerivedType
15 type, extends(t1) :: t2
16  !DEF: /MainProgram1/t2/b ObjectEntity REAL(4)
17  !REF: /MainProgram1/t1/k
18  real :: b(k)
19  !DEF: /MainProgram1/t2/c ObjectEntity REAL(4)
20  !DEF: /MainProgram1/size INTRINSIC (Function) ProcEntity
21  !REF: /MainProgram1/t1/a
22  real :: c(size(a))
23  !REF: /MainProgram1/t1
24  !DEF: /MainProgram1/t2/x ObjectEntity TYPE(t1(k=666_4))
25  type(t1) :: x
26 end type t2
27end program
28