diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/extends_11.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/extends_11.f03 | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/extends_11.f03 b/gcc/testsuite/gfortran.dg/extends_11.f03 new file mode 100644 index 000000000..58bde73ac --- /dev/null +++ b/gcc/testsuite/gfortran.dg/extends_11.f03 @@ -0,0 +1,41 @@ +! { dg-do compile } +! { dg-options "-fdump-tree-original" } +! +! PR fortran/45586 +! Test that access to inherited components are properly generated +! +! Stripped down from extends_1.f03 +! + type :: person + integer :: ss = 1 + end type person + + type, extends(person) :: education + integer :: attainment = 0 + end type education + + type, extends(education) :: service + integer :: personnel_number = 0 + end type service + + type, extends(service) :: person_record + type (person_record), pointer :: supervisor => NULL () + end type person_record + + type(person_record) :: recruit + + + ! Check that references by ultimate component and by parent type work + ! All the following component access are equivalent + recruit%ss = 2 + recruit%person%ss = 3 + recruit%education%ss = 4 + recruit%education%person%ss = 5 + recruit%service%ss = 6 + recruit%service%person%ss = 7 + recruit%service%education%ss = 8 + recruit%service%education%person%ss = 9 +end + +! { dg-final { scan-tree-dump-times " +recruit\\.service\\.education\\.person\\.ss =" 8 "original"} } +! { dg-final { cleanup-tree-dump "original" } } |