48 !DEF: /s3 (Subroutine) Subprogram
49 subroutine s3  subroutine
50  !DEF: /s3/t1 DerivedType
52   !DEF: /s3/t1/a1 ObjectEntity INTEGER(4)  argument
55  !REF: /s3/t1
56  !DEF: /s3/t2 DerivedType
58   !DEF: /s3/t2/a2 ObjectEntity INTEGER(4)  argument
61  !DEF: /s3/i ObjectEntity INTEGER(4)
63  !REF: /s3/t1  argument
64  !DEF: /s3/x POINTER ObjectEntity CLASS(t1)
66  !REF: /s3/x  argument
68   !REF: /s3/t2
70    !REF: /s3/i
71    !DEF: /s3/OtherConstruct1/y TARGET AssocEntity CLASS(t2)
72    !REF: /s3/t2/a2
74   !REF: /s3/t1
76    !REF: /s3/i
77    !DEF: /s3/OtherConstruct2/y TARGET AssocEntity TYPE(t1)
78    !REF: /s3/t1/a1
81    !DEF: /s3/OtherConstruct3/y TARGET AssocEntity CLASS(t1)
82    !REF:/s3/t1/a1