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:
parent
76a15894e9
commit
f6ddbf11c3
|
@ -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>
|
2009-07-14 Taras Glek <tglek@mozilla.com>
|
||||||
Rafael Espindola <espindola@google.com>
|
Rafael Espindola <espindola@google.com>
|
||||||
|
|
||||||
|
|
|
@ -9842,7 +9842,8 @@ resolve_symbol (gfc_symbol *sym)
|
||||||
formal_arg_flag = 0;
|
formal_arg_flag = 0;
|
||||||
|
|
||||||
/* Resolve formal namespaces. */
|
/* 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);
|
gfc_resolve (sym->formal_ns);
|
||||||
|
|
||||||
/* Make sure the formal namespace is present. */
|
/* Make sure the formal namespace is present. */
|
||||||
|
|
|
@ -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>
|
2009-07-15 Gerald Pfeifer <gerald@pfeifer.com>
|
||||||
|
|
||||||
* gcc.dg/builtins-config.h (HAVE_C99_RUNTIME): Do not define
|
* gcc.dg/builtins-config.h (HAVE_C99_RUNTIME): Do not define
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue