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