From 57e15568e886ab57612d45618deb416c8f63eec2 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Wed, 28 Jul 2010 10:44:29 +0200 Subject: [PATCH] re PR fortran/45077 (ICE with -fwhole-file in fold_convert_loc, at fold-const.c:2021) 2010-07-28 Tobias Burnus PR fortran/45077 * trans-types.c (gfc_get_derived_type): Fix DT declaration from modules for whole-file mode. 2010-07-28 Tobias Burnus PR fortran/45077 * gfortran.dg/whole_file_24.f90: New. From-SVN: r162619 --- gcc/fortran/ChangeLog | 6 ++++ gcc/fortran/trans-types.c | 4 ++- gcc/testsuite/ChangeLog | 5 +++ gcc/testsuite/gfortran.dg/whole_file_24.f90 | 35 +++++++++++++++++++++ 4 files changed, 49 insertions(+), 1 deletion(-) create mode 100644 gcc/testsuite/gfortran.dg/whole_file_24.f90 diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index fb49a8dc85b..e0b73740234 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2010-07-28 Tobias Burnus + + PR fortran/45077 + * trans-types.c (gfc_get_derived_type): Fix DT declaration + from modules for whole-file mode. + 2010-07-27 Joseph Myers * gfortran.h (gfc_handle_option): Update prototype and return diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index 62b298c213b..b532788365a 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -1994,8 +1994,10 @@ gfc_get_derived_type (gfc_symbol * derived) gfc_symbol *s; s = NULL; gfc_find_symbol (derived->name, gsym->ns, 0, &s); - if (s && s->backend_decl) + if (s) { + if (!s->backend_decl) + s->backend_decl = gfc_get_derived_type (s); gfc_copy_dt_decls_ifequal (s, derived, true); goto copy_derived_types; } diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 7a1a1759bab..57b6a296927 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-07-28 Tobias Burnus + + PR fortran/45077 + * gfortran.dg/whole_file_24.f90: New. + 2010-07-27 Jason Merrill * g++.dg/cpp0x/variadic102.C: New. diff --git a/gcc/testsuite/gfortran.dg/whole_file_24.f90 b/gcc/testsuite/gfortran.dg/whole_file_24.f90 new file mode 100644 index 00000000000..4ac11cce2fd --- /dev/null +++ b/gcc/testsuite/gfortran.dg/whole_file_24.f90 @@ -0,0 +1,35 @@ +! { dg-do compile } +! +! PR fortran/45077 +! +! Contributed by Dominique d'Humieres, based on a test +! case of Juergen Reuter. +! + +module iso_red + type, public :: varying_string + character(LEN=1), dimension(:), allocatable :: chars + end type varying_string +end module iso_red + +module ifiles + use iso_red, string_t => varying_string +contains + function line_get_string_advance (line) result (string) + type(string_t) :: string + character :: line + end function line_get_string_advance +end module ifiles + +module syntax_rules + use iso_red, string_t => varying_string + use ifiles, only: line_get_string_advance +contains + subroutine syntax_init_from_ifile () + type(string_t) :: string + string = line_get_string_advance ("") + end subroutine syntax_init_from_ifile +end module syntax_rules +end + +! { dg-final { cleanup-modules "iso_red ifiles syntax_rules" } }