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

re PR fortran/71894 ([OOP] ICE in gfc_add_component_ref, at fortran/class.c:227)

Browse Source 
2016-11-09  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/71894
	* class.c (gfc_add_component_ref): Add safety checks to avoid ICE.

2016-11-09  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/71894
	* gfortran.dg/class_59.f90: New test.

From-SVN: r241993
This commit is contained in:
Janus Weil 2016-11-09 10:22:52 +01:00
parent 37b1418510
commit 5f39558007
4 changed files with 37 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 @@
2016-11-09 Janus Weil <janus@gcc.gnu.org>
PR fortran/71894
* class.c (gfc_add_component_ref): Add safety checks to avoid ICE.
2016-11-08 Janus Weil <janus@gcc.gnu.org>
PR fortran/68440

3
gcc/fortran/class.c
View File

@ -224,7 +224,8 @@ gfc_add_component_ref (gfc_expr *e, const char *name)
break;
tail = &((*tail)->next);
}
if (derived->components->next->ts.type == BT_DERIVED &&
if (derived->components && derived->components->next &&
derived->components->next->ts.type == BT_DERIVED &&
derived->components->next->ts.u.derived == NULL)
{
/* Fix up missing vtype. */

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2016-11-09 Janus Weil <janus@gcc.gnu.org>
PR fortran/71894
* gfortran.dg/class_59.f90: New test.
2016-11-09 Richard Biener <rguenther@suse.de>
PR tree-optimization/78007

25
gcc/testsuite/gfortran.dg/class_59.f90 Normal file
View File

@ -0,0 +1,25 @@
! { dg-do compile }
!
! PR 71894: [OOP] ICE in gfc_add_component_ref, at fortran/class.c:227
!
! Contributed by Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de>
subroutine s1
type t
integer :: n
end type
type(t) :: x
class(t) :: y ! { dg-error "must be dummy, allocatable or pointer" }
x = y
end
subroutine s2
type t
end type
class(t) :: x ! { dg-error "must be dummy, allocatable or pointer" }
class(t), allocatable :: y
select type (y)
type is (t)
y = x
end select
end