re PR middle-end/41713 (-O -flto -g: ICE in lto_output_tree_ref, at lto-streamer-out.c:732)
2009-10-16 Richard Guenther <rguenther@suse.de> PR lto/41713 * lto-streamer-out.c (lto_output_tree_ref): Handle DEBUG_EXPR_DECL the same as VAR_DECL. * gfortran.dg/lto/20091016-1_0.f90: New testcase. From-SVN: r152902
This commit is contained in:
parent
ac2b9bbbd5
commit
775dc6700b
@ -1,3 +1,9 @@
|
||||
2009-10-16 Richard Guenther <rguenther@suse.de>
|
||||
|
||||
PR lto/41713
|
||||
* lto-streamer-out.c (lto_output_tree_ref): Handle DEBUG_EXPR_DECL
|
||||
the same as VAR_DECL.
|
||||
|
||||
2009-10-16 Richard Guenther <rguenther@suse.de>
|
||||
|
||||
* gimple.c (iterative_hash_gimple_type): For integer types
|
||||
|
@ -690,6 +690,7 @@ lto_output_tree_ref (struct output_block *ob, tree expr)
|
||||
break;
|
||||
|
||||
case VAR_DECL:
|
||||
case DEBUG_EXPR_DECL:
|
||||
gcc_assert (decl_function_context (expr) == NULL);
|
||||
output_record_start (ob, LTO_global_decl_ref);
|
||||
lto_output_var_decl_index (ob->decl_state, ob->main_stream, expr);
|
||||
|
@ -1,3 +1,8 @@
|
||||
2009-10-16 Richard Guenther <rguenther@suse.de>
|
||||
|
||||
PR lto/41713
|
||||
* gfortran.dg/lto/20091016-1_0.f90: New testcase.
|
||||
|
||||
2009-10-15 Jakub Jelinek <jakub@redhat.com>
|
||||
|
||||
PR debug/41717
|
||||
|
12
gcc/testsuite/gfortran.dg/lto/20091016-1_0.f90
Normal file
12
gcc/testsuite/gfortran.dg/lto/20091016-1_0.f90
Normal file
@ -0,0 +1,12 @@
|
||||
! { dg-lto-do link }
|
||||
! { dg-lto-options {{-flto -g -fPIC -shared} {-O -flto -g -fPIC -shared}} }
|
||||
|
||||
FUNCTION makenumberstring(x)
|
||||
IMPLICIT NONE
|
||||
REAL, INTENT(IN) :: x
|
||||
CHARACTER(len=20) :: makenumberstring
|
||||
INTEGER :: xx
|
||||
xx = x**2 ! << ICE
|
||||
makenumberstring = ''
|
||||
END FUNCTION
|
||||
|
Loading…
Reference in New Issue
Block a user