56 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12! Allow redeclaration of inherited inaccessible components3!DEF: /m1 Module4module m15 !DEF: /m1/t0 PRIVATE DerivedType6 type, private :: t07 end type8 !REF: /m1/t09 !DEF: /m1/t1 PUBLIC DerivedType10 type, extends(t0) :: t111 !DEF: /m1/t1/n1a PRIVATE ObjectEntity INTEGER(4)12 !DEF: /m1/t1/n1b PRIVATE ObjectEntity INTEGER(4)13 integer, private :: n1a = 1, n1b = 214 end type15end module16!DEF: /m2 Module17module m218 !REF: /m119 use :: m120 !DEF: /m2/t1 PUBLIC Use21 !DEF: /m2/t2 PUBLIC DerivedType22 type, extends(t1) :: t223 !DEF: /m2/t2/t0 ObjectEntity REAL(4)24 real :: t025 !DEF: /m2/t2/n1a ObjectEntity REAL(4)26 real :: n1a27 end type28 !REF: /m2/t229 !DEF: /m2/t3 PUBLIC DerivedType30 type, extends(t2) :: t331 !DEF: /m2/t3/n1b ObjectEntity REAL(4)32 real :: n1b33 end type34end module35!DEF: /test (Subroutine) Subprogram36subroutine test37 !REF: /m238 use :: m239 !DEF: /test/t3 Use40 !DEF: /test/x ObjectEntity TYPE(t3)41 type(t3) :: x42 !REF: /test/x43 !REF: /m2/t3/n1b44 x%n1b = 1.45 !REF: /test/x46 !DEF: /m2/t3/t2 (ParentComp) ObjectEntity TYPE(t2)47 !DEF: /test/t2 Use48 x%t2 = t2(t0=2., n1a=3.)49 !REF: /test/x50 !REF: /m2/t2/t051 x%t0 = 4.52 !REF: /test/x53 !REF: /m2/t2/n1a54 x%n1a = 5.55end subroutine56