2008-09-06 Tobias Burnus <burnus@net-b.de>

author burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>

Sat, 6 Sep 2008 14:53:26 +0000 (14:53 +0000)

committer burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>

Sat, 6 Sep 2008 14:53:26 +0000 (14:53 +0000)
author burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 6 Sep 2008 14:53:26 +0000 (14:53 +0000)
committer burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 6 Sep 2008 14:53:26 +0000 (14:53 +0000)
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog

index 1e65eb1..30b91d1 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,211 @@
+2008-09-06  Tobias Burnus  <burnus@net-b.de>
+
+       * libgfortran.h (likely,unlikely): New makros.
+       (runtime_warning_at,__mingw_snprintf): Add __attribute__(format()).
+       * m4/spread.m4 (spread_'rtype_code`): Use unlikely for bounds_check.
+       * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Ditto.
+       * m4/matmull.m4 (matmul_'rtype_code`): Ditto.
+       * m4/ifunction_logical.m4 (name`'rtype_qual`_'atype_code): Ditto.
+       * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Ditto.
+       * m4/matmul.m4 (matmul_'rtype_code`): Ditto.
+
+       * generated/minval_r8.c: Regenerated.
+       * generated/spread_r10.c: Regenerated.
+       * generated/minloc1_16_r16.c: Regenerated.
+       * generated/maxloc1_4_r8.c: Regenerated.
+       * generated/sum_i8.c: Regenerated.
+       * generated/any_l16.c: Regenerated.
+       * generated/spread_i8.c: Regenerated.
+       * generated/maxval_i2.c: Regenerated.
+       * generated/any_l2.c: Regenerated.
+       * generated/product_r4.c: Regenerated.
+       * generated/maxloc1_8_i4.c: Regenerated.
+       * generated/maxloc0_4_r4.c: Regenerated.
+       * generated/all_l1.c: Regenerated.
+       * generated/matmul_r8.c: Regenerated.
+       * generated/product_i2.c: Regenerated.
+       * generated/minloc0_4_r16.c: Regenerated.
+       * generated/minloc0_4_i1.c: Regenerated.
+       * generated/maxloc0_4_r16.c: Regenerated.
+       * generated/maxloc0_4_i2.c: Regenerated.
+       * generated/minloc1_8_r16.c: Regenerated.
+       * generated/maxloc1_8_r16.c: Regenerated.
+       * generated/maxloc0_8_i8.c: Regenerated.
+       * generated/sum_r16.c: Regenerated.
+       * generated/sum_i1.c: Regenerated.
+       * generated/minloc1_4_r8.c: Regenerated.
+       * generated/maxloc1_16_r16.c: Regenerated.
+       * generated/minloc1_16_i4.c: Regenerated.
+       * generated/maxloc1_16_i4.c: Regenerated.
+       * generated/minloc0_16_i8.c: Regenerated.
+       * generated/spread_i1.c: Regenerated.
+       * generated/maxloc0_16_i8.c: Regenerated.
+       * generated/maxval_r16.c: Regenerated.
+       * generated/product_c10.c: Regenerated.
+       * generated/minloc1_8_i4.c: Regenerated.
+       * generated/minloc0_16_i16.c: Regenerated.
+       * generated/matmul_r16.c: Regenerated.
+       * generated/minloc0_4_r4.c: Regenerated.
+       * generated/all_l2.c: Regenerated.
+       * generated/product_c4.c: Regenerated.
+       * generated/sum_r4.c: Regenerated.
+       * generated/minloc0_4_i2.c: Regenerated.
+       * generated/spread_c10.c: Regenerated.
+       * generated/maxloc0_8_i1.c: Regenerated.
+       * generated/spread_r4.c: Regenerated.
+       * generated/minloc0_8_i8.c: Regenerated.
+       * generated/matmul_c8.c: Regenerated.
+       * generated/all_l16.c: Regenerated.
+       * generated/minloc1_16_r10.c: Regenerated.
+       * generated/sum_i2.c: Regenerated.
+       * generated/minloc0_16_i1.c: Regenerated.
+       * generated/maxloc0_16_i1.c: Regenerated.
+       * generated/maxloc1_8_r8.c: Regenerated.
+       * generated/minval_i16.c: Regenerated.
+       * generated/spread_i2.c: Regenerated.
+       * generated/maxval_i4.c: Regenerated.
+       * generated/minval_i8.c: Regenerated.
+       * generated/any_l4.c: Regenerated.
+       * generated/maxloc1_4_i8.c: Regenerated.
+       * generated/maxloc0_16_i16.c: Regenerated.
+       * generated/maxloc0_8_r4.c: Regenerated.
+       * generated/minloc1_4_i16.c: Regenerated.
+       * generated/maxloc1_4_i16.c: Regenerated.
+       * generated/minloc0_4_r10.c: Regenerated.
+       * generated/minloc0_8_i16.c: Regenerated.
+       * generated/maxloc0_4_r10.c: Regenerated.
+       * generated/maxloc0_8_i16.c: Regenerated.
+       * generated/minloc1_8_r10.c: Regenerated.
+       * generated/product_i4.c: Regenerated.
+       * generated/minloc0_16_r4.c: Regenerated.
+       * generated/sum_c16.c: Regenerated.
+       * generated/maxloc1_8_r10.c: Regenerated.
+       * generated/maxloc0_16_r4.c: Regenerated.
+       * generated/minloc1_16_r8.c: Regenerated.
+       * generated/minloc0_8_i1.c: Regenerated.
+       * generated/maxloc0_4_i4.c: Regenerated.
+       * generated/maxloc1_16_r8.c: Regenerated.
+       * generated/maxloc0_8_i2.c: Regenerated.
+       * generated/sum_r10.c: Regenerated.
+       * generated/count_4_l.c: Regenerated.
+       * generated/sum_c4.c: Regenerated.
+       * generated/count_8_l.c: Regenerated.
+       * generated/maxloc1_16_r10.c: Regenerated.
+       * generated/matmul_i8.c: Regenerated.
+       * generated/minloc0_16_i2.c: Regenerated.
+       * generated/minloc1_8_r8.c: Regenerated.
+       * generated/maxloc0_16_i2.c: Regenerated.
+       * generated/spread_c4.c: Regenerated.
+       * generated/matmul_c16.c: Regenerated.
+       * generated/maxval_r10.c: Regenerated.
+       * generated/minval_i1.c: Regenerated.
+       * generated/maxloc1_4_i1.c: Regenerated.
+       * generated/matmul_r10.c: Regenerated.
+       * generated/minloc1_4_i8.c: Regenerated.
+       * generated/minloc0_8_r4.c: Regenerated.
+       * generated/matmul_l4.c: Regenerated.
+       * generated/product_i16.c: Regenerated.
+       * generated/minloc0_16_r16.c: Regenerated.
+       * generated/all_l4.c: Regenerated.
+       * generated/minloc0_4_i4.c: Regenerated.
+       * generated/minloc0_8_i2.c: Regenerated.
+       * generated/matmul_i1.c: Regenerated.
+       * generated/minval_r4.c: Regenerated.
+       * generated/maxloc1_4_r4.c: Regenerated.
+       * generated/spread_i16.c: Regenerated.
+       * generated/sum_i4.c: Regenerated.
+       * generated/maxval_r8.c: Regenerated.
+       * generated/spread_i4.c: Regenerated.
+       * generated/minloc1_4_i1.c: Regenerated.
+       * generated/minval_r16.c: Regenerated.
+       * generated/minval_i2.c: Regenerated.
+       * generated/maxloc1_4_i2.c: Regenerated.
+       * generated/product_r8.c: Regenerated.
+       * generated/maxloc1_8_i8.c: Regenerated.
+       * generated/maxloc0_4_r8.c: Regenerated.
+       * generated/maxloc0_16_r16.c: Regenerated.
+       * generated/matmul_r4.c: Regenerated.
+       * generated/sum_c10.c: Regenerated.
+       * generated/minloc1_4_r16.c: Regenerated.
+       * generated/maxloc1_4_r16.c: Regenerated.
+       * generated/minloc0_8_r16.c: Regenerated.
+       * generated/maxloc0_8_r16.c: Regenerated.
+       * generated/count_1_l.c: Regenerated.
+       * generated/maxloc0_8_i4.c: Regenerated.
+       * generated/matmul_i2.c: Regenerated.
+       * generated/minloc1_4_r4.c: Regenerated.
+       * generated/matmul_c10.c: Regenerated.
+       * generated/minloc0_16_i4.c: Regenerated.
+       * generated/maxloc0_16_i4.c: Regenerated.
+       * generated/minloc1_16_i8.c: Regenerated.
+       * generated/maxloc1_16_i8.c: Regenerated.
+       * generated/minloc1_4_i2.c: Regenerated.
+       * generated/matmul_l16.c: Regenerated.
+       * generated/maxloc1_8_i1.c: Regenerated.
+       * generated/minloc0_16_r10.c: Regenerated.
+       * generated/minloc1_8_i8.c: Regenerated.
+       * generated/minloc0_4_r8.c: Regenerated.
+       * generated/product_r16.c: Regenerated.
+       * generated/product_c8.c: Regenerated.
+       * generated/sum_r8.c: Regenerated.
+       * generated/minloc0_8_i4.c: Regenerated.
+       * generated/matmul_c4.c: Regenerated.
+       * generated/minloc1_16_i16.c: Regenerated.
+       * generated/spread_r8.c: Regenerated.
+       * generated/maxloc1_8_r4.c: Regenerated.
+       * generated/minloc1_16_i1.c: Regenerated.
+       * generated/maxloc1_16_i1.c: Regenerated.
+       * generated/spread_r16.c: Regenerated.
+       * generated/minval_r10.c: Regenerated.
+       * generated/count_16_l.c: Regenerated.
+       * generated/minval_i4.c: Regenerated.
+       * generated/minloc1_8_i1.c: Regenerated.
+       * generated/maxloc1_4_i4.c: Regenerated.
+       * generated/maxloc1_8_i2.c: Regenerated.
+       * generated/maxval_i8.c: Regenerated.
+       * generated/any_l8.c: Regenerated.
+       * generated/maxloc0_16_r10.c: Regenerated.
+       * generated/minloc0_4_i16.c: Regenerated.
+       * generated/maxloc0_8_r8.c: Regenerated.
+       * generated/maxloc0_4_i16.c: Regenerated.
+       * generated/minloc1_4_r10.c: Regenerated.
+       * generated/minloc1_8_i16.c: Regenerated.
+       * generated/maxloc1_4_r10.c: Regenerated.
+       * generated/maxloc1_8_i16.c: Regenerated.
+       * generated/minloc0_8_r10.c: Regenerated.
+       * generated/maxloc0_8_r10.c: Regenerated.
+       * generated/minloc1_16_r4.c: Regenerated.
+       * generated/maxloc1_16_r4.c: Regenerated.
+       * generated/minloc0_16_r8.c: Regenerated.
+       * generated/product_i8.c: Regenerated.
+       * generated/maxloc0_16_r8.c: Regenerated.
+       * generated/sum_i16.c: Regenerated.
+       * generated/count_2_l.c: Regenerated.
+       * generated/maxloc0_4_i8.c: Regenerated.
+       * generated/maxloc1_16_i16.c: Regenerated.
+       * generated/matmul_i4.c: Regenerated.
+       * generated/minloc1_8_r4.c: Regenerated.
+       * generated/sum_c8.c: Regenerated.
+       * generated/minloc1_16_i2.c: Regenerated.
+       * generated/maxloc1_16_i2.c: Regenerated.
+       * generated/maxval_i16.c: Regenerated.
+       * generated/spread_c8.c: Regenerated.
+       * generated/matmul_i16.c: Regenerated.
+       * generated/minloc1_4_i4.c: Regenerated.
+       * generated/maxval_i1.c: Regenerated.
+       * generated/minloc1_8_i2.c: Regenerated.
+       * generated/any_l1.c: Regenerated.
+       * generated/product_c16.c: Regenerated.
+       * generated/minloc0_8_r8.c: Regenerated.
+       * generated/matmul_l8.c: Regenerated.
+       * generated/product_r10.c: Regenerated.
+       * generated/product_i1.c: Regenerated.
+       * generated/all_l8.c: Regenerated.
+       * generated/maxloc0_4_i1.c: Regenerated.
+       * generated/minloc0_4_i8.c: Regenerated.
+       * generated/spread_c16.c: Regenerated.
+       * generated/maxval_r4.c: Regenerated.
+
  2008-09-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
  
         PR libfortran/37301
diff --git a/libgfortran/generated/all_l1.c b/libgfortran/generated/all_l1.c

index e8577dc..e747481 100644 (file)
--- a/libgfortran/generated/all_l1.c
+++ b/libgfortran/generated/all_l1.c
@@ -127,7 +127,7 @@ all_l1 (gfc_array_l1 * 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++)
             {
diff --git a/libgfortran/generated/all_l16.c b/libgfortran/generated/all_l16.c

index 59b0cfa..05c24f0 100644 (file)
--- a/libgfortran/generated/all_l16.c
+++ b/libgfortran/generated/all_l16.c
@@ -127,7 +127,7 @@ all_l16 (gfc_array_l16 * 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++)
             {
diff --git a/libgfortran/generated/all_l2.c b/libgfortran/generated/all_l2.c

index 82ab0ca..3e03bcb 100644 (file)
--- a/libgfortran/generated/all_l2.c
+++ b/libgfortran/generated/all_l2.c
@@ -127,7 +127,7 @@ all_l2 (gfc_array_l2 * 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++)
             {
diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c

index d65adcd..dab9000 100644 (file)
--- a/libgfortran/generated/all_l4.c
+++ b/libgfortran/generated/all_l4.c
@@ -127,7 +127,7 @@ all_l4 (gfc_array_l4 * 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++)
             {
diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c

index fdf20a2..18c900c 100644 (file)
--- a/libgfortran/generated/all_l8.c
+++ b/libgfortran/generated/all_l8.c
@@ -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++)
             {
diff --git a/libgfortran/generated/any_l1.c b/libgfortran/generated/any_l1.c

index cfefe47..3b2be3e 100644 (file)
--- a/libgfortran/generated/any_l1.c
+++ b/libgfortran/generated/any_l1.c
@@ -127,7 +127,7 @@ any_l1 (gfc_array_l1 * 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++)
             {
diff --git a/libgfortran/generated/any_l16.c b/libgfortran/generated/any_l16.c

index c3297ac..bbe9bc3 100644 (file)
--- a/libgfortran/generated/any_l16.c
+++ b/libgfortran/generated/any_l16.c
@@ -127,7 +127,7 @@ any_l16 (gfc_array_l16 * 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++)
             {
diff --git a/libgfortran/generated/any_l2.c b/libgfortran/generated/any_l2.c

index daef183..ad2a5d0 100644 (file)
--- a/libgfortran/generated/any_l2.c
+++ b/libgfortran/generated/any_l2.c
@@ -127,7 +127,7 @@ any_l2 (gfc_array_l2 * 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++)
             {
diff --git a/libgfortran/generated/any_l4.c b/libgfortran/generated/any_l4.c

index d12c74f..cb9d339 100644 (file)
--- a/libgfortran/generated/any_l4.c
+++ b/libgfortran/generated/any_l4.c
@@ -127,7 +127,7 @@ any_l4 (gfc_array_l4 * 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++)
             {
diff --git a/libgfortran/generated/any_l8.c b/libgfortran/generated/any_l8.c

index bb65480..c7fe8f4 100644 (file)
--- a/libgfortran/generated/any_l8.c
+++ b/libgfortran/generated/any_l8.c
@@ -127,7 +127,7 @@ any_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++)
             {
diff --git a/libgfortran/generated/count_16_l.c b/libgfortran/generated/count_16_l.c

index 7a86faf..b8946e7 100644 (file)
--- a/libgfortran/generated/count_16_l.c
+++ b/libgfortran/generated/count_16_l.c
@@ -127,7 +127,7 @@ count_16_l (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/count_1_l.c b/libgfortran/generated/count_1_l.c

index 67c9dbc..c803a0d 100644 (file)
--- a/libgfortran/generated/count_1_l.c
+++ b/libgfortran/generated/count_1_l.c
@@ -127,7 +127,7 @@ count_1_l (gfc_array_i1 * 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++)
             {
diff --git a/libgfortran/generated/count_2_l.c b/libgfortran/generated/count_2_l.c

index d40d0dc..12a72f0 100644 (file)
--- a/libgfortran/generated/count_2_l.c
+++ b/libgfortran/generated/count_2_l.c
@@ -127,7 +127,7 @@ count_2_l (gfc_array_i2 * 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++)
             {
diff --git a/libgfortran/generated/count_4_l.c b/libgfortran/generated/count_4_l.c

index 8bd1c8f..ddc42f8 100644 (file)
--- a/libgfortran/generated/count_4_l.c
+++ b/libgfortran/generated/count_4_l.c
@@ -127,7 +127,7 @@ count_4_l (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/count_8_l.c b/libgfortran/generated/count_8_l.c

index 078a33f..63c7aa4 100644 (file)
--- a/libgfortran/generated/count_8_l.c
+++ b/libgfortran/generated/count_8_l.c
@@ -127,7 +127,7 @@ count_8_l (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/matmul_c10.c b/libgfortran/generated/matmul_c10.c

index 0e37862..bc24557 100644 (file)
--- a/libgfortran/generated/matmul_c10.c
+++ b/libgfortran/generated/matmul_c10.c
@@ -135,7 +135,7 @@ matmul_c10 (gfc_array_c10 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_COMPLEX_10) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/matmul_c16.c b/libgfortran/generated/matmul_c16.c

index 34cc51d..bfe553e 100644 (file)
--- a/libgfortran/generated/matmul_c16.c
+++ b/libgfortran/generated/matmul_c16.c
@@ -135,7 +135,7 @@ matmul_c16 (gfc_array_c16 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_COMPLEX_16) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/matmul_c4.c b/libgfortran/generated/matmul_c4.c

index fdfea1d..dc67fc4 100644 (file)
--- a/libgfortran/generated/matmul_c4.c
+++ b/libgfortran/generated/matmul_c4.c
@@ -135,7 +135,7 @@ matmul_c4 (gfc_array_c4 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_COMPLEX_4) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/matmul_c8.c b/libgfortran/generated/matmul_c8.c

index 9d66949..8b05b4f 100644 (file)
--- a/libgfortran/generated/matmul_c8.c
+++ b/libgfortran/generated/matmul_c8.c
@@ -135,7 +135,7 @@ matmul_c8 (gfc_array_c8 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_COMPLEX_8) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/matmul_i1.c b/libgfortran/generated/matmul_i1.c

index 34fd7c5..71572d7 100644 (file)
--- a/libgfortran/generated/matmul_i1.c
+++ b/libgfortran/generated/matmul_i1.c
@@ -135,7 +135,7 @@ matmul_i1 (gfc_array_i1 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_INTEGER_1) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/matmul_i16.c b/libgfortran/generated/matmul_i16.c

index 0c7c5d8..f6e570d 100644 (file)
--- a/libgfortran/generated/matmul_i16.c
+++ b/libgfortran/generated/matmul_i16.c
@@ -135,7 +135,7 @@ matmul_i16 (gfc_array_i16 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_INTEGER_16) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/matmul_i2.c b/libgfortran/generated/matmul_i2.c

index 5d55847..0ed9df0 100644 (file)
--- a/libgfortran/generated/matmul_i2.c
+++ b/libgfortran/generated/matmul_i2.c
@@ -135,7 +135,7 @@ matmul_i2 (gfc_array_i2 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_INTEGER_2) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/matmul_i4.c b/libgfortran/generated/matmul_i4.c

index a80f149..ba5f24a 100644 (file)
--- a/libgfortran/generated/matmul_i4.c
+++ b/libgfortran/generated/matmul_i4.c
@@ -135,7 +135,7 @@ matmul_i4 (gfc_array_i4 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_INTEGER_4) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/matmul_i8.c b/libgfortran/generated/matmul_i8.c

index 91499c7..255094c 100644 (file)
--- a/libgfortran/generated/matmul_i8.c
+++ b/libgfortran/generated/matmul_i8.c
@@ -135,7 +135,7 @@ matmul_i8 (gfc_array_i8 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_INTEGER_8) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/matmul_l16.c b/libgfortran/generated/matmul_l16.c

index b604edf..02b6e14 100644 (file)
--- a/libgfortran/generated/matmul_l16.c
+++ b/libgfortran/generated/matmul_l16.c
@@ -99,7 +99,7 @@ matmul_l16 (gfc_array_l16 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_LOGICAL_16) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/matmul_l4.c b/libgfortran/generated/matmul_l4.c

index 5aed0fe..159b1f3 100644 (file)
--- a/libgfortran/generated/matmul_l4.c
+++ b/libgfortran/generated/matmul_l4.c
@@ -99,7 +99,7 @@ matmul_l4 (gfc_array_l4 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_LOGICAL_4) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/matmul_l8.c b/libgfortran/generated/matmul_l8.c

index 26baad3..16e7b36 100644 (file)
--- a/libgfortran/generated/matmul_l8.c
+++ b/libgfortran/generated/matmul_l8.c
@@ -99,7 +99,7 @@ matmul_l8 (gfc_array_l8 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_LOGICAL_8) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/matmul_r10.c b/libgfortran/generated/matmul_r10.c

index 931e2bd..d764450 100644 (file)
--- a/libgfortran/generated/matmul_r10.c
+++ b/libgfortran/generated/matmul_r10.c
@@ -135,7 +135,7 @@ matmul_r10 (gfc_array_r10 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_REAL_10) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/matmul_r16.c b/libgfortran/generated/matmul_r16.c

index 16ec175..1d0c31a 100644 (file)
--- a/libgfortran/generated/matmul_r16.c
+++ b/libgfortran/generated/matmul_r16.c
@@ -135,7 +135,7 @@ matmul_r16 (gfc_array_r16 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_REAL_16) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/matmul_r4.c b/libgfortran/generated/matmul_r4.c

index 47d9764..8224862 100644 (file)
--- a/libgfortran/generated/matmul_r4.c
+++ b/libgfortran/generated/matmul_r4.c
@@ -135,7 +135,7 @@ matmul_r4 (gfc_array_r4 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_REAL_4) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/matmul_r8.c b/libgfortran/generated/matmul_r8.c

index a359ffd..4134fad 100644 (file)
--- a/libgfortran/generated/matmul_r8.c
+++ b/libgfortran/generated/matmul_r8.c
@@ -135,7 +135,7 @@ matmul_r8 (gfc_array_r8 * const restrict retarray,
         = internal_malloc_size (sizeof (GFC_REAL_8) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/generated/maxloc0_16_i1.c b/libgfortran/generated/maxloc0_16_i1.c

index 6be5448..2ff0b6d 100644 (file)
--- a/libgfortran/generated/maxloc0_16_i1.c
+++ b/libgfortran/generated/maxloc0_16_i1.c
@@ -69,7 +69,7 @@ maxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_16_i16.c b/libgfortran/generated/maxloc0_16_i16.c

index 777d3d0..b3c5cc2 100644 (file)
--- a/libgfortran/generated/maxloc0_16_i16.c
+++ b/libgfortran/generated/maxloc0_16_i16.c
@@ -69,7 +69,7 @@ maxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_16_i2.c b/libgfortran/generated/maxloc0_16_i2.c

index 11b1478..f403471 100644 (file)
--- a/libgfortran/generated/maxloc0_16_i2.c
+++ b/libgfortran/generated/maxloc0_16_i2.c
@@ -69,7 +69,7 @@ maxloc0_16_i2 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_16_i2 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_16_i2 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_16_i4.c b/libgfortran/generated/maxloc0_16_i4.c

index 0c1ff86..c6bcc27 100644 (file)
--- a/libgfortran/generated/maxloc0_16_i4.c
+++ b/libgfortran/generated/maxloc0_16_i4.c
@@ -69,7 +69,7 @@ maxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_16_i8.c b/libgfortran/generated/maxloc0_16_i8.c

index b2098a7..237b9fe 100644 (file)
--- a/libgfortran/generated/maxloc0_16_i8.c
+++ b/libgfortran/generated/maxloc0_16_i8.c
@@ -69,7 +69,7 @@ maxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_16_r10.c b/libgfortran/generated/maxloc0_16_r10.c

index 1773c67..479191c 100644 (file)
--- a/libgfortran/generated/maxloc0_16_r10.c
+++ b/libgfortran/generated/maxloc0_16_r10.c
@@ -69,7 +69,7 @@ maxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_16_r16.c b/libgfortran/generated/maxloc0_16_r16.c

index 3eeaefa..02e4bf2 100644 (file)
--- a/libgfortran/generated/maxloc0_16_r16.c
+++ b/libgfortran/generated/maxloc0_16_r16.c
@@ -69,7 +69,7 @@ maxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_16_r4.c b/libgfortran/generated/maxloc0_16_r4.c

index 09e97bc..710edce 100644 (file)
--- a/libgfortran/generated/maxloc0_16_r4.c
+++ b/libgfortran/generated/maxloc0_16_r4.c
@@ -69,7 +69,7 @@ maxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_16_r8.c b/libgfortran/generated/maxloc0_16_r8.c

index 764cb57..d91c8d2 100644 (file)
--- a/libgfortran/generated/maxloc0_16_r8.c
+++ b/libgfortran/generated/maxloc0_16_r8.c
@@ -69,7 +69,7 @@ maxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_4_i1.c b/libgfortran/generated/maxloc0_4_i1.c

index 45d175d..8a62759 100644 (file)
--- a/libgfortran/generated/maxloc0_4_i1.c
+++ b/libgfortran/generated/maxloc0_4_i1.c
@@ -69,7 +69,7 @@ maxloc0_4_i1 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_4_i1 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_4_i1 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_4_i16.c b/libgfortran/generated/maxloc0_4_i16.c

index a346540..2e3a1ea 100644 (file)
--- a/libgfortran/generated/maxloc0_4_i16.c
+++ b/libgfortran/generated/maxloc0_4_i16.c
@@ -69,7 +69,7 @@ maxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_4_i2.c b/libgfortran/generated/maxloc0_4_i2.c

index 36a1da3..34317c9 100644 (file)
--- a/libgfortran/generated/maxloc0_4_i2.c
+++ b/libgfortran/generated/maxloc0_4_i2.c
@@ -69,7 +69,7 @@ maxloc0_4_i2 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_4_i2 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_4_i2 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_4_i4.c b/libgfortran/generated/maxloc0_4_i4.c

index 398ffb5..e65737d 100644 (file)
--- a/libgfortran/generated/maxloc0_4_i4.c
+++ b/libgfortran/generated/maxloc0_4_i4.c
@@ -69,7 +69,7 @@ maxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_4_i8.c b/libgfortran/generated/maxloc0_4_i8.c

index dcf7481..695ef0f 100644 (file)
--- a/libgfortran/generated/maxloc0_4_i8.c
+++ b/libgfortran/generated/maxloc0_4_i8.c
@@ -69,7 +69,7 @@ maxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_4_r10.c b/libgfortran/generated/maxloc0_4_r10.c

index 1f22f07..c0fea80 100644 (file)
--- a/libgfortran/generated/maxloc0_4_r10.c
+++ b/libgfortran/generated/maxloc0_4_r10.c
@@ -69,7 +69,7 @@ maxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_4_r16.c b/libgfortran/generated/maxloc0_4_r16.c

index 71f171c..e872949 100644 (file)
--- a/libgfortran/generated/maxloc0_4_r16.c
+++ b/libgfortran/generated/maxloc0_4_r16.c
@@ -69,7 +69,7 @@ maxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_4_r4.c b/libgfortran/generated/maxloc0_4_r4.c

index d52e483..0267f97 100644 (file)
--- a/libgfortran/generated/maxloc0_4_r4.c
+++ b/libgfortran/generated/maxloc0_4_r4.c
@@ -69,7 +69,7 @@ maxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_4_r8.c b/libgfortran/generated/maxloc0_4_r8.c

index 5030481..43131b3 100644 (file)
--- a/libgfortran/generated/maxloc0_4_r8.c
+++ b/libgfortran/generated/maxloc0_4_r8.c
@@ -69,7 +69,7 @@ maxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_8_i1.c b/libgfortran/generated/maxloc0_8_i1.c

index 1eabde6..f20eda2 100644 (file)
--- a/libgfortran/generated/maxloc0_8_i1.c
+++ b/libgfortran/generated/maxloc0_8_i1.c
@@ -69,7 +69,7 @@ maxloc0_8_i1 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_8_i1 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_8_i1 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_8_i16.c b/libgfortran/generated/maxloc0_8_i16.c

index 6630c06..27cfe2e 100644 (file)
--- a/libgfortran/generated/maxloc0_8_i16.c
+++ b/libgfortran/generated/maxloc0_8_i16.c
@@ -69,7 +69,7 @@ maxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_8_i2.c b/libgfortran/generated/maxloc0_8_i2.c

index bc438e5..75bfe6d 100644 (file)
--- a/libgfortran/generated/maxloc0_8_i2.c
+++ b/libgfortran/generated/maxloc0_8_i2.c
@@ -69,7 +69,7 @@ maxloc0_8_i2 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_8_i2 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_8_i2 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_8_i4.c b/libgfortran/generated/maxloc0_8_i4.c

index 7cac281..e04f0cb 100644 (file)
--- a/libgfortran/generated/maxloc0_8_i4.c
+++ b/libgfortran/generated/maxloc0_8_i4.c
@@ -69,7 +69,7 @@ maxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_8_i8.c b/libgfortran/generated/maxloc0_8_i8.c

index 15798f8..8218951 100644 (file)
--- a/libgfortran/generated/maxloc0_8_i8.c
+++ b/libgfortran/generated/maxloc0_8_i8.c
@@ -69,7 +69,7 @@ maxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_8_r10.c b/libgfortran/generated/maxloc0_8_r10.c

index fc393e9..7e77fad 100644 (file)
--- a/libgfortran/generated/maxloc0_8_r10.c
+++ b/libgfortran/generated/maxloc0_8_r10.c
@@ -69,7 +69,7 @@ maxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_8_r16.c b/libgfortran/generated/maxloc0_8_r16.c

index 99d31ff..9f12cca 100644 (file)
--- a/libgfortran/generated/maxloc0_8_r16.c
+++ b/libgfortran/generated/maxloc0_8_r16.c
@@ -69,7 +69,7 @@ maxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_8_r4.c b/libgfortran/generated/maxloc0_8_r4.c

index ced61ae..b7c3eb5 100644 (file)
--- a/libgfortran/generated/maxloc0_8_r4.c
+++ b/libgfortran/generated/maxloc0_8_r4.c
@@ -69,7 +69,7 @@ maxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc0_8_r8.c b/libgfortran/generated/maxloc0_8_r8.c

index 8222c5c..e59f813 100644 (file)
--- a/libgfortran/generated/maxloc0_8_r8.c
+++ b/libgfortran/generated/maxloc0_8_r8.c
@@ -69,7 +69,7 @@ maxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mmaxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ smaxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c

index 7ccceda..fff25ed 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i1.c
+++ b/libgfortran/generated/maxloc1_16_i1.c
@@ -124,7 +124,7 @@ maxloc1_16_i1 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_16_i1 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c

index d7126af..9c8b5f9 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i16.c
+++ b/libgfortran/generated/maxloc1_16_i16.c
@@ -124,7 +124,7 @@ maxloc1_16_i16 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_16_i16 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c

index 278ef5b..e341d9b 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i2.c
+++ b/libgfortran/generated/maxloc1_16_i2.c
@@ -124,7 +124,7 @@ maxloc1_16_i2 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_16_i2 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c

index 4e2e731..af1802e 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i4.c
+++ b/libgfortran/generated/maxloc1_16_i4.c
@@ -124,7 +124,7 @@ maxloc1_16_i4 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_16_i4 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_16_i8.c b/libgfortran/generated/maxloc1_16_i8.c

index 1a9eb51..c449fc4 100644 (file)
--- a/libgfortran/generated/maxloc1_16_i8.c
+++ b/libgfortran/generated/maxloc1_16_i8.c
@@ -124,7 +124,7 @@ maxloc1_16_i8 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_16_i8 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c

index 79805f5..729b253 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r10.c
+++ b/libgfortran/generated/maxloc1_16_r10.c
@@ -124,7 +124,7 @@ maxloc1_16_r10 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_16_r10 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c

index 49b27c3..88c7e39 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r16.c
+++ b/libgfortran/generated/maxloc1_16_r16.c
@@ -124,7 +124,7 @@ maxloc1_16_r16 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_16_r16 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c

index cb4cc17..c2fdd89 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r4.c
+++ b/libgfortran/generated/maxloc1_16_r4.c
@@ -124,7 +124,7 @@ maxloc1_16_r4 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_16_r4 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c

index bddedbe..e4c8efe 100644 (file)
--- a/libgfortran/generated/maxloc1_16_r8.c
+++ b/libgfortran/generated/maxloc1_16_r8.c
@@ -124,7 +124,7 @@ maxloc1_16_r8 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_16_r8 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c

index 3a1ae07..d34c22d 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i1.c
+++ b/libgfortran/generated/maxloc1_4_i1.c
@@ -124,7 +124,7 @@ maxloc1_4_i1 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_4_i1 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_4_i16.c b/libgfortran/generated/maxloc1_4_i16.c

index d9e1b3e..ec83fed 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i16.c
+++ b/libgfortran/generated/maxloc1_4_i16.c
@@ -124,7 +124,7 @@ maxloc1_4_i16 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_4_i16 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c

index dedb28b..bd3f158 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i2.c
+++ b/libgfortran/generated/maxloc1_4_i2.c
@@ -124,7 +124,7 @@ maxloc1_4_i2 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_4_i2 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c

index 12bad84..bacdbb4 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i4.c
+++ b/libgfortran/generated/maxloc1_4_i4.c
@@ -124,7 +124,7 @@ maxloc1_4_i4 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_4_i4 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c

index 2215521..a4304e4 100644 (file)
--- a/libgfortran/generated/maxloc1_4_i8.c
+++ b/libgfortran/generated/maxloc1_4_i8.c
@@ -124,7 +124,7 @@ maxloc1_4_i8 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_4_i8 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c

index 0ed1df2..693b8b5 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r10.c
+++ b/libgfortran/generated/maxloc1_4_r10.c
@@ -124,7 +124,7 @@ maxloc1_4_r10 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_4_r10 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c

index ae1a4f1..cfae022 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r16.c
+++ b/libgfortran/generated/maxloc1_4_r16.c
@@ -124,7 +124,7 @@ maxloc1_4_r16 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_4_r16 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c

index 6b16564..31eaf8e 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r4.c
+++ b/libgfortran/generated/maxloc1_4_r4.c
@@ -124,7 +124,7 @@ maxloc1_4_r4 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_4_r4 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c

index bbc6f9e..f75a98e 100644 (file)
--- a/libgfortran/generated/maxloc1_4_r8.c
+++ b/libgfortran/generated/maxloc1_4_r8.c
@@ -124,7 +124,7 @@ maxloc1_4_r8 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_4_r8 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c

index 85c44f9..7814323 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i1.c
+++ b/libgfortran/generated/maxloc1_8_i1.c
@@ -124,7 +124,7 @@ maxloc1_8_i1 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_8_i1 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_8_i16.c b/libgfortran/generated/maxloc1_8_i16.c

index 18d1ad1..bff447f 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i16.c
+++ b/libgfortran/generated/maxloc1_8_i16.c
@@ -124,7 +124,7 @@ maxloc1_8_i16 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_8_i16 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c

index 121cc0f..eb9b59a 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i2.c
+++ b/libgfortran/generated/maxloc1_8_i2.c
@@ -124,7 +124,7 @@ maxloc1_8_i2 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_8_i2 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c

index 8386a29..469a480 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i4.c
+++ b/libgfortran/generated/maxloc1_8_i4.c
@@ -124,7 +124,7 @@ maxloc1_8_i4 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_8_i4 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c

index ed71c49..c5b08e3 100644 (file)
--- a/libgfortran/generated/maxloc1_8_i8.c
+++ b/libgfortran/generated/maxloc1_8_i8.c
@@ -124,7 +124,7 @@ maxloc1_8_i8 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_8_i8 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c

index a7b71bc..61a6ecc 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r10.c
+++ b/libgfortran/generated/maxloc1_8_r10.c
@@ -124,7 +124,7 @@ maxloc1_8_r10 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_8_r10 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c

index 9fd0b46..f397661 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r16.c
+++ b/libgfortran/generated/maxloc1_8_r16.c
@@ -124,7 +124,7 @@ maxloc1_8_r16 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_8_r16 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c

index 79f1103..c192e3b 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r4.c
+++ b/libgfortran/generated/maxloc1_8_r4.c
@@ -124,7 +124,7 @@ maxloc1_8_r4 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_8_r4 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c

index b0ab760..ef5d86f 100644 (file)
--- a/libgfortran/generated/maxloc1_8_r8.c
+++ b/libgfortran/generated/maxloc1_8_r8.c
@@ -124,7 +124,7 @@ maxloc1_8_r8 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ smaxloc1_8_r8 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c

index a7288eb..961c32a 100644 (file)
--- a/libgfortran/generated/maxval_i1.c
+++ b/libgfortran/generated/maxval_i1.c
@@ -123,7 +123,7 @@ maxval_i1 (gfc_array_i1 * 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++)
             {
@@ -312,7 +312,7 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ smaxval_i1 (gfc_array_i1 * 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++)
             {
diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c

index d50ab6f..03cd671 100644 (file)
--- a/libgfortran/generated/maxval_i16.c
+++ b/libgfortran/generated/maxval_i16.c
@@ -123,7 +123,7 @@ maxval_i16 (gfc_array_i16 * 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++)
             {
@@ -312,7 +312,7 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ smaxval_i16 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c

index c49b181..8b87f6b 100644 (file)
--- a/libgfortran/generated/maxval_i2.c
+++ b/libgfortran/generated/maxval_i2.c
@@ -123,7 +123,7 @@ maxval_i2 (gfc_array_i2 * 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++)
             {
@@ -312,7 +312,7 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ smaxval_i2 (gfc_array_i2 * 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++)
             {
diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c

index 354c86d..b35fa7b 100644 (file)
--- a/libgfortran/generated/maxval_i4.c
+++ b/libgfortran/generated/maxval_i4.c
@@ -123,7 +123,7 @@ maxval_i4 (gfc_array_i4 * 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++)
             {
@@ -312,7 +312,7 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ smaxval_i4 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c

index 91a2b00..2c407b4 100644 (file)
--- a/libgfortran/generated/maxval_i8.c
+++ b/libgfortran/generated/maxval_i8.c
@@ -123,7 +123,7 @@ maxval_i8 (gfc_array_i8 * 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++)
             {
@@ -312,7 +312,7 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ smaxval_i8 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c

index c959a80..03aa623 100644 (file)
--- a/libgfortran/generated/maxval_r10.c
+++ b/libgfortran/generated/maxval_r10.c
@@ -123,7 +123,7 @@ maxval_r10 (gfc_array_r10 * 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++)
             {
@@ -312,7 +312,7 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ smaxval_r10 (gfc_array_r10 * 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++)
             {
diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c

index a05808d..98bce6e 100644 (file)
--- a/libgfortran/generated/maxval_r16.c
+++ b/libgfortran/generated/maxval_r16.c
@@ -123,7 +123,7 @@ maxval_r16 (gfc_array_r16 * 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++)
             {
@@ -312,7 +312,7 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ smaxval_r16 (gfc_array_r16 * 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++)
             {
diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c

index a00468b..c57d558 100644 (file)
--- a/libgfortran/generated/maxval_r4.c
+++ b/libgfortran/generated/maxval_r4.c
@@ -123,7 +123,7 @@ maxval_r4 (gfc_array_r4 * 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++)
             {
@@ -312,7 +312,7 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ smaxval_r4 (gfc_array_r4 * 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++)
             {
diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c

index 1c9e41d..2afe754 100644 (file)
--- a/libgfortran/generated/maxval_r8.c
+++ b/libgfortran/generated/maxval_r8.c
@@ -123,7 +123,7 @@ maxval_r8 (gfc_array_r8 * 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++)
             {
@@ -312,7 +312,7 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MAXVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ smaxval_r8 (gfc_array_r8 * 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++)
             {
diff --git a/libgfortran/generated/minloc0_16_i1.c b/libgfortran/generated/minloc0_16_i1.c

index 41924a3..401b0a1 100644 (file)
--- a/libgfortran/generated/minloc0_16_i1.c
+++ b/libgfortran/generated/minloc0_16_i1.c
@@ -69,7 +69,7 @@ minloc0_16_i1 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_16_i1 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_16_i1 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_16_i16.c b/libgfortran/generated/minloc0_16_i16.c

index 655d587..bd96534 100644 (file)
--- a/libgfortran/generated/minloc0_16_i16.c
+++ b/libgfortran/generated/minloc0_16_i16.c
@@ -69,7 +69,7 @@ minloc0_16_i16 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_16_i16 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_16_i16 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_16_i2.c b/libgfortran/generated/minloc0_16_i2.c

index bca08a5..329d8b1 100644 (file)
--- a/libgfortran/generated/minloc0_16_i2.c
+++ b/libgfortran/generated/minloc0_16_i2.c
@@ -69,7 +69,7 @@ minloc0_16_i2 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_16_i2 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_16_i2 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_16_i4.c b/libgfortran/generated/minloc0_16_i4.c

index 50105af..4afea1e 100644 (file)
--- a/libgfortran/generated/minloc0_16_i4.c
+++ b/libgfortran/generated/minloc0_16_i4.c
@@ -69,7 +69,7 @@ minloc0_16_i4 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_16_i4 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_16_i4 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_16_i8.c b/libgfortran/generated/minloc0_16_i8.c

index d12663f..9492ecd 100644 (file)
--- a/libgfortran/generated/minloc0_16_i8.c
+++ b/libgfortran/generated/minloc0_16_i8.c
@@ -69,7 +69,7 @@ minloc0_16_i8 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_16_i8 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_16_i8 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_16_r10.c b/libgfortran/generated/minloc0_16_r10.c

index 9c93f14..002fb8a 100644 (file)
--- a/libgfortran/generated/minloc0_16_r10.c
+++ b/libgfortran/generated/minloc0_16_r10.c
@@ -69,7 +69,7 @@ minloc0_16_r10 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_16_r10 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_16_r10 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_16_r16.c b/libgfortran/generated/minloc0_16_r16.c

index 83624d2..d950e20 100644 (file)
--- a/libgfortran/generated/minloc0_16_r16.c
+++ b/libgfortran/generated/minloc0_16_r16.c
@@ -69,7 +69,7 @@ minloc0_16_r16 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_16_r16 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_16_r16 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_16_r4.c b/libgfortran/generated/minloc0_16_r4.c

index 4225805..7fbb2c0 100644 (file)
--- a/libgfortran/generated/minloc0_16_r4.c
+++ b/libgfortran/generated/minloc0_16_r4.c
@@ -69,7 +69,7 @@ minloc0_16_r4 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_16_r4 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_16_r4 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_16_r8.c b/libgfortran/generated/minloc0_16_r8.c

index 74c5358..8348525 100644 (file)
--- a/libgfortran/generated/minloc0_16_r8.c
+++ b/libgfortran/generated/minloc0_16_r8.c
@@ -69,7 +69,7 @@ minloc0_16_r8 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_16_r8 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_16_r8 (gfc_array_i16 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_4_i1.c b/libgfortran/generated/minloc0_4_i1.c

index 53ddea2..50dc87d 100644 (file)
--- a/libgfortran/generated/minloc0_4_i1.c
+++ b/libgfortran/generated/minloc0_4_i1.c
@@ -69,7 +69,7 @@ minloc0_4_i1 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_4_i1 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_4_i1 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_4_i16.c b/libgfortran/generated/minloc0_4_i16.c

index 88c5a0a..ab7fd86 100644 (file)
--- a/libgfortran/generated/minloc0_4_i16.c
+++ b/libgfortran/generated/minloc0_4_i16.c
@@ -69,7 +69,7 @@ minloc0_4_i16 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_4_i16 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_4_i16 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_4_i2.c b/libgfortran/generated/minloc0_4_i2.c

index 2db4557..cd9ec26 100644 (file)
--- a/libgfortran/generated/minloc0_4_i2.c
+++ b/libgfortran/generated/minloc0_4_i2.c
@@ -69,7 +69,7 @@ minloc0_4_i2 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_4_i2 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_4_i2 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_4_i4.c b/libgfortran/generated/minloc0_4_i4.c

index 49e74f5..9321108 100644 (file)
--- a/libgfortran/generated/minloc0_4_i4.c
+++ b/libgfortran/generated/minloc0_4_i4.c
@@ -69,7 +69,7 @@ minloc0_4_i4 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_4_i4 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_4_i4 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_4_i8.c b/libgfortran/generated/minloc0_4_i8.c

index 2be844f..8a2256b 100644 (file)
--- a/libgfortran/generated/minloc0_4_i8.c
+++ b/libgfortran/generated/minloc0_4_i8.c
@@ -69,7 +69,7 @@ minloc0_4_i8 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_4_i8 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_4_i8 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_4_r10.c b/libgfortran/generated/minloc0_4_r10.c

index a1d390c..792a9e1 100644 (file)
--- a/libgfortran/generated/minloc0_4_r10.c
+++ b/libgfortran/generated/minloc0_4_r10.c
@@ -69,7 +69,7 @@ minloc0_4_r10 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_4_r10 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_4_r10 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_4_r16.c b/libgfortran/generated/minloc0_4_r16.c

index e4ecd12..01424dc 100644 (file)
--- a/libgfortran/generated/minloc0_4_r16.c
+++ b/libgfortran/generated/minloc0_4_r16.c
@@ -69,7 +69,7 @@ minloc0_4_r16 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_4_r16 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_4_r16 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_4_r4.c b/libgfortran/generated/minloc0_4_r4.c

index a115c01..88b4917 100644 (file)
--- a/libgfortran/generated/minloc0_4_r4.c
+++ b/libgfortran/generated/minloc0_4_r4.c
@@ -69,7 +69,7 @@ minloc0_4_r4 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_4_r4 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_4_r4 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_4_r8.c b/libgfortran/generated/minloc0_4_r8.c

index 6162cfd..5d35314 100644 (file)
--- a/libgfortran/generated/minloc0_4_r8.c
+++ b/libgfortran/generated/minloc0_4_r8.c
@@ -69,7 +69,7 @@ minloc0_4_r8 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_4_r8 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_4_r8 (gfc_array_i4 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_8_i1.c b/libgfortran/generated/minloc0_8_i1.c

index b755ed7..a70533e 100644 (file)
--- a/libgfortran/generated/minloc0_8_i1.c
+++ b/libgfortran/generated/minloc0_8_i1.c
@@ -69,7 +69,7 @@ minloc0_8_i1 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_8_i1 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_8_i1 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_8_i16.c b/libgfortran/generated/minloc0_8_i16.c

index 7290603..364d75d 100644 (file)
--- a/libgfortran/generated/minloc0_8_i16.c
+++ b/libgfortran/generated/minloc0_8_i16.c
@@ -69,7 +69,7 @@ minloc0_8_i16 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_8_i16 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_8_i16 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_8_i2.c b/libgfortran/generated/minloc0_8_i2.c

index 70cc870..7b5d8ab 100644 (file)
--- a/libgfortran/generated/minloc0_8_i2.c
+++ b/libgfortran/generated/minloc0_8_i2.c
@@ -69,7 +69,7 @@ minloc0_8_i2 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_8_i2 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_8_i2 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_8_i4.c b/libgfortran/generated/minloc0_8_i4.c

index 5cd60c3..9f40ec4 100644 (file)
--- a/libgfortran/generated/minloc0_8_i4.c
+++ b/libgfortran/generated/minloc0_8_i4.c
@@ -69,7 +69,7 @@ minloc0_8_i4 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_8_i4 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_8_i4 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_8_i8.c b/libgfortran/generated/minloc0_8_i8.c

index 2c2c2d2..36306fb 100644 (file)
--- a/libgfortran/generated/minloc0_8_i8.c
+++ b/libgfortran/generated/minloc0_8_i8.c
@@ -69,7 +69,7 @@ minloc0_8_i8 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_8_i8 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_8_i8 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_8_r10.c b/libgfortran/generated/minloc0_8_r10.c

index 2b2f3cf..b085afd 100644 (file)
--- a/libgfortran/generated/minloc0_8_r10.c
+++ b/libgfortran/generated/minloc0_8_r10.c
@@ -69,7 +69,7 @@ minloc0_8_r10 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_8_r10 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_8_r10 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_8_r16.c b/libgfortran/generated/minloc0_8_r16.c

index a93e1da..7a78fc5 100644 (file)
--- a/libgfortran/generated/minloc0_8_r16.c
+++ b/libgfortran/generated/minloc0_8_r16.c
@@ -69,7 +69,7 @@ minloc0_8_r16 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_8_r16 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_8_r16 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_8_r4.c b/libgfortran/generated/minloc0_8_r4.c

index 45d2eba..53eb53e 100644 (file)
--- a/libgfortran/generated/minloc0_8_r4.c
+++ b/libgfortran/generated/minloc0_8_r4.c
@@ -69,7 +69,7 @@ minloc0_8_r4 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_8_r4 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_8_r4 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc0_8_r8.c b/libgfortran/generated/minloc0_8_r8.c

index f404115..f583f8b 100644 (file)
--- a/libgfortran/generated/minloc0_8_r8.c
+++ b/libgfortran/generated/minloc0_8_r8.c
@@ -69,7 +69,7 @@ minloc0_8_r8 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -193,7 +193,7 @@ mminloc0_8_r8 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -353,7 +353,7 @@ sminloc0_8_r8 (gfc_array_i8 * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c

index f95aa90..165646f 100644 (file)
--- a/libgfortran/generated/minloc1_16_i1.c
+++ b/libgfortran/generated/minloc1_16_i1.c
@@ -124,7 +124,7 @@ minloc1_16_i1 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_16_i1 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c

index 9a5da30..b6e1cb5 100644 (file)
--- a/libgfortran/generated/minloc1_16_i16.c
+++ b/libgfortran/generated/minloc1_16_i16.c
@@ -124,7 +124,7 @@ minloc1_16_i16 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_16_i16 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c

index ad282f9..8b13892 100644 (file)
--- a/libgfortran/generated/minloc1_16_i2.c
+++ b/libgfortran/generated/minloc1_16_i2.c
@@ -124,7 +124,7 @@ minloc1_16_i2 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_16_i2 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c

index 7eb382d..e97b0dc 100644 (file)
--- a/libgfortran/generated/minloc1_16_i4.c
+++ b/libgfortran/generated/minloc1_16_i4.c
@@ -124,7 +124,7 @@ minloc1_16_i4 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_16_i4 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c

index 7995d26..3760b20 100644 (file)
--- a/libgfortran/generated/minloc1_16_i8.c
+++ b/libgfortran/generated/minloc1_16_i8.c
@@ -124,7 +124,7 @@ minloc1_16_i8 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_16_i8 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c

index c7da9d1..abc5689 100644 (file)
--- a/libgfortran/generated/minloc1_16_r10.c
+++ b/libgfortran/generated/minloc1_16_r10.c
@@ -124,7 +124,7 @@ minloc1_16_r10 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_16_r10 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c

index c24cb81..3e2e8fa 100644 (file)
--- a/libgfortran/generated/minloc1_16_r16.c
+++ b/libgfortran/generated/minloc1_16_r16.c
@@ -124,7 +124,7 @@ minloc1_16_r16 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_16_r16 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c

index 37cda9b..542932f 100644 (file)
--- a/libgfortran/generated/minloc1_16_r4.c
+++ b/libgfortran/generated/minloc1_16_r4.c
@@ -124,7 +124,7 @@ minloc1_16_r4 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_16_r4 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c

index b0bbf82..5d96aea 100644 (file)
--- a/libgfortran/generated/minloc1_16_r8.c
+++ b/libgfortran/generated/minloc1_16_r8.c
@@ -124,7 +124,7 @@ minloc1_16_r8 (gfc_array_i16 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_16_r8 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c

index eab1b40..daddbbf 100644 (file)
--- a/libgfortran/generated/minloc1_4_i1.c
+++ b/libgfortran/generated/minloc1_4_i1.c
@@ -124,7 +124,7 @@ minloc1_4_i1 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_4_i1 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c

index 3446e4e..4861f18 100644 (file)
--- a/libgfortran/generated/minloc1_4_i16.c
+++ b/libgfortran/generated/minloc1_4_i16.c
@@ -124,7 +124,7 @@ minloc1_4_i16 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_4_i16 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c

index 1e2a8c6..09e1520 100644 (file)
--- a/libgfortran/generated/minloc1_4_i2.c
+++ b/libgfortran/generated/minloc1_4_i2.c
@@ -124,7 +124,7 @@ minloc1_4_i2 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_4_i2 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c

index 6e4b137..d7c0729 100644 (file)
--- a/libgfortran/generated/minloc1_4_i4.c
+++ b/libgfortran/generated/minloc1_4_i4.c
@@ -124,7 +124,7 @@ minloc1_4_i4 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_4_i4 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c

index 5295a10..10ffa36 100644 (file)
--- a/libgfortran/generated/minloc1_4_i8.c
+++ b/libgfortran/generated/minloc1_4_i8.c
@@ -124,7 +124,7 @@ minloc1_4_i8 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_4_i8 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c

index a020a99..67d5b03 100644 (file)
--- a/libgfortran/generated/minloc1_4_r10.c
+++ b/libgfortran/generated/minloc1_4_r10.c
@@ -124,7 +124,7 @@ minloc1_4_r10 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_4_r10 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c

index 19bf03c..0358183 100644 (file)
--- a/libgfortran/generated/minloc1_4_r16.c
+++ b/libgfortran/generated/minloc1_4_r16.c
@@ -124,7 +124,7 @@ minloc1_4_r16 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_4_r16 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c

index ba54897..f029ecb 100644 (file)
--- a/libgfortran/generated/minloc1_4_r4.c
+++ b/libgfortran/generated/minloc1_4_r4.c
@@ -124,7 +124,7 @@ minloc1_4_r4 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_4_r4 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c

index 07fb27a..8b59728 100644 (file)
--- a/libgfortran/generated/minloc1_4_r8.c
+++ b/libgfortran/generated/minloc1_4_r8.c
@@ -124,7 +124,7 @@ minloc1_4_r8 (gfc_array_i4 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_4_r8 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c

index 409a961..e56b156 100644 (file)
--- a/libgfortran/generated/minloc1_8_i1.c
+++ b/libgfortran/generated/minloc1_8_i1.c
@@ -124,7 +124,7 @@ minloc1_8_i1 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_8_i1 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c

index 47fc666..82e550e 100644 (file)
--- a/libgfortran/generated/minloc1_8_i16.c
+++ b/libgfortran/generated/minloc1_8_i16.c
@@ -124,7 +124,7 @@ minloc1_8_i16 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_8_i16 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c

index 2208017..2812b2a 100644 (file)
--- a/libgfortran/generated/minloc1_8_i2.c
+++ b/libgfortran/generated/minloc1_8_i2.c
@@ -124,7 +124,7 @@ minloc1_8_i2 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_8_i2 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c

index 71df4e6..6a8505e 100644 (file)
--- a/libgfortran/generated/minloc1_8_i4.c
+++ b/libgfortran/generated/minloc1_8_i4.c
@@ -124,7 +124,7 @@ minloc1_8_i4 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_8_i4 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c

index d4e471a..efc7ef0 100644 (file)
--- a/libgfortran/generated/minloc1_8_i8.c
+++ b/libgfortran/generated/minloc1_8_i8.c
@@ -124,7 +124,7 @@ minloc1_8_i8 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_8_i8 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c

index 6163239..e3c727a 100644 (file)
--- a/libgfortran/generated/minloc1_8_r10.c
+++ b/libgfortran/generated/minloc1_8_r10.c
@@ -124,7 +124,7 @@ minloc1_8_r10 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_8_r10 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c

index 3e0416a..734a3a8 100644 (file)
--- a/libgfortran/generated/minloc1_8_r16.c
+++ b/libgfortran/generated/minloc1_8_r16.c
@@ -124,7 +124,7 @@ minloc1_8_r16 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_8_r16 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c

index c6a6ad4..253dc86 100644 (file)
--- a/libgfortran/generated/minloc1_8_r4.c
+++ b/libgfortran/generated/minloc1_8_r4.c
@@ -124,7 +124,7 @@ minloc1_8_r4 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_8_r4 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c

index 8a01e3e..dc9288e 100644 (file)
--- a/libgfortran/generated/minloc1_8_r8.c
+++ b/libgfortran/generated/minloc1_8_r8.c
@@ -124,7 +124,7 @@ minloc1_8_r8 (gfc_array_i8 * 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++)
             {
@@ -318,7 +318,7 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINLOC intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -508,7 +508,7 @@ sminloc1_8_r8 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c

index 719a049..c0c9fff 100644 (file)
--- a/libgfortran/generated/minval_i1.c
+++ b/libgfortran/generated/minval_i1.c
@@ -123,7 +123,7 @@ minval_i1 (gfc_array_i1 * 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++)
             {
@@ -312,7 +312,7 @@ mminval_i1 (gfc_array_i1 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ sminval_i1 (gfc_array_i1 * 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++)
             {
diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c

index c4f699b..7abe358 100644 (file)
--- a/libgfortran/generated/minval_i16.c
+++ b/libgfortran/generated/minval_i16.c
@@ -123,7 +123,7 @@ minval_i16 (gfc_array_i16 * 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++)
             {
@@ -312,7 +312,7 @@ mminval_i16 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ sminval_i16 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c

index 2ff292f..c782c36 100644 (file)
--- a/libgfortran/generated/minval_i2.c
+++ b/libgfortran/generated/minval_i2.c
@@ -123,7 +123,7 @@ minval_i2 (gfc_array_i2 * 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++)
             {
@@ -312,7 +312,7 @@ mminval_i2 (gfc_array_i2 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ sminval_i2 (gfc_array_i2 * 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++)
             {
diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c

index 96bfe32..13506a2 100644 (file)
--- a/libgfortran/generated/minval_i4.c
+++ b/libgfortran/generated/minval_i4.c
@@ -123,7 +123,7 @@ minval_i4 (gfc_array_i4 * 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++)
             {
@@ -312,7 +312,7 @@ mminval_i4 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ sminval_i4 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c

index 1682dd2..dbad3ce 100644 (file)
--- a/libgfortran/generated/minval_i8.c
+++ b/libgfortran/generated/minval_i8.c
@@ -123,7 +123,7 @@ minval_i8 (gfc_array_i8 * 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++)
             {
@@ -312,7 +312,7 @@ mminval_i8 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ sminval_i8 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c

index fa9e636..6091a2e 100644 (file)
--- a/libgfortran/generated/minval_r10.c
+++ b/libgfortran/generated/minval_r10.c
@@ -123,7 +123,7 @@ minval_r10 (gfc_array_r10 * 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++)
             {
@@ -312,7 +312,7 @@ mminval_r10 (gfc_array_r10 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ sminval_r10 (gfc_array_r10 * 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++)
             {
diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c

index 9561caa..87518bf 100644 (file)
--- a/libgfortran/generated/minval_r16.c
+++ b/libgfortran/generated/minval_r16.c
@@ -123,7 +123,7 @@ minval_r16 (gfc_array_r16 * 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++)
             {
@@ -312,7 +312,7 @@ mminval_r16 (gfc_array_r16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ sminval_r16 (gfc_array_r16 * 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++)
             {
diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c

index ac048ee..8511795 100644 (file)
--- a/libgfortran/generated/minval_r4.c
+++ b/libgfortran/generated/minval_r4.c
@@ -123,7 +123,7 @@ minval_r4 (gfc_array_r4 * 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++)
             {
@@ -312,7 +312,7 @@ mminval_r4 (gfc_array_r4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ sminval_r4 (gfc_array_r4 * 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++)
             {
diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c

index 21ecb3c..fcfbdc7 100644 (file)
--- a/libgfortran/generated/minval_r8.c
+++ b/libgfortran/generated/minval_r8.c
@@ -123,7 +123,7 @@ minval_r8 (gfc_array_r8 * 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++)
             {
@@ -312,7 +312,7 @@ mminval_r8 (gfc_array_r8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in MINVAL intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -497,7 +497,7 @@ sminval_r8 (gfc_array_r8 * 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++)
             {
diff --git a/libgfortran/generated/product_c10.c b/libgfortran/generated/product_c10.c

index 66a9c05..7ff7270 100644 (file)
--- a/libgfortran/generated/product_c10.c
+++ b/libgfortran/generated/product_c10.c
@@ -123,7 +123,7 @@ product_c10 (gfc_array_c10 * 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++)
             {
@@ -311,7 +311,7 @@ mproduct_c10 (gfc_array_c10 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in PRODUCT intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ sproduct_c10 (gfc_array_c10 * 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++)
             {
diff --git a/libgfortran/generated/product_c16.c b/libgfortran/generated/product_c16.c

index ec2acb4..9f9d6c9 100644 (file)
--- a/libgfortran/generated/product_c16.c
+++ b/libgfortran/generated/product_c16.c
@@ -123,7 +123,7 @@ product_c16 (gfc_array_c16 * 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++)
             {
@@ -311,7 +311,7 @@ mproduct_c16 (gfc_array_c16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in PRODUCT intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ sproduct_c16 (gfc_array_c16 * 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++)
             {
diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c

index bd52eb9..8a1f7a5 100644 (file)
--- a/libgfortran/generated/product_c4.c
+++ b/libgfortran/generated/product_c4.c
@@ -123,7 +123,7 @@ product_c4 (gfc_array_c4 * 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++)
             {
@@ -311,7 +311,7 @@ mproduct_c4 (gfc_array_c4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in PRODUCT intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ sproduct_c4 (gfc_array_c4 * 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++)
             {
diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c

index c124355..e8416b3 100644 (file)
--- a/libgfortran/generated/product_c8.c
+++ b/libgfortran/generated/product_c8.c
@@ -123,7 +123,7 @@ product_c8 (gfc_array_c8 * 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++)
             {
@@ -311,7 +311,7 @@ mproduct_c8 (gfc_array_c8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in PRODUCT intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ sproduct_c8 (gfc_array_c8 * 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++)
             {
diff --git a/libgfortran/generated/product_i1.c b/libgfortran/generated/product_i1.c

index 362a08a..01f13f5 100644 (file)
--- a/libgfortran/generated/product_i1.c
+++ b/libgfortran/generated/product_i1.c
@@ -123,7 +123,7 @@ product_i1 (gfc_array_i1 * 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++)
             {
@@ -311,7 +311,7 @@ mproduct_i1 (gfc_array_i1 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in PRODUCT intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ sproduct_i1 (gfc_array_i1 * 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++)
             {
diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c

index a687c3a..a2e2c64 100644 (file)
--- a/libgfortran/generated/product_i16.c
+++ b/libgfortran/generated/product_i16.c
@@ -123,7 +123,7 @@ product_i16 (gfc_array_i16 * 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++)
             {
@@ -311,7 +311,7 @@ mproduct_i16 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in PRODUCT intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ sproduct_i16 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/product_i2.c b/libgfortran/generated/product_i2.c

index f8082b4..f18e5c7 100644 (file)
--- a/libgfortran/generated/product_i2.c
+++ b/libgfortran/generated/product_i2.c
@@ -123,7 +123,7 @@ product_i2 (gfc_array_i2 * 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++)
             {
@@ -311,7 +311,7 @@ mproduct_i2 (gfc_array_i2 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in PRODUCT intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ sproduct_i2 (gfc_array_i2 * 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++)
             {
diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c

index 11132d4..fb3caa2 100644 (file)
--- a/libgfortran/generated/product_i4.c
+++ b/libgfortran/generated/product_i4.c
@@ -123,7 +123,7 @@ product_i4 (gfc_array_i4 * 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++)
             {
@@ -311,7 +311,7 @@ mproduct_i4 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in PRODUCT intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ sproduct_i4 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c

index da28568..5a2c78b 100644 (file)
--- a/libgfortran/generated/product_i8.c
+++ b/libgfortran/generated/product_i8.c
@@ -123,7 +123,7 @@ product_i8 (gfc_array_i8 * 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++)
             {
@@ -311,7 +311,7 @@ mproduct_i8 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in PRODUCT intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ sproduct_i8 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c

index fb0074e..0052fca 100644 (file)
--- a/libgfortran/generated/product_r10.c
+++ b/libgfortran/generated/product_r10.c
@@ -123,7 +123,7 @@ product_r10 (gfc_array_r10 * 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++)
             {
@@ -311,7 +311,7 @@ mproduct_r10 (gfc_array_r10 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in PRODUCT intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ sproduct_r10 (gfc_array_r10 * 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++)
             {
diff --git a/libgfortran/generated/product_r16.c b/libgfortran/generated/product_r16.c

index 2375cbe..f5b0886 100644 (file)
--- a/libgfortran/generated/product_r16.c
+++ b/libgfortran/generated/product_r16.c
@@ -123,7 +123,7 @@ product_r16 (gfc_array_r16 * 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++)
             {
@@ -311,7 +311,7 @@ mproduct_r16 (gfc_array_r16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in PRODUCT intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ sproduct_r16 (gfc_array_r16 * 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++)
             {
diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c

index 1a3aacc..9f9787b 100644 (file)
--- a/libgfortran/generated/product_r4.c
+++ b/libgfortran/generated/product_r4.c
@@ -123,7 +123,7 @@ product_r4 (gfc_array_r4 * 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++)
             {
@@ -311,7 +311,7 @@ mproduct_r4 (gfc_array_r4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in PRODUCT intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ sproduct_r4 (gfc_array_r4 * 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++)
             {
diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c

index 76cb1be..5eec583 100644 (file)
--- a/libgfortran/generated/product_r8.c
+++ b/libgfortran/generated/product_r8.c
@@ -123,7 +123,7 @@ product_r8 (gfc_array_r8 * 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++)
             {
@@ -311,7 +311,7 @@ mproduct_r8 (gfc_array_r8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in PRODUCT intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ sproduct_r8 (gfc_array_r8 * 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++)
             {
diff --git a/libgfortran/generated/spread_c10.c b/libgfortran/generated/spread_c10.c

index 868a75f..8973490 100644 (file)
--- a/libgfortran/generated/spread_c10.c
+++ b/libgfortran/generated/spread_c10.c
@@ -121,7 +121,7 @@ spread_c10 (gfc_array_c10 *ret, const gfc_array_c10 *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++)
             {
diff --git a/libgfortran/generated/spread_c16.c b/libgfortran/generated/spread_c16.c

index 5aa45e6..4a6110f 100644 (file)
--- a/libgfortran/generated/spread_c16.c
+++ b/libgfortran/generated/spread_c16.c
@@ -121,7 +121,7 @@ spread_c16 (gfc_array_c16 *ret, const gfc_array_c16 *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++)
             {
diff --git a/libgfortran/generated/spread_c4.c b/libgfortran/generated/spread_c4.c

index f1b16e7..45415e4 100644 (file)
--- a/libgfortran/generated/spread_c4.c
+++ b/libgfortran/generated/spread_c4.c
@@ -121,7 +121,7 @@ spread_c4 (gfc_array_c4 *ret, const gfc_array_c4 *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++)
             {
diff --git a/libgfortran/generated/spread_c8.c b/libgfortran/generated/spread_c8.c

index ed79c28..abbf186 100644 (file)
--- 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++)
             {
diff --git a/libgfortran/generated/spread_i1.c b/libgfortran/generated/spread_i1.c

index b5798df..f9c864b 100644 (file)
--- a/libgfortran/generated/spread_i1.c
+++ b/libgfortran/generated/spread_i1.c
@@ -121,7 +121,7 @@ spread_i1 (gfc_array_i1 *ret, const gfc_array_i1 *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++)
             {
diff --git a/libgfortran/generated/spread_i16.c b/libgfortran/generated/spread_i16.c

index 0f6002f..a2e87ad 100644 (file)
--- a/libgfortran/generated/spread_i16.c
+++ b/libgfortran/generated/spread_i16.c
@@ -121,7 +121,7 @@ spread_i16 (gfc_array_i16 *ret, const gfc_array_i16 *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++)
             {
diff --git a/libgfortran/generated/spread_i2.c b/libgfortran/generated/spread_i2.c

index ac49aa9..83d4213 100644 (file)
--- a/libgfortran/generated/spread_i2.c
+++ b/libgfortran/generated/spread_i2.c
@@ -121,7 +121,7 @@ spread_i2 (gfc_array_i2 *ret, const gfc_array_i2 *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++)
             {
diff --git a/libgfortran/generated/spread_i4.c b/libgfortran/generated/spread_i4.c

index bef7a37..1d3408b 100644 (file)
--- a/libgfortran/generated/spread_i4.c
+++ b/libgfortran/generated/spread_i4.c
@@ -121,7 +121,7 @@ spread_i4 (gfc_array_i4 *ret, const gfc_array_i4 *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++)
             {
diff --git a/libgfortran/generated/spread_i8.c b/libgfortran/generated/spread_i8.c

index db5572a..7f77c43 100644 (file)
--- a/libgfortran/generated/spread_i8.c
+++ b/libgfortran/generated/spread_i8.c
@@ -121,7 +121,7 @@ spread_i8 (gfc_array_i8 *ret, const gfc_array_i8 *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++)
             {
diff --git a/libgfortran/generated/spread_r10.c b/libgfortran/generated/spread_r10.c

index 9d5afc2..90b0d90 100644 (file)
--- a/libgfortran/generated/spread_r10.c
+++ b/libgfortran/generated/spread_r10.c
@@ -121,7 +121,7 @@ spread_r10 (gfc_array_r10 *ret, const gfc_array_r10 *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++)
             {
diff --git a/libgfortran/generated/spread_r16.c b/libgfortran/generated/spread_r16.c

index 0b4d3ca..2c78cd4 100644 (file)
--- a/libgfortran/generated/spread_r16.c
+++ b/libgfortran/generated/spread_r16.c
@@ -121,7 +121,7 @@ spread_r16 (gfc_array_r16 *ret, const gfc_array_r16 *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++)
             {
diff --git a/libgfortran/generated/spread_r4.c b/libgfortran/generated/spread_r4.c

index 191203a..c151df3 100644 (file)
--- a/libgfortran/generated/spread_r4.c
+++ b/libgfortran/generated/spread_r4.c
@@ -121,7 +121,7 @@ spread_r4 (gfc_array_r4 *ret, const gfc_array_r4 *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++)
             {
diff --git a/libgfortran/generated/spread_r8.c b/libgfortran/generated/spread_r8.c

index a710111..de50b2f 100644 (file)
--- a/libgfortran/generated/spread_r8.c
+++ b/libgfortran/generated/spread_r8.c
@@ -121,7 +121,7 @@ spread_r8 (gfc_array_r8 *ret, const gfc_array_r8 *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++)
             {
diff --git a/libgfortran/generated/sum_c10.c b/libgfortran/generated/sum_c10.c

index 0c53b6c..e31efbb 100644 (file)
--- a/libgfortran/generated/sum_c10.c
+++ b/libgfortran/generated/sum_c10.c
@@ -123,7 +123,7 @@ sum_c10 (gfc_array_c10 * 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++)
             {
@@ -311,7 +311,7 @@ msum_c10 (gfc_array_c10 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in SUM intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ ssum_c10 (gfc_array_c10 * 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++)
             {
diff --git a/libgfortran/generated/sum_c16.c b/libgfortran/generated/sum_c16.c

index a3db7aa..8139782 100644 (file)
--- a/libgfortran/generated/sum_c16.c
+++ b/libgfortran/generated/sum_c16.c
@@ -123,7 +123,7 @@ sum_c16 (gfc_array_c16 * 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++)
             {
@@ -311,7 +311,7 @@ msum_c16 (gfc_array_c16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in SUM intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ ssum_c16 (gfc_array_c16 * 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++)
             {
diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c

index 849ab8a..1f1bd38 100644 (file)
--- a/libgfortran/generated/sum_c4.c
+++ b/libgfortran/generated/sum_c4.c
@@ -123,7 +123,7 @@ sum_c4 (gfc_array_c4 * 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++)
             {
@@ -311,7 +311,7 @@ msum_c4 (gfc_array_c4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in SUM intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ ssum_c4 (gfc_array_c4 * 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++)
             {
diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c

index dcdcadf..2b37bbc 100644 (file)
--- a/libgfortran/generated/sum_c8.c
+++ b/libgfortran/generated/sum_c8.c
@@ -123,7 +123,7 @@ sum_c8 (gfc_array_c8 * 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++)
             {
@@ -311,7 +311,7 @@ msum_c8 (gfc_array_c8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in SUM intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ ssum_c8 (gfc_array_c8 * 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++)
             {
diff --git a/libgfortran/generated/sum_i1.c b/libgfortran/generated/sum_i1.c

index 7b39681..fabb610 100644 (file)
--- a/libgfortran/generated/sum_i1.c
+++ b/libgfortran/generated/sum_i1.c
@@ -123,7 +123,7 @@ sum_i1 (gfc_array_i1 * 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++)
             {
@@ -311,7 +311,7 @@ msum_i1 (gfc_array_i1 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in SUM intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ ssum_i1 (gfc_array_i1 * 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++)
             {
diff --git a/libgfortran/generated/sum_i16.c b/libgfortran/generated/sum_i16.c

index e99da26..c41e497 100644 (file)
--- a/libgfortran/generated/sum_i16.c
+++ b/libgfortran/generated/sum_i16.c
@@ -123,7 +123,7 @@ sum_i16 (gfc_array_i16 * 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++)
             {
@@ -311,7 +311,7 @@ msum_i16 (gfc_array_i16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in SUM intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ ssum_i16 (gfc_array_i16 * 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++)
             {
diff --git a/libgfortran/generated/sum_i2.c b/libgfortran/generated/sum_i2.c

index 8a61191..4703e41 100644 (file)
--- a/libgfortran/generated/sum_i2.c
+++ b/libgfortran/generated/sum_i2.c
@@ -123,7 +123,7 @@ sum_i2 (gfc_array_i2 * 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++)
             {
@@ -311,7 +311,7 @@ msum_i2 (gfc_array_i2 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in SUM intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ ssum_i2 (gfc_array_i2 * 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++)
             {
diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c

index f7912ff..5a4725c 100644 (file)
--- a/libgfortran/generated/sum_i4.c
+++ b/libgfortran/generated/sum_i4.c
@@ -123,7 +123,7 @@ sum_i4 (gfc_array_i4 * 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++)
             {
@@ -311,7 +311,7 @@ msum_i4 (gfc_array_i4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in SUM intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ ssum_i4 (gfc_array_i4 * 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++)
             {
diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c

index a8ad4a5..9bc4e67 100644 (file)
--- a/libgfortran/generated/sum_i8.c
+++ b/libgfortran/generated/sum_i8.c
@@ -123,7 +123,7 @@ sum_i8 (gfc_array_i8 * 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++)
             {
@@ -311,7 +311,7 @@ msum_i8 (gfc_array_i8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in SUM intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ ssum_i8 (gfc_array_i8 * 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++)
             {
diff --git a/libgfortran/generated/sum_r10.c b/libgfortran/generated/sum_r10.c

index f96c72c..801761f 100644 (file)
--- a/libgfortran/generated/sum_r10.c
+++ b/libgfortran/generated/sum_r10.c
@@ -123,7 +123,7 @@ sum_r10 (gfc_array_r10 * 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++)
             {
@@ -311,7 +311,7 @@ msum_r10 (gfc_array_r10 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in SUM intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ ssum_r10 (gfc_array_r10 * 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++)
             {
diff --git a/libgfortran/generated/sum_r16.c b/libgfortran/generated/sum_r16.c

index dd8bdcf..9d53286 100644 (file)
--- a/libgfortran/generated/sum_r16.c
+++ b/libgfortran/generated/sum_r16.c
@@ -123,7 +123,7 @@ sum_r16 (gfc_array_r16 * 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++)
             {
@@ -311,7 +311,7 @@ msum_r16 (gfc_array_r16 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in SUM intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ ssum_r16 (gfc_array_r16 * 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++)
             {
diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c

index 3a39c27..84341e5 100644 (file)
--- a/libgfortran/generated/sum_r4.c
+++ b/libgfortran/generated/sum_r4.c
@@ -123,7 +123,7 @@ sum_r4 (gfc_array_r4 * 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++)
             {
@@ -311,7 +311,7 @@ msum_r4 (gfc_array_r4 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in SUM intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ ssum_r4 (gfc_array_r4 * 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++)
             {
diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c

index 858174a..6e2fad3 100644 (file)
--- a/libgfortran/generated/sum_r8.c
+++ b/libgfortran/generated/sum_r8.c
@@ -123,7 +123,7 @@ sum_r8 (gfc_array_r8 * 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++)
             {
@@ -311,7 +311,7 @@ msum_r8 (gfc_array_r8 * const restrict retarray,
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in SUM intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -496,7 +496,7 @@ ssum_r8 (gfc_array_r8 * 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++)
             {
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h

index a055483..d1a7df9 100644 (file)
--- a/libgfortran/libgfortran.h
+++ b/libgfortran/libgfortran.h
@@ -68,6 +68,11 @@ typedef off_t gfc_offset;
  
  #ifndef __GNUC__
  #define __attribute__(x)
+#define likely(x)       (x)
+#define unlikely(x)     (x)
+#else
+#define likely(x)       __builtin_expect(!!(x), 1)
+#define unlikely(x)     __builtin_expect(!!(x), 0)
  #endif
  
  
@@ -107,7 +112,8 @@ typedef off_t gfc_offset;
     mingw provides, __mingw_snprintf().  We also provide a prototype for
     __mingw_snprintf(), because the mingw headers currently don't have one.  */
  #if HAVE_MINGW_SNPRINTF
-extern int __mingw_snprintf (char *, size_t, const char *, ...);
+extern int __mingw_snprintf (char *, size_t, const char *, ...)
+     __attribute__ ((format (printf, 3, 4)));
  #undef snprintf
  #define snprintf __mingw_snprintf
  #endif
@@ -649,7 +655,8 @@ extern void runtime_error_at (const char *, const char *, ...)
       __attribute__ ((noreturn, format (printf, 2, 3)));
  iexport_proto(runtime_error_at);
  
-extern void runtime_warning_at (const char *, const char *, ...);
+extern void runtime_warning_at (const char *, const char *, ...)
+     __attribute__ ((format (printf, 2, 3)));
  iexport_proto(runtime_warning_at);
  
  extern void internal_error (st_parameter_common *, const char *)
diff --git a/libgfortran/m4/iforeach.m4 b/libgfortran/m4/iforeach.m4

index a8a353a..b620c65 100644 (file)
--- a/libgfortran/m4/iforeach.m4
+++ b/libgfortran/m4/iforeach.m4
@@ -36,7 +36,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
@@ -152,7 +152,7 @@ void
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank, mask_rank;
           index_type ret_extent;
@@ -311,7 +311,7 @@ void
      }
    else
      {
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           int ret_rank;
           index_type ret_extent;
diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4

index edf3c77..e0c168e 100644 (file)
--- a/libgfortran/m4/ifunction.m4
+++ b/libgfortran/m4/ifunction.m4
@@ -106,7 +106,7 @@ name`'rtype_qual`_'atype_code (rtype * 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++)
             {
@@ -294,7 +294,7 @@ void
        if (rank != GFC_DESCRIPTOR_RANK (retarray))
         runtime_error ("rank of return array incorrect in u_name intrinsic");
  
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
         {
           for (n=0; n < rank; n++)
             {
@@ -478,7 +478,7 @@ void
                        (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++)
             {
diff --git a/libgfortran/m4/ifunction_logical.m4 b/libgfortran/m4/ifunction_logical.m4

index 214be04..da6b4ae 100644 (file)
--- a/libgfortran/m4/ifunction_logical.m4
+++ b/libgfortran/m4/ifunction_logical.m4
@@ -110,7 +110,7 @@ name`'rtype_qual`_'atype_code (rtype * 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++)
             {
diff --git a/libgfortran/m4/matmul.m4 b/libgfortran/m4/matmul.m4

index a43b430..d8621fa 100644 (file)
--- a/libgfortran/m4/matmul.m4
+++ b/libgfortran/m4/matmul.m4
@@ -136,7 +136,7 @@ matmul_'rtype_code` ('rtype` * const restrict retarray,
         = internal_malloc_size (sizeof ('rtype_name`) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/m4/matmull.m4 b/libgfortran/m4/matmull.m4

index 8004445..78fb3fb 100644 (file)
--- a/libgfortran/m4/matmull.m4
+++ b/libgfortran/m4/matmull.m4
@@ -100,7 +100,7 @@ matmul_'rtype_code` ('rtype` * const restrict retarray,
         = internal_malloc_size (sizeof ('rtype_name`) * size0 ((array_t *) retarray));
        retarray->offset = 0;
      }
-    else if (compile_options.bounds_check)
+    else if (unlikely (compile_options.bounds_check))
        {
         index_type ret_extent, arg_extent;
  
diff --git a/libgfortran/m4/spread.m4 b/libgfortran/m4/spread.m4

index b4bdce6..54ec68c 100644 (file)
--- a/libgfortran/m4/spread.m4
+++ b/libgfortran/m4/spread.m4
@@ -122,7 +122,7 @@ spread_'rtype_code` ('rtype` *ret, const 'rtype` *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++)
             {
author	burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
	Sat, 6 Sep 2008 14:53:26 +0000 (14:53 +0000)
committer	burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
	Sat, 6 Sep 2008 14:53:26 +0000 (14:53 +0000)
libgfortran/ChangeLog		patch \| blob \| history
libgfortran/generated/all_l1.c		patch \| blob \| history
libgfortran/generated/all_l16.c		patch \| blob \| history
libgfortran/generated/all_l2.c		patch \| blob \| history
libgfortran/generated/all_l4.c		patch \| blob \| history
libgfortran/generated/all_l8.c		patch \| blob \| history
libgfortran/generated/any_l1.c		patch \| blob \| history
libgfortran/generated/any_l16.c		patch \| blob \| history
libgfortran/generated/any_l2.c		patch \| blob \| history
libgfortran/generated/any_l4.c		patch \| blob \| history
libgfortran/generated/any_l8.c		patch \| blob \| history
libgfortran/generated/count_16_l.c		patch \| blob \| history
libgfortran/generated/count_1_l.c		patch \| blob \| history
libgfortran/generated/count_2_l.c		patch \| blob \| history
libgfortran/generated/count_4_l.c		patch \| blob \| history
libgfortran/generated/count_8_l.c		patch \| blob \| history
libgfortran/generated/matmul_c10.c		patch \| blob \| history
libgfortran/generated/matmul_c16.c		patch \| blob \| history
libgfortran/generated/matmul_c4.c		patch \| blob \| history
libgfortran/generated/matmul_c8.c		patch \| blob \| history
libgfortran/generated/matmul_i1.c		patch \| blob \| history
libgfortran/generated/matmul_i16.c		patch \| blob \| history
libgfortran/generated/matmul_i2.c		patch \| blob \| history
libgfortran/generated/matmul_i4.c		patch \| blob \| history
libgfortran/generated/matmul_i8.c		patch \| blob \| history
libgfortran/generated/matmul_l16.c		patch \| blob \| history
libgfortran/generated/matmul_l4.c		patch \| blob \| history
libgfortran/generated/matmul_l8.c		patch \| blob \| history
libgfortran/generated/matmul_r10.c		patch \| blob \| history
libgfortran/generated/matmul_r16.c		patch \| blob \| history
libgfortran/generated/matmul_r4.c		patch \| blob \| history
libgfortran/generated/matmul_r8.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_i1.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_i16.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_i2.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_i4.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_i8.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_r10.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_r16.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_r4.c		patch \| blob \| history
libgfortran/generated/maxloc0_16_r8.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_i1.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_i16.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_i2.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_i4.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_i8.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_r10.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_r16.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_r4.c		patch \| blob \| history
libgfortran/generated/maxloc0_4_r8.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_i1.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_i16.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_i2.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_i4.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_i8.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_r10.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_r16.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_r4.c		patch \| blob \| history
libgfortran/generated/maxloc0_8_r8.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_i1.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_i16.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_i2.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_i4.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_i8.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_r10.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_r16.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_r4.c		patch \| blob \| history
libgfortran/generated/maxloc1_16_r8.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_i1.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_i16.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_i2.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_i4.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_i8.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_r10.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_r16.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_r4.c		patch \| blob \| history
libgfortran/generated/maxloc1_4_r8.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_i1.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_i16.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_i2.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_i4.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_i8.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_r10.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_r16.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_r4.c		patch \| blob \| history
libgfortran/generated/maxloc1_8_r8.c		patch \| blob \| history
libgfortran/generated/maxval_i1.c		patch \| blob \| history
libgfortran/generated/maxval_i16.c		patch \| blob \| history
libgfortran/generated/maxval_i2.c		patch \| blob \| history
libgfortran/generated/maxval_i4.c		patch \| blob \| history
libgfortran/generated/maxval_i8.c		patch \| blob \| history
libgfortran/generated/maxval_r10.c		patch \| blob \| history
libgfortran/generated/maxval_r16.c		patch \| blob \| history
libgfortran/generated/maxval_r4.c		patch \| blob \| history
libgfortran/generated/maxval_r8.c		patch \| blob \| history
libgfortran/generated/minloc0_16_i1.c		patch \| blob \| history
libgfortran/generated/minloc0_16_i16.c		patch \| blob \| history
libgfortran/generated/minloc0_16_i2.c		patch \| blob \| history
libgfortran/generated/minloc0_16_i4.c		patch \| blob \| history
libgfortran/generated/minloc0_16_i8.c		patch \| blob \| history
libgfortran/generated/minloc0_16_r10.c		patch \| blob \| history
libgfortran/generated/minloc0_16_r16.c		patch \| blob \| history
libgfortran/generated/minloc0_16_r4.c		patch \| blob \| history
libgfortran/generated/minloc0_16_r8.c		patch \| blob \| history
libgfortran/generated/minloc0_4_i1.c		patch \| blob \| history
libgfortran/generated/minloc0_4_i16.c		patch \| blob \| history
libgfortran/generated/minloc0_4_i2.c		patch \| blob \| history
libgfortran/generated/minloc0_4_i4.c		patch \| blob \| history
libgfortran/generated/minloc0_4_i8.c		patch \| blob \| history
libgfortran/generated/minloc0_4_r10.c		patch \| blob \| history
libgfortran/generated/minloc0_4_r16.c		patch \| blob \| history
libgfortran/generated/minloc0_4_r4.c		patch \| blob \| history
libgfortran/generated/minloc0_4_r8.c		patch \| blob \| history
libgfortran/generated/minloc0_8_i1.c		patch \| blob \| history
libgfortran/generated/minloc0_8_i16.c		patch \| blob \| history
libgfortran/generated/minloc0_8_i2.c		patch \| blob \| history
libgfortran/generated/minloc0_8_i4.c		patch \| blob \| history
libgfortran/generated/minloc0_8_i8.c		patch \| blob \| history
libgfortran/generated/minloc0_8_r10.c		patch \| blob \| history
libgfortran/generated/minloc0_8_r16.c		patch \| blob \| history
libgfortran/generated/minloc0_8_r4.c		patch \| blob \| history
libgfortran/generated/minloc0_8_r8.c		patch \| blob \| history
libgfortran/generated/minloc1_16_i1.c		patch \| blob \| history
libgfortran/generated/minloc1_16_i16.c		patch \| blob \| history
libgfortran/generated/minloc1_16_i2.c		patch \| blob \| history
libgfortran/generated/minloc1_16_i4.c		patch \| blob \| history
libgfortran/generated/minloc1_16_i8.c		patch \| blob \| history
libgfortran/generated/minloc1_16_r10.c		patch \| blob \| history
libgfortran/generated/minloc1_16_r16.c		patch \| blob \| history
libgfortran/generated/minloc1_16_r4.c		patch \| blob \| history
libgfortran/generated/minloc1_16_r8.c		patch \| blob \| history
libgfortran/generated/minloc1_4_i1.c		patch \| blob \| history
libgfortran/generated/minloc1_4_i16.c		patch \| blob \| history
libgfortran/generated/minloc1_4_i2.c		patch \| blob \| history
libgfortran/generated/minloc1_4_i4.c		patch \| blob \| history
libgfortran/generated/minloc1_4_i8.c		patch \| blob \| history
libgfortran/generated/minloc1_4_r10.c		patch \| blob \| history
libgfortran/generated/minloc1_4_r16.c		patch \| blob \| history
libgfortran/generated/minloc1_4_r4.c		patch \| blob \| history
libgfortran/generated/minloc1_4_r8.c		patch \| blob \| history
libgfortran/generated/minloc1_8_i1.c		patch \| blob \| history
libgfortran/generated/minloc1_8_i16.c		patch \| blob \| history
libgfortran/generated/minloc1_8_i2.c		patch \| blob \| history
libgfortran/generated/minloc1_8_i4.c		patch \| blob \| history
libgfortran/generated/minloc1_8_i8.c		patch \| blob \| history
libgfortran/generated/minloc1_8_r10.c		patch \| blob \| history
libgfortran/generated/minloc1_8_r16.c		patch \| blob \| history
libgfortran/generated/minloc1_8_r4.c		patch \| blob \| history
libgfortran/generated/minloc1_8_r8.c		patch \| blob \| history
libgfortran/generated/minval_i1.c		patch \| blob \| history
libgfortran/generated/minval_i16.c		patch \| blob \| history
libgfortran/generated/minval_i2.c		patch \| blob \| history
libgfortran/generated/minval_i4.c		patch \| blob \| history
libgfortran/generated/minval_i8.c		patch \| blob \| history
libgfortran/generated/minval_r10.c		patch \| blob \| history
libgfortran/generated/minval_r16.c		patch \| blob \| history
libgfortran/generated/minval_r4.c		patch \| blob \| history
libgfortran/generated/minval_r8.c		patch \| blob \| history
libgfortran/generated/product_c10.c		patch \| blob \| history
libgfortran/generated/product_c16.c		patch \| blob \| history
libgfortran/generated/product_c4.c		patch \| blob \| history
libgfortran/generated/product_c8.c		patch \| blob \| history
libgfortran/generated/product_i1.c		patch \| blob \| history
libgfortran/generated/product_i16.c		patch \| blob \| history
libgfortran/generated/product_i2.c		patch \| blob \| history
libgfortran/generated/product_i4.c		patch \| blob \| history
libgfortran/generated/product_i8.c		patch \| blob \| history
libgfortran/generated/product_r10.c		patch \| blob \| history
libgfortran/generated/product_r16.c		patch \| blob \| history
libgfortran/generated/product_r4.c		patch \| blob \| history
libgfortran/generated/product_r8.c		patch \| blob \| history
libgfortran/generated/spread_c10.c		patch \| blob \| history
libgfortran/generated/spread_c16.c		patch \| blob \| history
libgfortran/generated/spread_c4.c		patch \| blob \| history
libgfortran/generated/spread_c8.c		patch \| blob \| history
libgfortran/generated/spread_i1.c		patch \| blob \| history
libgfortran/generated/spread_i16.c		patch \| blob \| history
libgfortran/generated/spread_i2.c		patch \| blob \| history
libgfortran/generated/spread_i4.c		patch \| blob \| history
libgfortran/generated/spread_i8.c		patch \| blob \| history
libgfortran/generated/spread_r10.c		patch \| blob \| history
libgfortran/generated/spread_r16.c		patch \| blob \| history
libgfortran/generated/spread_r4.c		patch \| blob \| history
libgfortran/generated/spread_r8.c		patch \| blob \| history
libgfortran/generated/sum_c10.c		patch \| blob \| history
libgfortran/generated/sum_c16.c		patch \| blob \| history
libgfortran/generated/sum_c4.c		patch \| blob \| history
libgfortran/generated/sum_c8.c		patch \| blob \| history
libgfortran/generated/sum_i1.c		patch \| blob \| history
libgfortran/generated/sum_i16.c		patch \| blob \| history
libgfortran/generated/sum_i2.c		patch \| blob \| history
libgfortran/generated/sum_i4.c		patch \| blob \| history
libgfortran/generated/sum_i8.c		patch \| blob \| history
libgfortran/generated/sum_r10.c		patch \| blob \| history
libgfortran/generated/sum_r16.c		patch \| blob \| history
libgfortran/generated/sum_r4.c		patch \| blob \| history
libgfortran/generated/sum_r8.c		patch \| blob \| history
libgfortran/libgfortran.h		patch \| blob \| history
libgfortran/m4/iforeach.m4		patch \| blob \| history
libgfortran/m4/ifunction.m4		patch \| blob \| history
libgfortran/m4/ifunction_logical.m4		patch \| blob \| history
libgfortran/m4/matmul.m4		patch \| blob \| history
libgfortran/m4/matmull.m4		patch \| blob \| history
libgfortran/m4/spread.m4		patch \| blob \| history