diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-05-22 10:21:32 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-05-22 10:21:32 +0000 |
| commit | a96bd516338df9c61aa2692f140af6acc497eb88 (patch) | |
| tree | 16d810c6e5b483bfbb839527ee681b103d9622fc /gcc/testsuite | |
| parent | e1ff7315fb71afd1692ba34837926dbe0f30681b (diff) | |
| download | gcc-a96bd516338df9c61aa2692f140af6acc497eb88.tar.gz | |
2010-05-22 Janus Weil <janus@gcc.gnu.org>
PR fortran/44213
* resolve.c (ensure_not_abstract): Allow abstract types with
non-abstract ancestors.
2010-05-22 Janus Weil <janus@gcc.gnu.org>
PR fortran/44213
* gfortran.dg/abstract_type_7.f03: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@159695 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/abstract_type_7.f03 | 18 |
2 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 227a77c73a8..faea1c4fe93 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-05-22 Janus Weil <janus@gcc.gnu.org> + + PR fortran/44213 + * gfortran.dg/abstract_type_7.f03: New. + 2010-05-21 Jason Merrill <jason@redhat.com> * g++.dg/eh/spec11.C: Test cleanup optimization. diff --git a/gcc/testsuite/gfortran.dg/abstract_type_7.f03 b/gcc/testsuite/gfortran.dg/abstract_type_7.f03 new file mode 100644 index 00000000000..3ea0fdca614 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/abstract_type_7.f03 @@ -0,0 +1,18 @@ +! { dg-do compile } +! +! PR 44213: ICE when extending abstract type +! +! Contributed by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de> + +module ice_module + type :: a_type + end type a_type + + type,extends(a_type),abstract :: b_type + end type b_type + + type,extends(b_type) :: c_type + end type c_type +end module ice_module + +! { dg-final { cleanup-modules "ice_module" } } |