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