OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/59493 ([OOP] ICE: Segfault on Class(*) pointer association)

Browse Source 
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.

From-SVN: r205997
This commit is contained in:
Janus Weil 2013-12-15 10:49:51 +01:00
parent 5fbcd8d405
commit 013a961bac
4 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2013-12-15 Janus Weil <janus@gcc.gnu.org>
PR fortran/59493
* class.c (gfc_find_intrinsic_vtab): Handle BT_CLASS.
2013-12-14 Janus Weil <janus@gcc.gnu.org>
PR fortran/59502

2
gcc/fortran/class.c
View File

@ -2424,7 +2424,7 @@ gfc_find_intrinsic_vtab (gfc_typespec *ts)
return NULL;
/* Sometimes the typespec is passed from a single call. */
if (ts->type == BT_DERIVED)
if (ts->type == BT_DERIVED || ts->type == BT_CLASS)
return gfc_find_derived_vtab (ts->u.derived);
/* Find the top-level namespace. */

5
gcc/testsuite/ChangeLog
View File

@ -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

17
gcc/testsuite/gfortran.dg/unlimited_polymorphic_15.f90 Normal file
View File

@ -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