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

re PR fortran/40743 (ICE when compiling iso_varying_string.f95 at revision 149591) 

2009-07-15  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/40743
	* resolve.c (resolve_symbol): Don't resolve the formal namespace of a
	contained procedure.


2009-07-15  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/40743
	* gfortran.dg/interface_assignment_4.f90: New.

From-SVN: r149662
This commit is contained in:
Janus Weil 2009-07-15 10:41:29 +02:00
parent 76a15894e9
commit f6ddbf11c3
4 changed files with 48 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 @@
2009-07-15 Janus Weil <janus@gcc.gnu.org>
PR fortran/40743
* resolve.c (resolve_symbol): Don't resolve the formal namespace of a
contained procedure.
2009-07-14 Taras Glek <tglek@mozilla.com>
Rafael Espindola <espindola@google.com>

3
gcc/fortran/resolve.c
View File

@ -9842,7 +9842,8 @@ resolve_symbol (gfc_symbol *sym)
formal_arg_flag = 0;
/* Resolve formal namespaces. */
if (sym->formal_ns && sym->formal_ns != gfc_current_ns)
if (sym->formal_ns && sym->formal_ns != gfc_current_ns
&& !sym->attr.contained)
gfc_resolve (sym->formal_ns);
/* Make sure the formal namespace is present. */

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2009-07-15 Janus Weil <janus@gcc.gnu.org>
PR fortran/40743
* gfortran.dg/interface_assignment_4.f90: New.
2009-07-15 Gerald Pfeifer <gerald@pfeifer.com>
* gcc.dg/builtins-config.h (HAVE_C99_RUNTIME): Do not define

35
gcc/testsuite/gfortran.dg/interface_assignment_4.f90 Normal file
View File

@ -0,0 +1,35 @@
! { dg-do compile }
!
! PR 40743: [4.5 Regression] ICE when compiling iso_varying_string.f95 at revision 149591
!
! Reduced from http://www.fortran.com/iso_varying_string.f95
! Contributed by Janus Weil <janus@gcc.gnu.org>
implicit none
type :: varying_string
end type
interface assignment(=)
procedure op_assign_VS_CH
end interface
contains
subroutine op_assign_VS_CH (var, exp)
type(varying_string), intent(out) :: var
character(LEN=*), intent(in) :: exp
end subroutine
subroutine split_VS
type(varying_string) :: string
call split_CH(string)
end subroutine
subroutine split_CH (string)
type(varying_string) :: string
string = ""
end subroutine
end