diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index c28baac1f4a..8ec9d41392c 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+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
diff --git a/gcc/ipa-inline-analysis.c b/gcc/ipa-inline-analysis.c
index b008f05c972..1055d523fd2 100644
--- a/gcc/ipa-inline-analysis.c
+++ b/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
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4739dbc9f95..93bf7f92f06 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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
diff --git a/gcc/testsuite/gfortran.dg/pr49494.f90 b/gcc/testsuite/gfortran.dg/pr49494.f90
new file mode 100644
index 00000000000..b3a35cf23bd
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr49494.f90
@@ -0,0 +1,12 @@
+! { 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