OSDN Git Service

2008-09-06 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 6 Sep 2008 14:53:26 +0000 (14:53 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 6 Sep 2008 14:53:26 +0000 (14:53 +0000)
* 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@140060 138bc75d-0d04-0410-961f-82ee72b054a4

204 files changed:
libgfortran/ChangeLog
libgfortran/generated/all_l1.c
libgfortran/generated/all_l16.c
libgfortran/generated/all_l2.c
libgfortran/generated/all_l4.c
libgfortran/generated/all_l8.c
libgfortran/generated/any_l1.c
libgfortran/generated/any_l16.c
libgfortran/generated/any_l2.c
libgfortran/generated/any_l4.c
libgfortran/generated/any_l8.c
libgfortran/generated/count_16_l.c
libgfortran/generated/count_1_l.c
libgfortran/generated/count_2_l.c
libgfortran/generated/count_4_l.c
libgfortran/generated/count_8_l.c
libgfortran/generated/matmul_c10.c
libgfortran/generated/matmul_c16.c
libgfortran/generated/matmul_c4.c
libgfortran/generated/matmul_c8.c
libgfortran/generated/matmul_i1.c
libgfortran/generated/matmul_i16.c
libgfortran/generated/matmul_i2.c
libgfortran/generated/matmul_i4.c
libgfortran/generated/matmul_i8.c
libgfortran/generated/matmul_l16.c
libgfortran/generated/matmul_l4.c
libgfortran/generated/matmul_l8.c
libgfortran/generated/matmul_r10.c
libgfortran/generated/matmul_r16.c
libgfortran/generated/matmul_r4.c
libgfortran/generated/matmul_r8.c
libgfortran/generated/maxloc0_16_i1.c
libgfortran/generated/maxloc0_16_i16.c
libgfortran/generated/maxloc0_16_i2.c
libgfortran/generated/maxloc0_16_i4.c
libgfortran/generated/maxloc0_16_i8.c
libgfortran/generated/maxloc0_16_r10.c
libgfortran/generated/maxloc0_16_r16.c
libgfortran/generated/maxloc0_16_r4.c
libgfortran/generated/maxloc0_16_r8.c
libgfortran/generated/maxloc0_4_i1.c
libgfortran/generated/maxloc0_4_i16.c
libgfortran/generated/maxloc0_4_i2.c
libgfortran/generated/maxloc0_4_i4.c
libgfortran/generated/maxloc0_4_i8.c
libgfortran/generated/maxloc0_4_r10.c
libgfortran/generated/maxloc0_4_r16.c
libgfortran/generated/maxloc0_4_r4.c
libgfortran/generated/maxloc0_4_r8.c
libgfortran/generated/maxloc0_8_i1.c
libgfortran/generated/maxloc0_8_i16.c
libgfortran/generated/maxloc0_8_i2.c
libgfortran/generated/maxloc0_8_i4.c
libgfortran/generated/maxloc0_8_i8.c
libgfortran/generated/maxloc0_8_r10.c
libgfortran/generated/maxloc0_8_r16.c
libgfortran/generated/maxloc0_8_r4.c
libgfortran/generated/maxloc0_8_r8.c
libgfortran/generated/maxloc1_16_i1.c
libgfortran/generated/maxloc1_16_i16.c
libgfortran/generated/maxloc1_16_i2.c
libgfortran/generated/maxloc1_16_i4.c
libgfortran/generated/maxloc1_16_i8.c
libgfortran/generated/maxloc1_16_r10.c
libgfortran/generated/maxloc1_16_r16.c
libgfortran/generated/maxloc1_16_r4.c
libgfortran/generated/maxloc1_16_r8.c
libgfortran/generated/maxloc1_4_i1.c
libgfortran/generated/maxloc1_4_i16.c
libgfortran/generated/maxloc1_4_i2.c
libgfortran/generated/maxloc1_4_i4.c
libgfortran/generated/maxloc1_4_i8.c
libgfortran/generated/maxloc1_4_r10.c
libgfortran/generated/maxloc1_4_r16.c
libgfortran/generated/maxloc1_4_r4.c
libgfortran/generated/maxloc1_4_r8.c
libgfortran/generated/maxloc1_8_i1.c
libgfortran/generated/maxloc1_8_i16.c
libgfortran/generated/maxloc1_8_i2.c
libgfortran/generated/maxloc1_8_i4.c
libgfortran/generated/maxloc1_8_i8.c
libgfortran/generated/maxloc1_8_r10.c
libgfortran/generated/maxloc1_8_r16.c
libgfortran/generated/maxloc1_8_r4.c
libgfortran/generated/maxloc1_8_r8.c
libgfortran/generated/maxval_i1.c
libgfortran/generated/maxval_i16.c
libgfortran/generated/maxval_i2.c
libgfortran/generated/maxval_i4.c
libgfortran/generated/maxval_i8.c
libgfortran/generated/maxval_r10.c
libgfortran/generated/maxval_r16.c
libgfortran/generated/maxval_r4.c
libgfortran/generated/maxval_r8.c
libgfortran/generated/minloc0_16_i1.c
libgfortran/generated/minloc0_16_i16.c
libgfortran/generated/minloc0_16_i2.c
libgfortran/generated/minloc0_16_i4.c
libgfortran/generated/minloc0_16_i8.c
libgfortran/generated/minloc0_16_r10.c
libgfortran/generated/minloc0_16_r16.c
libgfortran/generated/minloc0_16_r4.c
libgfortran/generated/minloc0_16_r8.c
libgfortran/generated/minloc0_4_i1.c
libgfortran/generated/minloc0_4_i16.c
libgfortran/generated/minloc0_4_i2.c
libgfortran/generated/minloc0_4_i4.c
libgfortran/generated/minloc0_4_i8.c
libgfortran/generated/minloc0_4_r10.c
libgfortran/generated/minloc0_4_r16.c
libgfortran/generated/minloc0_4_r4.c
libgfortran/generated/minloc0_4_r8.c
libgfortran/generated/minloc0_8_i1.c
libgfortran/generated/minloc0_8_i16.c
libgfortran/generated/minloc0_8_i2.c
libgfortran/generated/minloc0_8_i4.c
libgfortran/generated/minloc0_8_i8.c
libgfortran/generated/minloc0_8_r10.c
libgfortran/generated/minloc0_8_r16.c
libgfortran/generated/minloc0_8_r4.c
libgfortran/generated/minloc0_8_r8.c
libgfortran/generated/minloc1_16_i1.c
libgfortran/generated/minloc1_16_i16.c
libgfortran/generated/minloc1_16_i2.c
libgfortran/generated/minloc1_16_i4.c
libgfortran/generated/minloc1_16_i8.c
libgfortran/generated/minloc1_16_r10.c
libgfortran/generated/minloc1_16_r16.c
libgfortran/generated/minloc1_16_r4.c
libgfortran/generated/minloc1_16_r8.c
libgfortran/generated/minloc1_4_i1.c
libgfortran/generated/minloc1_4_i16.c
libgfortran/generated/minloc1_4_i2.c
libgfortran/generated/minloc1_4_i4.c
libgfortran/generated/minloc1_4_i8.c
libgfortran/generated/minloc1_4_r10.c
libgfortran/generated/minloc1_4_r16.c
libgfortran/generated/minloc1_4_r4.c
libgfortran/generated/minloc1_4_r8.c
libgfortran/generated/minloc1_8_i1.c
libgfortran/generated/minloc1_8_i16.c
libgfortran/generated/minloc1_8_i2.c
libgfortran/generated/minloc1_8_i4.c
libgfortran/generated/minloc1_8_i8.c
libgfortran/generated/minloc1_8_r10.c
libgfortran/generated/minloc1_8_r16.c
libgfortran/generated/minloc1_8_r4.c
libgfortran/generated/minloc1_8_r8.c
libgfortran/generated/minval_i1.c
libgfortran/generated/minval_i16.c
libgfortran/generated/minval_i2.c
libgfortran/generated/minval_i4.c
libgfortran/generated/minval_i8.c
libgfortran/generated/minval_r10.c
libgfortran/generated/minval_r16.c
libgfortran/generated/minval_r4.c
libgfortran/generated/minval_r8.c
libgfortran/generated/product_c10.c
libgfortran/generated/product_c16.c
libgfortran/generated/product_c4.c
libgfortran/generated/product_c8.c
libgfortran/generated/product_i1.c
libgfortran/generated/product_i16.c
libgfortran/generated/product_i2.c
libgfortran/generated/product_i4.c
libgfortran/generated/product_i8.c
libgfortran/generated/product_r10.c
libgfortran/generated/product_r16.c
libgfortran/generated/product_r4.c
libgfortran/generated/product_r8.c
libgfortran/generated/spread_c10.c
libgfortran/generated/spread_c16.c
libgfortran/generated/spread_c4.c
libgfortran/generated/spread_c8.c
libgfortran/generated/spread_i1.c
libgfortran/generated/spread_i16.c
libgfortran/generated/spread_i2.c
libgfortran/generated/spread_i4.c
libgfortran/generated/spread_i8.c
libgfortran/generated/spread_r10.c
libgfortran/generated/spread_r16.c
libgfortran/generated/spread_r4.c
libgfortran/generated/spread_r8.c
libgfortran/generated/sum_c10.c
libgfortran/generated/sum_c16.c
libgfortran/generated/sum_c4.c
libgfortran/generated/sum_c8.c
libgfortran/generated/sum_i1.c
libgfortran/generated/sum_i16.c
libgfortran/generated/sum_i2.c
libgfortran/generated/sum_i4.c
libgfortran/generated/sum_i8.c
libgfortran/generated/sum_r10.c
libgfortran/generated/sum_r16.c
libgfortran/generated/sum_r4.c
libgfortran/generated/sum_r8.c
libgfortran/libgfortran.h
libgfortran/m4/iforeach.m4
libgfortran/m4/ifunction.m4
libgfortran/m4/ifunction_logical.m4
libgfortran/m4/matmul.m4
libgfortran/m4/matmull.m4
libgfortran/m4/spread.m4

index 1e65eb1..30b91d1 100644 (file)
@@ -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
index e8577dc..e747481 100644 (file)
@@ -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++)
            {
index 59b0cfa..05c24f0 100644 (file)
@@ -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++)
            {
index 82ab0ca..3e03bcb 100644 (file)
@@ -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++)
            {
index d65adcd..dab9000 100644 (file)
@@ -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++)
            {
index fdf20a2..18c900c 100644 (file)
@@ -127,7 +127,7 @@ all_l8 (gfc_array_l8 * const restrict retarray,
                       (long int) GFC_DESCRIPTOR_RANK (retarray),
                       (long int) rank);
 
-      if (compile_options.bounds_check)
+      if (unlikely (compile_options.bounds_check))
        {
          for (n=0; n < rank; n++)
            {
index cfefe47..3b2be3e 100644 (file)
@@ -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++)
            {
index c3297ac..bbe9bc3 100644 (file)
@@ -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++)
            {
index daef183..ad2a5d0 100644 (file)
@@ -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++)
            {
index d12c74f..cb9d339 100644 (file)
@@ -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++)
            {
index bb65480..c7fe8f4 100644 (file)
@@ -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++)
            {
index 7a86faf..b8946e7 100644 (file)
@@ -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++)
            {
index 67c9dbc..c803a0d 100644 (file)
@@ -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++)
            {
index d40d0dc..12a72f0 100644 (file)
@@ -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++)
            {
index 8bd1c8f..ddc42f8 100644 (file)
@@ -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++)
            {
index 078a33f..63c7aa4 100644 (file)
@@ -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++)
            {
index 0e37862..bc24557 100644 (file)
@@ -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;
 
index 34cc51d..bfe553e 100644 (file)
@@ -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;
 
index fdfea1d..dc67fc4 100644 (file)
@@ -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;
 
index 9d66949..8b05b4f 100644 (file)
@@ -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;
 
index 34fd7c5..71572d7 100644 (file)
@@ -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;
 
index 0c7c5d8..f6e570d 100644 (file)
@@ -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;
 
index 5d55847..0ed9df0 100644 (file)
@@ -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;
 
index a80f149..ba5f24a 100644 (file)
@@ -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;
 
index 91499c7..255094c 100644 (file)
@@ -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;
 
index b604edf..02b6e14 100644 (file)
@@ -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;
 
index 5aed0fe..159b1f3 100644 (file)
@@ -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;
 
index 26baad3..16e7b36 100644 (file)
@@ -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;
 
index 931e2bd..d764450 100644 (file)
@@ -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;
 
index 16ec175..1d0c31a 100644 (file)
@@ -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;
 
index 47d9764..8224862 100644 (file)
@@ -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;
 
index a359ffd..4134fad 100644 (file)
@@ -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;
 
index 6be5448..2ff0b6d 100644 (file)
@@ -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;
index 777d3d0..b3c5cc2 100644 (file)
@@ -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;
index 11b1478..f403471 100644 (file)
@@ -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;
index 0c1ff86..c6bcc27 100644 (file)
@@ -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;
index b2098a7..237b9fe 100644 (file)
@@ -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;
index 1773c67..479191c 100644 (file)
@@ -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;
index 3eeaefa..02e4bf2 100644 (file)
@@ -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;
index 09e97bc..710edce 100644 (file)
@@ -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;
index 764cb57..d91c8d2 100644 (file)
@@ -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;
index 45d175d..8a62759 100644 (file)
@@ -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;
index a346540..2e3a1ea 100644 (file)
@@ -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;
index 36a1da3..34317c9 100644 (file)
@@ -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;
index 398ffb5..e65737d 100644 (file)
@@ -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;
index dcf7481..695ef0f 100644 (file)
@@ -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;
index 1f22f07..c0fea80 100644 (file)
@@ -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;
index 71f171c..e872949 100644 (file)
@@ -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;
index d52e483..0267f97 100644 (file)
@@ -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;
index 5030481..43131b3 100644 (file)
@@ -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;
index 1eabde6..f20eda2 100644 (file)
@@ -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;
index 6630c06..27cfe2e 100644 (file)
@@ -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;
index bc438e5..75bfe6d 100644 (file)
@@ -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;
index 7cac281..e04f0cb 100644 (file)
@@ -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;
index 15798f8..8218951 100644 (file)
@@ -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;
index fc393e9..7e77fad 100644 (file)
@@ -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;
index 99d31ff..9f12cca 100644 (file)
@@ -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;
index ced61ae..b7c3eb5 100644 (file)
@@ -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;
index 8222c5c..e59f813 100644 (file)
@@ -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;
index 7ccceda..fff25ed 100644 (file)
@@ -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++)
            {
index d7126af..9c8b5f9 100644 (file)
@@ -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++)
            {
index 278ef5b..e341d9b 100644 (file)
@@ -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++)
            {
index 4e2e731..af1802e 100644 (file)
@@ -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++)
            {
index 1a9eb51..c449fc4 100644 (file)
@@ -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++)
            {
index 79805f5..729b253 100644 (file)
@@ -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++)
            {
index 49b27c3..88c7e39 100644 (file)
@@ -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++)
            {
index cb4cc17..c2fdd89 100644 (file)
@@ -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++)
            {
index bddedbe..e4c8efe 100644 (file)
@@ -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++)
            {
index 3a1ae07..d34c22d 100644 (file)
@@ -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++)
            {
index d9e1b3e..ec83fed 100644 (file)
@@ -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++)
            {
index dedb28b..bd3f158 100644 (file)
@@ -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++)
            {
index 12bad84..bacdbb4 100644 (file)
@@ -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++)
            {
index 2215521..a4304e4 100644 (file)
@@ -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++)
            {
index 0ed1df2..693b8b5 100644 (file)
@@ -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++)
            {
index ae1a4f1..cfae022 100644 (file)
@@ -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++)
            {
index 6b16564..31eaf8e 100644 (file)
@@ -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++)
            {
index bbc6f9e..f75a98e 100644 (file)
@@ -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++)
            {
index 85c44f9..7814323 100644 (file)
@@ -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++)
            {
index 18d1ad1..bff447f 100644 (file)
@@ -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++)
            {
index 121cc0f..eb9b59a 100644 (file)
@@ -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++)
            {
index 8386a29..469a480 100644 (file)
@@ -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++)
            {
index ed71c49..c5b08e3 100644 (file)
@@ -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++)
            {
index a7b71bc..61a6ecc 100644 (file)
@@ -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++)
            {
index 9fd0b46..f397661 100644 (file)
@@ -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++)
            {
index 79f1103..c192e3b 100644 (file)
@@ -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++)
            {
index b0ab760..ef5d86f 100644 (file)
@@ -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++)
            {
index a7288eb..961c32a 100644 (file)
@@ -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++)
            {
index d50ab6f..03cd671 100644 (file)
@@ -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++)
            {
index c49b181..8b87f6b 100644 (file)
@@ -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++)
            {
index 354c86d..b35fa7b 100644 (file)
@@ -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++)
            {
index 91a2b00..2c407b4 100644 (file)
@@ -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++)
            {
index c959a80..03aa623 100644 (file)
@@ -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++)
            {
index a05808d..98bce6e 100644 (file)
@@ -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++)
            {
index a00468b..c57d558 100644 (file)
@@ -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++)
            {
index 1c9e41d..2afe754 100644 (file)
@@ -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++)
            {
index 41924a3..401b0a1 100644 (file)
@@ -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;
index 655d587..bd96534 100644 (file)
@@ -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;
index bca08a5..329d8b1 100644 (file)
@@ -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;
index 50105af..4afea1e 100644 (file)
@@ -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;
index d12663f..9492ecd 100644 (file)
@@ -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;
index 9c93f14..002fb8a 100644 (file)
@@ -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;
index 83624d2..d950e20 100644 (file)
@@ -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;
index 4225805..7fbb2c0 100644 (file)
@@ -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;
index 74c5358..8348525 100644 (file)
@@ -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;
index 53ddea2..50dc87d 100644 (file)
@@ -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;
index 88c5a0a..ab7fd86 100644 (file)
@@ -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;
index 2db4557..cd9ec26 100644 (file)
@@ -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;
index 49e74f5..9321108 100644 (file)
@@ -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;
index 2be844f..8a2256b 100644 (file)
@@ -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;
index a1d390c..792a9e1 100644 (file)
@@ -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;
index e4ecd12..01424dc 100644 (file)
@@ -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;
index a115c01..88b4917 100644 (file)
@@ -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;
index 6162cfd..5d35314 100644 (file)
@@ -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;
index b755ed7..a70533e 100644 (file)
@@ -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;
index 7290603..364d75d 100644 (file)
@@ -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;
index 70cc870..7b5d8ab 100644 (file)
@@ -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;
index 5cd60c3..9f40ec4 100644 (file)
@@ -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;
index 2c2c2d2..36306fb 100644 (file)
@@ -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;
index 2b2f3cf..b085afd 100644 (file)
@@ -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;
index a93e1da..7a78fc5 100644 (file)
@@ -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;
index 45d2eba..53eb53e 100644 (file)
@@ -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;
index f404115..f583f8b 100644 (file)
@@ -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;
index f95aa90..165646f 100644 (file)
@@ -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++)
            {
index 9a5da30..b6e1cb5 100644 (file)
@@ -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++)
            {
index ad282f9..8b13892 100644 (file)
@@ -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++)
            {
index 7eb382d..e97b0dc 100644 (file)
@@ -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++)
            {
index 7995d26..3760b20 100644 (file)
@@ -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++)
            {
index c7da9d1..abc5689 100644 (file)
@@ -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++)
            {
index c24cb81..3e2e8fa 100644 (file)
@@ -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++)
            {
index 37cda9b..542932f 100644 (file)
@@ -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++)
            {
index b0bbf82..5d96aea 100644 (file)
@@ -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++)
            {
index eab1b40..daddbbf 100644 (file)
@@ -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++)
            {
index 3446e4e..4861f18 100644 (file)
@@ -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++)
            {
index 1e2a8c6..09e1520 100644 (file)
@@ -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++)
            {
index 6e4b137..d7c0729 100644 (file)
@@ -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++)
            {
index 5295a10..10ffa36 100644 (file)
@@ -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++)
            {
index a020a99..67d5b03 100644 (file)
@@ -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++)
            {
index 19bf03c..0358183 100644 (file)
@@ -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++)
            {
index ba54897..f029ecb 100644 (file)
@@ -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++)
            {
index 07fb27a..8b59728 100644 (file)
@@ -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++)
            {
index 409a961..e56b156 100644 (file)
@@ -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++)
            {
index 47fc666..82e550e 100644 (file)
@@ -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++)
            {
index 2208017..2812b2a 100644 (file)
@@ -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++)
            {
index 71df4e6..6a8505e 100644 (file)
@@ -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++)
            {
index d4e471a..efc7ef0 100644 (file)
@@ -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++)
            {
index 6163239..e3c727a 100644 (file)
@@ -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++)
            {
index 3e0416a..734a3a8 100644 (file)
@@ -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++)
            {
index c6a6ad4..253dc86 100644 (file)
@@ -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++)
            {
index 8a01e3e..dc9288e 100644 (file)
@@ -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++)
            {
index 719a049..c0c9fff 100644 (file)
@@ -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++)
            {
index c4f699b..7abe358 100644 (file)
@@ -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++)
            {
index 2ff292f..c782c36 100644 (file)
@@ -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++)
            {
index 96bfe32..13506a2 100644 (file)
@@ -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++)
            {
index 1682dd2..dbad3ce 100644 (file)
@@ -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++)
            {
index fa9e636..6091a2e 100644 (file)
@@ -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++)
            {
index 9561caa..87518bf 100644 (file)
@@ -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++)
            {
index ac048ee..8511795 100644 (file)
@@ -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++)
            {
index 21ecb3c..fcfbdc7 100644 (file)
@@ -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++)
            {
index 66a9c05..7ff7270 100644 (file)
@@ -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++)
            {
index ec2acb4..9f9d6c9 100644 (file)
@@ -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++)
            {
index bd52eb9..8a1f7a5 100644 (file)
@@ -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++)
            {
index c124355..e8416b3 100644 (file)
@@ -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))
     &nbs