OSDN Git Service

2008-09-06 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / libgfortran / generated / all_l8.c
index fdf20a2..18c900c 100644 (file)
@@ -127,7 +127,7 @@ all_l8 (gfc_array_l8 * const restrict retarray,
                       (long int) GFC_DESCRIPTOR_RANK (retarray),
                       (long int) rank);
 
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
        {
          for (n=0; n < rank; n++)
            {