+ PR middle-end/49494 + * ipa-inline-analysis.c (remap_predicate): Add bounds check.

+ 	PR middle-end/49494
+ 	* ipa-inline-analysis.c (remap_predicate): Add bounds check.
+ 	* gfortran.dg/pr49494.f90: New testcase.

From-SVN: r177484

gcc/ChangeLog

 2011-08-05  Jan Hubicka  <jh@suse.cz>
 
+	PR middle-end/49494
+	* ipa-inline-analysis.c (remap_predicate): Add bounds check.
+
+2011-08-05  Jan Hubicka  <jh@suse.cz>
+
 	PR middle-end/49500
 	* tree-emultls.c (new_emutls_decl):Add alias_of parameter;
 	handle aliases.

gcc/ipa-inline-analysis.c

@@ -1873,6 +1873,7 @@ remap_predicate (struct inline_summary *info, struct inline_summary *callee_info
 		 /* See if we can remap condition operand to caller's operand.
 		    Otherwise give up.  */
 		 if (!operand_map
+		     || VEC_length (int, operand_map) <= c->operand_num
 		     || VEC_index (int, operand_map, c->operand_num) == -1)
 		   cond_predicate = true_predicate ();
 		 else

gcc/testsuite/ChangeLog

 2011-08-05  Jan Hubicka  <jh@suse.cz>
 
+	PR middle-end/49494
+	* gfortran.dg/pr49494.f90: New testcase.
+
+2011-08-05  Jan Hubicka  <jh@suse.cz>
+
 	PR middle-end/49735
 	* gcc.c-torture/compile/pr49735.c: New testcase.
 

gcc/testsuite/gfortran.dg/pr49494.f90

+! { dg-do compile }
+! { dg-options "-O -findirect-inlining -fno-guess-branch-probability -finline-functions -finline-small-functions" }
+function more_OK (fcn)
+  character(*) more_OK
+  character (*), external :: fcn
+  more_OK = fcn ()
+end function more_OK
+  character(4) :: answer
+  character(4), external :: is_OK, more_OK
+  answer = more_OK (is_OK)
+contains
+END