Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/extends_11.f03 @ 111:04ced10e8804
gcc 7
| author | kono |
|---|---|
| date | Fri, 27 Oct 2017 22:46:09 +0900 (2017-10-27) |
| parents | |
| children | 1830386684a0 |
comparison
equal
deleted
inserted
replaced
| 68:561a7518be6b | 111:04ced10e8804 |
|---|---|
| 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 | |
| 38 end | |
| 39 | |
| 40 ! { dg-final { scan-tree-dump-times " +recruit\\.service\\.education\\.person\\.ss =" 8 "original"} } |