diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-12-15 09:49:51 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-12-15 09:49:51 +0000 |
| commit | 4f6786cad3ec078485d1a97d80f822b3db99fba3 (patch) | |
| tree | 2dfa78681db12296cf1838534bc34d8a8eaa28ea /gcc/testsuite | |
| parent | 44c688e6b2f5c382b2faf79615244c3fc4c06fa7 (diff) | |
| download | gcc-4f6786cad3ec078485d1a97d80f822b3db99fba3.tar.gz | |
2013-12-15 Janus Weil <janus@gcc.gnu.org>
PR fortran/59493
* class.c (gfc_find_intrinsic_vtab): Handle BT_CLASS.
2013-12-15 Janus Weil <janus@gcc.gnu.org>
PR fortran/59493
* gfortran.dg/unlimited_polymorphic_15.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@205997 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/unlimited_polymorphic_15.f90 | 17 |
2 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ccb78290915..7074acab2ae 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2013-12-15 Janus Weil <janus@gcc.gnu.org> + + PR fortran/59493 + * gfortran.dg/unlimited_polymorphic_15.f90: New. + 2013-12-14 Jan Hubicka <jh@suse.cz> PR middle-end/58477 diff --git a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_15.f90 b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_15.f90 new file mode 100644 index 00000000000..1dfebdce3d5 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_15.f90 @@ -0,0 +1,17 @@ +! { dg-do compile } +! +! PR 59493: [OOP] ICE: Segfault on Class(*) pointer association +! +! Contributed by Hossein Talebi <talebi.hossein@gmail.com> + + implicit none + + type ty_mytype1 + end type + + class(ty_mytype1), allocatable, target:: cla1 + class(*), pointer :: ptr + + ptr => cla1 + +end |