X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=libgfortran%2Fgenerated%2Fspread_c8.c;fp=libgfortran%2Fgenerated%2Fspread_c8.c;h=abbf1869a0db5a0084c008087a666632934af66a;hb=c7fb575fcdd6cf39f07d823264a4709454d35050;hp=ed79c2844a5c63737075d70a62b468873e758ce1;hpb=84166344d5c07a1111be19deff267d02caa8ac89;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/libgfortran/generated/spread_c8.c b/libgfortran/generated/spread_c8.c
index ed79c2844a5..abbf1869a0d 100644
--- a/libgfortran/generated/spread_c8.c
+++ b/libgfortran/generated/spread_c8.c
@@ -121,7 +121,7 @@ spread_c8 (gfc_array_c8 *ret, const gfc_array_c8 *source,
       if (GFC_DESCRIPTOR_RANK(ret) != rrank)
 	runtime_error ("rank mismatch in spread()");
 
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
 	{
 	  for (n = 0; n < rrank; n++)
 	    {