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

re PR fortran/57033 (ICE on extended derived type and default initialization)

Browse Source 
fortran/
        PR fortran/57033
        * primary.c (gfc_convert_to_structure_constructor): Avoid null pointer
        dereference.

testsuite/
        PR fortran/57033
        * gfortran.dg/default_initialization_7.f90: New test.

From-SVN: r207396
This commit is contained in:
Mikael Morin 2014-02-02 11:50:28 +00:00
parent e36c121143
commit 792f73016e
4 changed files with 35 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2014-02-02 Mikael Morin <mikael@gcc.gnu.org>
PR fortran/57033
* primary.c (gfc_convert_to_structure_constructor): Avoid null pointer
dereference.
2014-02-01 Paul Thomas <pault@gcc.gnu.org>
PR fortran/59906

3
gcc/fortran/primary.c
View File

@ -2544,7 +2544,8 @@ gfc_convert_to_structure_constructor (gfc_expr *e, gfc_symbol *sym, gfc_expr **c
if (parent && !comp)
break;
actual = actual->next;
if (actual)
actual = actual->next;
}
if (!build_actual_constructor (&comp_head, &ctor_head, sym))

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2014-01-26 Mikael Morin <mikael@gcc.gnu.org>
PR fortran/57033
* gfortran.dg/default_initialization_7.f90: New test.
2014-02-01 Paul Thomas <pault@gcc.gnu.org>
PR fortran/59906

22
gcc/testsuite/gfortran.dg/default_initialization_7.f90 Normal file
View File

@ -0,0 +1,22 @@
! { dg-do compile }
!
! PR fortran/57033
! ICE on a structure constructor of an extended derived type whose parent
! type last component has a default initializer
!
! Contributed by Tilo Schwarz <tilo@tilo-schwarz.de>
program ice
type m
integer i
logical :: f = .false.
end type m
type, extends(m) :: me
end type me
type(me) meo
meo = me(1) ! ICE
end program ice