1! { dg-do compile }
2! { dg-options "-fdump-tree-original" }
3!
4! PR fortran/45586
5! Test that access to inherited components are properly generated
6!
7! Stripped down from extends_1.f03
8!
9  type :: person
10    integer :: ss = 1
11  end type person
12
13  type, extends(person) :: education
14    integer ::  attainment = 0
15  end type education
16
17  type, extends(education) :: service
18    integer :: personnel_number = 0
19  end type service
20
21  type, extends(service) :: person_record
22    type (person_record), pointer :: supervisor => NULL ()
23  end type person_record
24  
25  type(person_record) :: recruit
26  
27
28  ! Check that references by ultimate component and by parent type work
29  ! All the following component access are equivalent
30  recruit%ss = 2
31  recruit%person%ss = 3
32  recruit%education%ss = 4
33  recruit%education%person%ss = 5
34  recruit%service%ss = 6
35  recruit%service%person%ss = 7
36  recruit%service%education%ss = 8
37  recruit%service%education%person%ss = 9
38end
39
40! { dg-final { scan-tree-dump-times " +recruit\\.service\\.education\\.person\\.ss =" 8 "original"} }
41! { dg-final { cleanup-tree-dump "original" } }
42