diff options
| author | Mikael Morin <mikael.morin@sfr.fr> | 2011-02-12 15:56:32 +0100 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-02-12 14:56:32 +0000 |
| commit | c59ebd85732d37eece59455f992ba391e25aff03 (patch) | |
| tree | 033155f9053d8f3de5c45bc104fc061e4f30467f | |
| parent | b0c910db1e8b5f96f861eba66d229ecbde43689e (diff) | |
| download | gcc-c59ebd85732d37eece59455f992ba391e25aff03.zip gcc-c59ebd85732d37eece59455f992ba391e25aff03.tar.gz gcc-c59ebd85732d37eece59455f992ba391e25aff03.tar.bz2 | |
re PR fortran/45586 (ICE non-trivial conversion at assignment)
2011-02-12 Mikael Morin <mikael.morin@sfr.fr>
PR fortran/45586
* gfortran.dg/extends_11.f03: New.
From-SVN: r170074
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/extends_11.f03 | 41 |
2 files changed, 46 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 91cd4bb..d6bd220 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2011-02-12 Mikael Morin <mikael.morin@sfr.fr> + + PR fortran/45586 + * gfortran.dg/extends_11.f03: New. + 2011-02-11 Xinliang David Li <davidxl@google.com> PR tree-optimization/47707 diff --git a/gcc/testsuite/gfortran.dg/extends_11.f03 b/gcc/testsuite/gfortran.dg/extends_11.f03 new file mode 100644 index 0000000..58bde73 --- /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" } } |