From 42412a948d0fc1c1f5a5ab8fbd225f5e31a66bcf Mon Sep 17 00:00:00 2001 From: mikael Date: Sun, 2 Feb 2014 11:50:28 +0000 Subject: [PATCH] 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@207396 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/primary.c | 3 ++- gcc/testsuite/ChangeLog | 5 +++++ .../gfortran.dg/default_initialization_7.f90 | 22 ++++++++++++++++++++++ 4 files changed, 35 insertions(+), 1 deletion(-) create mode 100644 gcc/testsuite/gfortran.dg/default_initialization_7.f90 diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5e3a48a..102d5f2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2014-02-02 Mikael Morin + + PR fortran/57033 + * primary.c (gfc_convert_to_structure_constructor): Avoid null pointer + dereference. + 2014-02-01 Paul Thomas PR fortran/59906 diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index c77b4ec..7d7fbad 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -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)) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8af85b5..b64dfac 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2014-01-26 Mikael Morin + + PR fortran/57033 + * gfortran.dg/default_initialization_7.f90: New test. + 2014-02-01 Paul Thomas PR fortran/59906 diff --git a/gcc/testsuite/gfortran.dg/default_initialization_7.f90 b/gcc/testsuite/gfortran.dg/default_initialization_7.f90 new file mode 100644 index 0000000..fc8be98 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/default_initialization_7.f90 @@ -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 + +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 -- 2.7.4