diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 1e65eb111d88..30b91d10f908 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,211 @@ +2008-09-06 Tobias Burnus + + * 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 PR libfortran/37301 diff --git a/libgfortran/generated/all_l1.c b/libgfortran/generated/all_l1.c index e8577dcf3396..e74748142f4c 100644 --- a/libgfortran/generated/all_l1.c +++ b/libgfortran/generated/all_l1.c @@ -127,7 +127,7 @@ all_l1 (gfc_array_l1 * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/all_l16.c b/libgfortran/generated/all_l16.c index 59b0cfa513a1..05c24f0d4227 100644 --- a/libgfortran/generated/all_l16.c +++ b/libgfortran/generated/all_l16.c @@ -127,7 +127,7 @@ all_l16 (gfc_array_l16 * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/all_l2.c b/libgfortran/generated/all_l2.c index 82ab0ca20726..3e03bcb24e40 100644 --- a/libgfortran/generated/all_l2.c +++ b/libgfortran/generated/all_l2.c @@ -127,7 +127,7 @@ all_l2 (gfc_array_l2 * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c index d65adcd9fc57..dab900061d05 100644 --- a/libgfortran/generated/all_l4.c +++ b/libgfortran/generated/all_l4.c @@ -127,7 +127,7 @@ all_l4 (gfc_array_l4 * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c index fdf20a2f11bf..18c900c15718 100644 --- a/libgfortran/generated/all_l8.c +++ b/libgfortran/generated/all_l8.c @@ -127,7 +127,7 @@ all_l8 (gfc_array_l8 * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/any_l1.c b/libgfortran/generated/any_l1.c index cfefe47a2680..3b2be3ebbe61 100644 --- a/libgfortran/generated/any_l1.c +++ b/libgfortran/generated/any_l1.c @@ -127,7 +127,7 @@ any_l1 (gfc_array_l1 * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/any_l16.c b/libgfortran/generated/any_l16.c index c3297ac5c7f7..bbe9bc3c69a8 100644 --- a/libgfortran/generated/any_l16.c +++ b/libgfortran/generated/any_l16.c @@ -127,7 +127,7 @@ any_l16 (gfc_array_l16 * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/any_l2.c b/libgfortran/generated/any_l2.c index daef183cb199..ad2a5d02226f 100644 --- a/libgfortran/generated/any_l2.c +++ b/libgfortran/generated/any_l2.c @@ -127,7 +127,7 @@ any_l2 (gfc_array_l2 * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/any_l4.c b/libgfortran/generated/any_l4.c index d12c74f87c0b..cb9d339d10f4 100644 --- a/libgfortran/generated/any_l4.c +++ b/libgfortran/generated/any_l4.c @@ -127,7 +127,7 @@ any_l4 (gfc_array_l4 * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/any_l8.c b/libgfortran/generated/any_l8.c index bb65480d67cf..c7fe8f4fa5c1 100644 --- a/libgfortran/generated/any_l8.c +++ b/libgfortran/generated/any_l8.c @@ -127,7 +127,7 @@ any_l8 (gfc_array_l8 * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/count_16_l.c b/libgfortran/generated/count_16_l.c index 7a86fafa99a7..b8946e727926 100644 --- a/libgfortran/generated/count_16_l.c +++ b/libgfortran/generated/count_16_l.c @@ -127,7 +127,7 @@ count_16_l (gfc_array_i16 * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/count_1_l.c b/libgfortran/generated/count_1_l.c index 67c9dbcf5d0b..c803a0d26d6e 100644 --- a/libgfortran/generated/count_1_l.c +++ b/libgfortran/generated/count_1_l.c @@ -127,7 +127,7 @@ count_1_l (gfc_array_i1 * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/count_2_l.c b/libgfortran/generated/count_2_l.c index d40d0dcea524..12a72f090d81 100644 --- a/libgfortran/generated/count_2_l.c +++ b/libgfortran/generated/count_2_l.c @@ -127,7 +127,7 @@ count_2_l (gfc_array_i2 * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/count_4_l.c b/libgfortran/generated/count_4_l.c index 8bd1c8f16eae..ddc42f8ae004 100644 --- a/libgfortran/generated/count_4_l.c +++ b/libgfortran/generated/count_4_l.c @@ -127,7 +127,7 @@ count_4_l (gfc_array_i4 * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/count_8_l.c b/libgfortran/generated/count_8_l.c index 078a33fa5aa9..63c7aa4bcb2a 100644 --- a/libgfortran/generated/count_8_l.c +++ b/libgfortran/generated/count_8_l.c @@ -127,7 +127,7 @@ count_8_l (gfc_array_i8 * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/matmul_c10.c b/libgfortran/generated/matmul_c10.c index 0e378626f960..bc24557c3d11 100644 --- a/libgfortran/generated/matmul_c10.c +++ b/libgfortran/generated/matmul_c10.c @@ -135,7 +135,7 @@ matmul_c10 (gfc_array_c10 * const restrict retarray, = internal_malloc_size (sizeof (GFC_COMPLEX_10) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/matmul_c16.c b/libgfortran/generated/matmul_c16.c index 34cc51dbd78b..bfe553eb005f 100644 --- a/libgfortran/generated/matmul_c16.c +++ b/libgfortran/generated/matmul_c16.c @@ -135,7 +135,7 @@ matmul_c16 (gfc_array_c16 * const restrict retarray, = internal_malloc_size (sizeof (GFC_COMPLEX_16) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/matmul_c4.c b/libgfortran/generated/matmul_c4.c index fdfea1df9554..dc67fc4897f7 100644 --- a/libgfortran/generated/matmul_c4.c +++ b/libgfortran/generated/matmul_c4.c @@ -135,7 +135,7 @@ matmul_c4 (gfc_array_c4 * const restrict retarray, = internal_malloc_size (sizeof (GFC_COMPLEX_4) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/matmul_c8.c b/libgfortran/generated/matmul_c8.c index 9d6694922f10..8b05b4f8756c 100644 --- a/libgfortran/generated/matmul_c8.c +++ b/libgfortran/generated/matmul_c8.c @@ -135,7 +135,7 @@ matmul_c8 (gfc_array_c8 * const restrict retarray, = internal_malloc_size (sizeof (GFC_COMPLEX_8) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/matmul_i1.c b/libgfortran/generated/matmul_i1.c index 34fd7c51b78b..71572d76d4aa 100644 --- a/libgfortran/generated/matmul_i1.c +++ b/libgfortran/generated/matmul_i1.c @@ -135,7 +135,7 @@ matmul_i1 (gfc_array_i1 * const restrict retarray, = internal_malloc_size (sizeof (GFC_INTEGER_1) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/matmul_i16.c b/libgfortran/generated/matmul_i16.c index 0c7c5d8f3966..f6e570d78bd6 100644 --- a/libgfortran/generated/matmul_i16.c +++ b/libgfortran/generated/matmul_i16.c @@ -135,7 +135,7 @@ matmul_i16 (gfc_array_i16 * const restrict retarray, = internal_malloc_size (sizeof (GFC_INTEGER_16) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/matmul_i2.c b/libgfortran/generated/matmul_i2.c index 5d55847edcea..0ed9df01bd23 100644 --- a/libgfortran/generated/matmul_i2.c +++ b/libgfortran/generated/matmul_i2.c @@ -135,7 +135,7 @@ matmul_i2 (gfc_array_i2 * const restrict retarray, = internal_malloc_size (sizeof (GFC_INTEGER_2) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/matmul_i4.c b/libgfortran/generated/matmul_i4.c index a80f14940c81..ba5f24adaa13 100644 --- a/libgfortran/generated/matmul_i4.c +++ b/libgfortran/generated/matmul_i4.c @@ -135,7 +135,7 @@ matmul_i4 (gfc_array_i4 * const restrict retarray, = internal_malloc_size (sizeof (GFC_INTEGER_4) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/matmul_i8.c b/libgfortran/generated/matmul_i8.c index 91499c793e6b..255094c357c0 100644 --- a/libgfortran/generated/matmul_i8.c +++ b/libgfortran/generated/matmul_i8.c @@ -135,7 +135,7 @@ matmul_i8 (gfc_array_i8 * const restrict retarray, = internal_malloc_size (sizeof (GFC_INTEGER_8) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/matmul_l16.c b/libgfortran/generated/matmul_l16.c index b604edfb2ca9..02b6e142ad4b 100644 --- a/libgfortran/generated/matmul_l16.c +++ b/libgfortran/generated/matmul_l16.c @@ -99,7 +99,7 @@ matmul_l16 (gfc_array_l16 * const restrict retarray, = internal_malloc_size (sizeof (GFC_LOGICAL_16) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/matmul_l4.c b/libgfortran/generated/matmul_l4.c index 5aed0fe2ba07..159b1f31f9e2 100644 --- a/libgfortran/generated/matmul_l4.c +++ b/libgfortran/generated/matmul_l4.c @@ -99,7 +99,7 @@ matmul_l4 (gfc_array_l4 * const restrict retarray, = internal_malloc_size (sizeof (GFC_LOGICAL_4) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/matmul_l8.c b/libgfortran/generated/matmul_l8.c index 26baad321366..16e7b36ec6b6 100644 --- a/libgfortran/generated/matmul_l8.c +++ b/libgfortran/generated/matmul_l8.c @@ -99,7 +99,7 @@ matmul_l8 (gfc_array_l8 * const restrict retarray, = internal_malloc_size (sizeof (GFC_LOGICAL_8) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/matmul_r10.c b/libgfortran/generated/matmul_r10.c index 931e2bdc0f02..d76445065787 100644 --- a/libgfortran/generated/matmul_r10.c +++ b/libgfortran/generated/matmul_r10.c @@ -135,7 +135,7 @@ matmul_r10 (gfc_array_r10 * const restrict retarray, = internal_malloc_size (sizeof (GFC_REAL_10) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/matmul_r16.c b/libgfortran/generated/matmul_r16.c index 16ec175be0cf..1d0c31af998a 100644 --- a/libgfortran/generated/matmul_r16.c +++ b/libgfortran/generated/matmul_r16.c @@ -135,7 +135,7 @@ matmul_r16 (gfc_array_r16 * const restrict retarray, = internal_malloc_size (sizeof (GFC_REAL_16) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/matmul_r4.c b/libgfortran/generated/matmul_r4.c index 47d976415d0b..822486296386 100644 --- a/libgfortran/generated/matmul_r4.c +++ b/libgfortran/generated/matmul_r4.c @@ -135,7 +135,7 @@ matmul_r4 (gfc_array_r4 * const restrict retarray, = internal_malloc_size (sizeof (GFC_REAL_4) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/matmul_r8.c b/libgfortran/generated/matmul_r8.c index a359ffd8fd3d..4134fad3f6db 100644 --- a/libgfortran/generated/matmul_r8.c +++ b/libgfortran/generated/matmul_r8.c @@ -135,7 +135,7 @@ matmul_r8 (gfc_array_r8 * const restrict retarray, = internal_malloc_size (sizeof (GFC_REAL_8) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/generated/maxloc0_16_i1.c b/libgfortran/generated/maxloc0_16_i1.c index 6be5448fc639..2ff0b6d55ec7 100644 --- a/libgfortran/generated/maxloc0_16_i1.c +++ b/libgfortran/generated/maxloc0_16_i1.c @@ -69,7 +69,7 @@ maxloc0_16_i1 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_16_i1 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_16_i1 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_16_i16.c b/libgfortran/generated/maxloc0_16_i16.c index 777d3d02e9d9..b3c5cc294148 100644 --- a/libgfortran/generated/maxloc0_16_i16.c +++ b/libgfortran/generated/maxloc0_16_i16.c @@ -69,7 +69,7 @@ maxloc0_16_i16 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_16_i16 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_16_i16 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_16_i2.c b/libgfortran/generated/maxloc0_16_i2.c index 11b14787962e..f403471d229e 100644 --- a/libgfortran/generated/maxloc0_16_i2.c +++ b/libgfortran/generated/maxloc0_16_i2.c @@ -69,7 +69,7 @@ maxloc0_16_i2 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_16_i2 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_16_i2 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_16_i4.c b/libgfortran/generated/maxloc0_16_i4.c index 0c1ff86e9b02..c6bcc276712e 100644 --- a/libgfortran/generated/maxloc0_16_i4.c +++ b/libgfortran/generated/maxloc0_16_i4.c @@ -69,7 +69,7 @@ maxloc0_16_i4 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_16_i4 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_16_i4 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_16_i8.c b/libgfortran/generated/maxloc0_16_i8.c index b2098a737018..237b9fefd83e 100644 --- a/libgfortran/generated/maxloc0_16_i8.c +++ b/libgfortran/generated/maxloc0_16_i8.c @@ -69,7 +69,7 @@ maxloc0_16_i8 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_16_i8 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_16_i8 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_16_r10.c b/libgfortran/generated/maxloc0_16_r10.c index 1773c679d6d1..479191c0792e 100644 --- a/libgfortran/generated/maxloc0_16_r10.c +++ b/libgfortran/generated/maxloc0_16_r10.c @@ -69,7 +69,7 @@ maxloc0_16_r10 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_16_r10 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_16_r10 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_16_r16.c b/libgfortran/generated/maxloc0_16_r16.c index 3eeaefa0a0b6..02e4bf28109f 100644 --- a/libgfortran/generated/maxloc0_16_r16.c +++ b/libgfortran/generated/maxloc0_16_r16.c @@ -69,7 +69,7 @@ maxloc0_16_r16 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_16_r16 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_16_r16 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_16_r4.c b/libgfortran/generated/maxloc0_16_r4.c index 09e97bcb378e..710edce3aa9e 100644 --- a/libgfortran/generated/maxloc0_16_r4.c +++ b/libgfortran/generated/maxloc0_16_r4.c @@ -69,7 +69,7 @@ maxloc0_16_r4 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_16_r4 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_16_r4 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_16_r8.c b/libgfortran/generated/maxloc0_16_r8.c index 764cb57a16e0..d91c8d21839f 100644 --- a/libgfortran/generated/maxloc0_16_r8.c +++ b/libgfortran/generated/maxloc0_16_r8.c @@ -69,7 +69,7 @@ maxloc0_16_r8 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_16_r8 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_16_r8 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_4_i1.c b/libgfortran/generated/maxloc0_4_i1.c index 45d175d00aff..8a6275919a3d 100644 --- a/libgfortran/generated/maxloc0_4_i1.c +++ b/libgfortran/generated/maxloc0_4_i1.c @@ -69,7 +69,7 @@ maxloc0_4_i1 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_4_i1 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_4_i1 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_4_i16.c b/libgfortran/generated/maxloc0_4_i16.c index a34654066f88..2e3a1ea786f5 100644 --- a/libgfortran/generated/maxloc0_4_i16.c +++ b/libgfortran/generated/maxloc0_4_i16.c @@ -69,7 +69,7 @@ maxloc0_4_i16 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_4_i16 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_4_i16 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_4_i2.c b/libgfortran/generated/maxloc0_4_i2.c index 36a1da392905..34317c975254 100644 --- a/libgfortran/generated/maxloc0_4_i2.c +++ b/libgfortran/generated/maxloc0_4_i2.c @@ -69,7 +69,7 @@ maxloc0_4_i2 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_4_i2 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_4_i2 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_4_i4.c b/libgfortran/generated/maxloc0_4_i4.c index 398ffb55dec0..e65737da2151 100644 --- a/libgfortran/generated/maxloc0_4_i4.c +++ b/libgfortran/generated/maxloc0_4_i4.c @@ -69,7 +69,7 @@ maxloc0_4_i4 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_4_i4 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_4_i4 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_4_i8.c b/libgfortran/generated/maxloc0_4_i8.c index dcf748109893..695ef0f93c52 100644 --- a/libgfortran/generated/maxloc0_4_i8.c +++ b/libgfortran/generated/maxloc0_4_i8.c @@ -69,7 +69,7 @@ maxloc0_4_i8 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_4_i8 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_4_i8 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_4_r10.c b/libgfortran/generated/maxloc0_4_r10.c index 1f22f07e86c7..c0fea80e69c8 100644 --- a/libgfortran/generated/maxloc0_4_r10.c +++ b/libgfortran/generated/maxloc0_4_r10.c @@ -69,7 +69,7 @@ maxloc0_4_r10 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_4_r10 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_4_r10 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_4_r16.c b/libgfortran/generated/maxloc0_4_r16.c index 71f171c64bb2..e872949c8f01 100644 --- a/libgfortran/generated/maxloc0_4_r16.c +++ b/libgfortran/generated/maxloc0_4_r16.c @@ -69,7 +69,7 @@ maxloc0_4_r16 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_4_r16 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_4_r16 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_4_r4.c b/libgfortran/generated/maxloc0_4_r4.c index d52e48360779..0267f970643a 100644 --- a/libgfortran/generated/maxloc0_4_r4.c +++ b/libgfortran/generated/maxloc0_4_r4.c @@ -69,7 +69,7 @@ maxloc0_4_r4 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_4_r4 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_4_r4 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_4_r8.c b/libgfortran/generated/maxloc0_4_r8.c index 50304818801d..43131b30a64a 100644 --- a/libgfortran/generated/maxloc0_4_r8.c +++ b/libgfortran/generated/maxloc0_4_r8.c @@ -69,7 +69,7 @@ maxloc0_4_r8 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_4_r8 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_4_r8 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_8_i1.c b/libgfortran/generated/maxloc0_8_i1.c index 1eabde6883d2..f20eda20ac88 100644 --- a/libgfortran/generated/maxloc0_8_i1.c +++ b/libgfortran/generated/maxloc0_8_i1.c @@ -69,7 +69,7 @@ maxloc0_8_i1 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_8_i1 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_8_i1 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_8_i16.c b/libgfortran/generated/maxloc0_8_i16.c index 6630c06171f9..27cfe2e3c9e8 100644 --- a/libgfortran/generated/maxloc0_8_i16.c +++ b/libgfortran/generated/maxloc0_8_i16.c @@ -69,7 +69,7 @@ maxloc0_8_i16 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_8_i16 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_8_i16 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_8_i2.c b/libgfortran/generated/maxloc0_8_i2.c index bc438e550635..75bfe6d898a3 100644 --- a/libgfortran/generated/maxloc0_8_i2.c +++ b/libgfortran/generated/maxloc0_8_i2.c @@ -69,7 +69,7 @@ maxloc0_8_i2 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_8_i2 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_8_i2 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_8_i4.c b/libgfortran/generated/maxloc0_8_i4.c index 7cac28157025..e04f0cb49e90 100644 --- a/libgfortran/generated/maxloc0_8_i4.c +++ b/libgfortran/generated/maxloc0_8_i4.c @@ -69,7 +69,7 @@ maxloc0_8_i4 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_8_i4 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_8_i4 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_8_i8.c b/libgfortran/generated/maxloc0_8_i8.c index 15798f831503..8218951d3a17 100644 --- a/libgfortran/generated/maxloc0_8_i8.c +++ b/libgfortran/generated/maxloc0_8_i8.c @@ -69,7 +69,7 @@ maxloc0_8_i8 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_8_i8 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_8_i8 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_8_r10.c b/libgfortran/generated/maxloc0_8_r10.c index fc393e9552c5..7e77fadad5f6 100644 --- a/libgfortran/generated/maxloc0_8_r10.c +++ b/libgfortran/generated/maxloc0_8_r10.c @@ -69,7 +69,7 @@ maxloc0_8_r10 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_8_r10 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_8_r10 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_8_r16.c b/libgfortran/generated/maxloc0_8_r16.c index 99d31ff30773..9f12cca6d100 100644 --- a/libgfortran/generated/maxloc0_8_r16.c +++ b/libgfortran/generated/maxloc0_8_r16.c @@ -69,7 +69,7 @@ maxloc0_8_r16 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_8_r16 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_8_r16 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_8_r4.c b/libgfortran/generated/maxloc0_8_r4.c index ced61aec3b94..b7c3eb583d39 100644 --- a/libgfortran/generated/maxloc0_8_r4.c +++ b/libgfortran/generated/maxloc0_8_r4.c @@ -69,7 +69,7 @@ maxloc0_8_r4 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_8_r4 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_8_r4 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc0_8_r8.c b/libgfortran/generated/maxloc0_8_r8.c index 8222c5c02f88..e59f813b8601 100644 --- a/libgfortran/generated/maxloc0_8_r8.c +++ b/libgfortran/generated/maxloc0_8_r8.c @@ -69,7 +69,7 @@ maxloc0_8_r8 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mmaxloc0_8_r8 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ smaxloc0_8_r8 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c index 7cccedae55b7..fff25ed61009 100644 --- a/libgfortran/generated/maxloc1_16_i1.c +++ b/libgfortran/generated/maxloc1_16_i1.c @@ -124,7 +124,7 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c index d7126afbcce0..9c8b5f929402 100644 --- a/libgfortran/generated/maxloc1_16_i16.c +++ b/libgfortran/generated/maxloc1_16_i16.c @@ -124,7 +124,7 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c index 278ef5b5eb93..e341d9b91229 100644 --- a/libgfortran/generated/maxloc1_16_i2.c +++ b/libgfortran/generated/maxloc1_16_i2.c @@ -124,7 +124,7 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c index 4e2e73114d3e..af1802eb03a9 100644 --- a/libgfortran/generated/maxloc1_16_i4.c +++ b/libgfortran/generated/maxloc1_16_i4.c @@ -124,7 +124,7 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_16_i8.c b/libgfortran/generated/maxloc1_16_i8.c index 1a9eb519adbd..c449fc4fd20b 100644 --- a/libgfortran/generated/maxloc1_16_i8.c +++ b/libgfortran/generated/maxloc1_16_i8.c @@ -124,7 +124,7 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c index 79805f5519b1..729b2534dec5 100644 --- a/libgfortran/generated/maxloc1_16_r10.c +++ b/libgfortran/generated/maxloc1_16_r10.c @@ -124,7 +124,7 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c index 49b27c342274..88c7e39ce1a2 100644 --- a/libgfortran/generated/maxloc1_16_r16.c +++ b/libgfortran/generated/maxloc1_16_r16.c @@ -124,7 +124,7 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c index cb4cc17f78c5..c2fdd89d58bb 100644 --- a/libgfortran/generated/maxloc1_16_r4.c +++ b/libgfortran/generated/maxloc1_16_r4.c @@ -124,7 +124,7 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c index bddedbe63fa9..e4c8efeb59e3 100644 --- a/libgfortran/generated/maxloc1_16_r8.c +++ b/libgfortran/generated/maxloc1_16_r8.c @@ -124,7 +124,7 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c index 3a1ae07de92c..d34c22d49763 100644 --- a/libgfortran/generated/maxloc1_4_i1.c +++ b/libgfortran/generated/maxloc1_4_i1.c @@ -124,7 +124,7 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_4_i16.c b/libgfortran/generated/maxloc1_4_i16.c index d9e1b3e527fa..ec83fed83be8 100644 --- a/libgfortran/generated/maxloc1_4_i16.c +++ b/libgfortran/generated/maxloc1_4_i16.c @@ -124,7 +124,7 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c index dedb28b8dc07..bd3f158e685f 100644 --- a/libgfortran/generated/maxloc1_4_i2.c +++ b/libgfortran/generated/maxloc1_4_i2.c @@ -124,7 +124,7 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c index 12bad843e920..bacdbb41d9b3 100644 --- a/libgfortran/generated/maxloc1_4_i4.c +++ b/libgfortran/generated/maxloc1_4_i4.c @@ -124,7 +124,7 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c index 2215521cb1b6..a4304e414ee1 100644 --- a/libgfortran/generated/maxloc1_4_i8.c +++ b/libgfortran/generated/maxloc1_4_i8.c @@ -124,7 +124,7 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c index 0ed1df2fde03..693b8b519257 100644 --- a/libgfortran/generated/maxloc1_4_r10.c +++ b/libgfortran/generated/maxloc1_4_r10.c @@ -124,7 +124,7 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c index ae1a4f16fabb..cfae0223e60a 100644 --- a/libgfortran/generated/maxloc1_4_r16.c +++ b/libgfortran/generated/maxloc1_4_r16.c @@ -124,7 +124,7 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c index 6b1656424cd7..31eaf8e24ddd 100644 --- a/libgfortran/generated/maxloc1_4_r4.c +++ b/libgfortran/generated/maxloc1_4_r4.c @@ -124,7 +124,7 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c index bbc6f9e54e5d..f75a98ec7c70 100644 --- a/libgfortran/generated/maxloc1_4_r8.c +++ b/libgfortran/generated/maxloc1_4_r8.c @@ -124,7 +124,7 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c index 85c44f9d0dcd..781432318a8d 100644 --- a/libgfortran/generated/maxloc1_8_i1.c +++ b/libgfortran/generated/maxloc1_8_i1.c @@ -124,7 +124,7 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_8_i16.c b/libgfortran/generated/maxloc1_8_i16.c index 18d1ad1d2f20..bff447fb65a7 100644 --- a/libgfortran/generated/maxloc1_8_i16.c +++ b/libgfortran/generated/maxloc1_8_i16.c @@ -124,7 +124,7 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c index 121cc0fe8cb7..eb9b59a28ab2 100644 --- a/libgfortran/generated/maxloc1_8_i2.c +++ b/libgfortran/generated/maxloc1_8_i2.c @@ -124,7 +124,7 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c index 8386a29979e9..469a480629c4 100644 --- a/libgfortran/generated/maxloc1_8_i4.c +++ b/libgfortran/generated/maxloc1_8_i4.c @@ -124,7 +124,7 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c index ed71c4925021..c5b08e395af0 100644 --- a/libgfortran/generated/maxloc1_8_i8.c +++ b/libgfortran/generated/maxloc1_8_i8.c @@ -124,7 +124,7 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c index a7b71bc54f3b..61a6eccf46ea 100644 --- a/libgfortran/generated/maxloc1_8_r10.c +++ b/libgfortran/generated/maxloc1_8_r10.c @@ -124,7 +124,7 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c index 9fd0b46dbda2..f397661c6344 100644 --- a/libgfortran/generated/maxloc1_8_r16.c +++ b/libgfortran/generated/maxloc1_8_r16.c @@ -124,7 +124,7 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c index 79f1103dc8f0..c192e3b3890d 100644 --- a/libgfortran/generated/maxloc1_8_r4.c +++ b/libgfortran/generated/maxloc1_8_r4.c @@ -124,7 +124,7 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c index b0ab7608b41f..ef5d86f3fe28 100644 --- a/libgfortran/generated/maxloc1_8_r8.c +++ b/libgfortran/generated/maxloc1_8_r8.c @@ -124,7 +124,7 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c index a7288eb827b4..961c32a8f260 100644 --- a/libgfortran/generated/maxval_i1.c +++ b/libgfortran/generated/maxval_i1.c @@ -123,7 +123,7 @@ maxval_i1 (gfc_array_i1 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ smaxval_i1 (gfc_array_i1 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c index d50ab6f3558a..03cd671f51f3 100644 --- a/libgfortran/generated/maxval_i16.c +++ b/libgfortran/generated/maxval_i16.c @@ -123,7 +123,7 @@ maxval_i16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ smaxval_i16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c index c49b18120431..8b87f6bce809 100644 --- a/libgfortran/generated/maxval_i2.c +++ b/libgfortran/generated/maxval_i2.c @@ -123,7 +123,7 @@ maxval_i2 (gfc_array_i2 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ smaxval_i2 (gfc_array_i2 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c index 354c86d9a1ed..b35fa7b57bbf 100644 --- a/libgfortran/generated/maxval_i4.c +++ b/libgfortran/generated/maxval_i4.c @@ -123,7 +123,7 @@ maxval_i4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ smaxval_i4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c index 91a2b00c619f..2c407b49f7e4 100644 --- a/libgfortran/generated/maxval_i8.c +++ b/libgfortran/generated/maxval_i8.c @@ -123,7 +123,7 @@ maxval_i8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ smaxval_i8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c index c959a8083a6a..03aa6234c7b1 100644 --- a/libgfortran/generated/maxval_r10.c +++ b/libgfortran/generated/maxval_r10.c @@ -123,7 +123,7 @@ maxval_r10 (gfc_array_r10 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ smaxval_r10 (gfc_array_r10 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c index a05808d2e5c5..98bce6e2e4d6 100644 --- a/libgfortran/generated/maxval_r16.c +++ b/libgfortran/generated/maxval_r16.c @@ -123,7 +123,7 @@ maxval_r16 (gfc_array_r16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ smaxval_r16 (gfc_array_r16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c index a00468bc8457..c57d55875706 100644 --- a/libgfortran/generated/maxval_r4.c +++ b/libgfortran/generated/maxval_r4.c @@ -123,7 +123,7 @@ maxval_r4 (gfc_array_r4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ smaxval_r4 (gfc_array_r4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c index 1c9e41df6d09..2afe75462300 100644 --- a/libgfortran/generated/maxval_r8.c +++ b/libgfortran/generated/maxval_r8.c @@ -123,7 +123,7 @@ maxval_r8 (gfc_array_r8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MAXVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ smaxval_r8 (gfc_array_r8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc0_16_i1.c b/libgfortran/generated/minloc0_16_i1.c index 41924a3999a1..401b0a167086 100644 --- a/libgfortran/generated/minloc0_16_i1.c +++ b/libgfortran/generated/minloc0_16_i1.c @@ -69,7 +69,7 @@ minloc0_16_i1 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_16_i1 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_16_i1 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_16_i16.c b/libgfortran/generated/minloc0_16_i16.c index 655d587b8c89..bd96534227ec 100644 --- a/libgfortran/generated/minloc0_16_i16.c +++ b/libgfortran/generated/minloc0_16_i16.c @@ -69,7 +69,7 @@ minloc0_16_i16 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_16_i16 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_16_i16 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_16_i2.c b/libgfortran/generated/minloc0_16_i2.c index bca08a5f6a3e..329d8b1886d7 100644 --- a/libgfortran/generated/minloc0_16_i2.c +++ b/libgfortran/generated/minloc0_16_i2.c @@ -69,7 +69,7 @@ minloc0_16_i2 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_16_i2 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_16_i2 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_16_i4.c b/libgfortran/generated/minloc0_16_i4.c index 50105af002a8..4afea1e66775 100644 --- a/libgfortran/generated/minloc0_16_i4.c +++ b/libgfortran/generated/minloc0_16_i4.c @@ -69,7 +69,7 @@ minloc0_16_i4 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_16_i4 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_16_i4 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_16_i8.c b/libgfortran/generated/minloc0_16_i8.c index d12663f14367..9492ecd77a43 100644 --- a/libgfortran/generated/minloc0_16_i8.c +++ b/libgfortran/generated/minloc0_16_i8.c @@ -69,7 +69,7 @@ minloc0_16_i8 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_16_i8 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_16_i8 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_16_r10.c b/libgfortran/generated/minloc0_16_r10.c index 9c93f144cd7b..002fb8a4c8c5 100644 --- a/libgfortran/generated/minloc0_16_r10.c +++ b/libgfortran/generated/minloc0_16_r10.c @@ -69,7 +69,7 @@ minloc0_16_r10 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_16_r10 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_16_r10 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_16_r16.c b/libgfortran/generated/minloc0_16_r16.c index 83624d2e4364..d950e203d30b 100644 --- a/libgfortran/generated/minloc0_16_r16.c +++ b/libgfortran/generated/minloc0_16_r16.c @@ -69,7 +69,7 @@ minloc0_16_r16 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_16_r16 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_16_r16 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_16_r4.c b/libgfortran/generated/minloc0_16_r4.c index 4225805d991e..7fbb2c0ef2ce 100644 --- a/libgfortran/generated/minloc0_16_r4.c +++ b/libgfortran/generated/minloc0_16_r4.c @@ -69,7 +69,7 @@ minloc0_16_r4 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_16_r4 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_16_r4 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_16_r8.c b/libgfortran/generated/minloc0_16_r8.c index 74c5358e4fcb..83485251e537 100644 --- a/libgfortran/generated/minloc0_16_r8.c +++ b/libgfortran/generated/minloc0_16_r8.c @@ -69,7 +69,7 @@ minloc0_16_r8 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_16_r8 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_16_r8 (gfc_array_i16 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_4_i1.c b/libgfortran/generated/minloc0_4_i1.c index 53ddea210c60..50dc87d533d9 100644 --- a/libgfortran/generated/minloc0_4_i1.c +++ b/libgfortran/generated/minloc0_4_i1.c @@ -69,7 +69,7 @@ minloc0_4_i1 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_4_i1 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_4_i1 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_4_i16.c b/libgfortran/generated/minloc0_4_i16.c index 88c5a0ab5425..ab7fd86a2b1e 100644 --- a/libgfortran/generated/minloc0_4_i16.c +++ b/libgfortran/generated/minloc0_4_i16.c @@ -69,7 +69,7 @@ minloc0_4_i16 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_4_i16 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_4_i16 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_4_i2.c b/libgfortran/generated/minloc0_4_i2.c index 2db4557979fc..cd9ec26ab243 100644 --- a/libgfortran/generated/minloc0_4_i2.c +++ b/libgfortran/generated/minloc0_4_i2.c @@ -69,7 +69,7 @@ minloc0_4_i2 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_4_i2 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_4_i2 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_4_i4.c b/libgfortran/generated/minloc0_4_i4.c index 49e74f527e95..932110843a89 100644 --- a/libgfortran/generated/minloc0_4_i4.c +++ b/libgfortran/generated/minloc0_4_i4.c @@ -69,7 +69,7 @@ minloc0_4_i4 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_4_i4 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_4_i4 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_4_i8.c b/libgfortran/generated/minloc0_4_i8.c index 2be844fec89a..8a2256b96344 100644 --- a/libgfortran/generated/minloc0_4_i8.c +++ b/libgfortran/generated/minloc0_4_i8.c @@ -69,7 +69,7 @@ minloc0_4_i8 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_4_i8 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_4_i8 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_4_r10.c b/libgfortran/generated/minloc0_4_r10.c index a1d390c00b7b..792a9e1db168 100644 --- a/libgfortran/generated/minloc0_4_r10.c +++ b/libgfortran/generated/minloc0_4_r10.c @@ -69,7 +69,7 @@ minloc0_4_r10 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_4_r10 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_4_r10 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_4_r16.c b/libgfortran/generated/minloc0_4_r16.c index e4ecd12febc8..01424dc748a5 100644 --- a/libgfortran/generated/minloc0_4_r16.c +++ b/libgfortran/generated/minloc0_4_r16.c @@ -69,7 +69,7 @@ minloc0_4_r16 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_4_r16 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_4_r16 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_4_r4.c b/libgfortran/generated/minloc0_4_r4.c index a115c017d17f..88b4917f2e8b 100644 --- a/libgfortran/generated/minloc0_4_r4.c +++ b/libgfortran/generated/minloc0_4_r4.c @@ -69,7 +69,7 @@ minloc0_4_r4 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_4_r4 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_4_r4 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_4_r8.c b/libgfortran/generated/minloc0_4_r8.c index 6162cfd28844..5d353145cd0f 100644 --- a/libgfortran/generated/minloc0_4_r8.c +++ b/libgfortran/generated/minloc0_4_r8.c @@ -69,7 +69,7 @@ minloc0_4_r8 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_4_r8 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_4_r8 (gfc_array_i4 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_8_i1.c b/libgfortran/generated/minloc0_8_i1.c index b755ed7348b3..a70533e2ceec 100644 --- a/libgfortran/generated/minloc0_8_i1.c +++ b/libgfortran/generated/minloc0_8_i1.c @@ -69,7 +69,7 @@ minloc0_8_i1 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_8_i1 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_8_i1 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_8_i16.c b/libgfortran/generated/minloc0_8_i16.c index 72906034904a..364d75d4b383 100644 --- a/libgfortran/generated/minloc0_8_i16.c +++ b/libgfortran/generated/minloc0_8_i16.c @@ -69,7 +69,7 @@ minloc0_8_i16 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_8_i16 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_8_i16 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_8_i2.c b/libgfortran/generated/minloc0_8_i2.c index 70cc8705eb5b..7b5d8ab01e8b 100644 --- a/libgfortran/generated/minloc0_8_i2.c +++ b/libgfortran/generated/minloc0_8_i2.c @@ -69,7 +69,7 @@ minloc0_8_i2 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_8_i2 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_8_i2 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_8_i4.c b/libgfortran/generated/minloc0_8_i4.c index 5cd60c3d18e0..9f40ec47b64a 100644 --- a/libgfortran/generated/minloc0_8_i4.c +++ b/libgfortran/generated/minloc0_8_i4.c @@ -69,7 +69,7 @@ minloc0_8_i4 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_8_i4 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_8_i4 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_8_i8.c b/libgfortran/generated/minloc0_8_i8.c index 2c2c2d235cb4..36306fbe8ae7 100644 --- a/libgfortran/generated/minloc0_8_i8.c +++ b/libgfortran/generated/minloc0_8_i8.c @@ -69,7 +69,7 @@ minloc0_8_i8 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_8_i8 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_8_i8 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_8_r10.c b/libgfortran/generated/minloc0_8_r10.c index 2b2f3cf1c743..b085afddeac8 100644 --- a/libgfortran/generated/minloc0_8_r10.c +++ b/libgfortran/generated/minloc0_8_r10.c @@ -69,7 +69,7 @@ minloc0_8_r10 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_8_r10 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_8_r10 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_8_r16.c b/libgfortran/generated/minloc0_8_r16.c index a93e1da5d3b5..7a78fc5246f0 100644 --- a/libgfortran/generated/minloc0_8_r16.c +++ b/libgfortran/generated/minloc0_8_r16.c @@ -69,7 +69,7 @@ minloc0_8_r16 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_8_r16 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_8_r16 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_8_r4.c b/libgfortran/generated/minloc0_8_r4.c index 45d2ebabf1bb..53eb53e58c88 100644 --- a/libgfortran/generated/minloc0_8_r4.c +++ b/libgfortran/generated/minloc0_8_r4.c @@ -69,7 +69,7 @@ minloc0_8_r4 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_8_r4 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_8_r4 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc0_8_r8.c b/libgfortran/generated/minloc0_8_r8.c index f4041155e0c7..f583f8b9478b 100644 --- a/libgfortran/generated/minloc0_8_r8.c +++ b/libgfortran/generated/minloc0_8_r8.c @@ -69,7 +69,7 @@ minloc0_8_r8 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -193,7 +193,7 @@ mminloc0_8_r8 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -353,7 +353,7 @@ sminloc0_8_r8 (gfc_array_i8 * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c index f95aa9068979..165646ffa6ea 100644 --- a/libgfortran/generated/minloc1_16_i1.c +++ b/libgfortran/generated/minloc1_16_i1.c @@ -124,7 +124,7 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_16_i1 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c index 9a5da308ede9..b6e1cb528b5e 100644 --- a/libgfortran/generated/minloc1_16_i16.c +++ b/libgfortran/generated/minloc1_16_i16.c @@ -124,7 +124,7 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_16_i16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c index ad282f9b774a..8b1389279032 100644 --- a/libgfortran/generated/minloc1_16_i2.c +++ b/libgfortran/generated/minloc1_16_i2.c @@ -124,7 +124,7 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_16_i2 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c index 7eb382d89eed..e97b0dc13bae 100644 --- a/libgfortran/generated/minloc1_16_i4.c +++ b/libgfortran/generated/minloc1_16_i4.c @@ -124,7 +124,7 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_16_i4 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c index 7995d26101ce..3760b206e581 100644 --- a/libgfortran/generated/minloc1_16_i8.c +++ b/libgfortran/generated/minloc1_16_i8.c @@ -124,7 +124,7 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_16_i8 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c index c7da9d1b5dc0..abc568978de4 100644 --- a/libgfortran/generated/minloc1_16_r10.c +++ b/libgfortran/generated/minloc1_16_r10.c @@ -124,7 +124,7 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_16_r10 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c index c24cb81dca5f..3e2e8fa74a57 100644 --- a/libgfortran/generated/minloc1_16_r16.c +++ b/libgfortran/generated/minloc1_16_r16.c @@ -124,7 +124,7 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_16_r16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c index 37cda9b2c1cb..542932f5c34b 100644 --- a/libgfortran/generated/minloc1_16_r4.c +++ b/libgfortran/generated/minloc1_16_r4.c @@ -124,7 +124,7 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_16_r4 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c index b0bbf82d313a..5d96aea42186 100644 --- a/libgfortran/generated/minloc1_16_r8.c +++ b/libgfortran/generated/minloc1_16_r8.c @@ -124,7 +124,7 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_16_r8 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c index eab1b40109df..daddbbf954c7 100644 --- a/libgfortran/generated/minloc1_4_i1.c +++ b/libgfortran/generated/minloc1_4_i1.c @@ -124,7 +124,7 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_4_i1 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c index 3446e4e825db..4861f188af66 100644 --- a/libgfortran/generated/minloc1_4_i16.c +++ b/libgfortran/generated/minloc1_4_i16.c @@ -124,7 +124,7 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_4_i16 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c index 1e2a8c6652db..09e15204dafa 100644 --- a/libgfortran/generated/minloc1_4_i2.c +++ b/libgfortran/generated/minloc1_4_i2.c @@ -124,7 +124,7 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_4_i2 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c index 6e4b137f183b..d7c07297097f 100644 --- a/libgfortran/generated/minloc1_4_i4.c +++ b/libgfortran/generated/minloc1_4_i4.c @@ -124,7 +124,7 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_4_i4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c index 5295a1050c7c..10ffa36b6a9b 100644 --- a/libgfortran/generated/minloc1_4_i8.c +++ b/libgfortran/generated/minloc1_4_i8.c @@ -124,7 +124,7 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_4_i8 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c index a020a9908a6c..67d5b0380c07 100644 --- a/libgfortran/generated/minloc1_4_r10.c +++ b/libgfortran/generated/minloc1_4_r10.c @@ -124,7 +124,7 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_4_r10 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c index 19bf03c3b75b..0358183b76c6 100644 --- a/libgfortran/generated/minloc1_4_r16.c +++ b/libgfortran/generated/minloc1_4_r16.c @@ -124,7 +124,7 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_4_r16 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c index ba54897ba391..f029ecb99134 100644 --- a/libgfortran/generated/minloc1_4_r4.c +++ b/libgfortran/generated/minloc1_4_r4.c @@ -124,7 +124,7 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_4_r4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c index 07fb27a66065..8b5972855c5e 100644 --- a/libgfortran/generated/minloc1_4_r8.c +++ b/libgfortran/generated/minloc1_4_r8.c @@ -124,7 +124,7 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_4_r8 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c index 409a961a7866..e56b156ef1a0 100644 --- a/libgfortran/generated/minloc1_8_i1.c +++ b/libgfortran/generated/minloc1_8_i1.c @@ -124,7 +124,7 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_8_i1 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c index 47fc6665dec1..82e550e081db 100644 --- a/libgfortran/generated/minloc1_8_i16.c +++ b/libgfortran/generated/minloc1_8_i16.c @@ -124,7 +124,7 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_8_i16 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c index 22080173f897..2812b2a204ac 100644 --- a/libgfortran/generated/minloc1_8_i2.c +++ b/libgfortran/generated/minloc1_8_i2.c @@ -124,7 +124,7 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_8_i2 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c index 71df4e662e38..6a8505ea5983 100644 --- a/libgfortran/generated/minloc1_8_i4.c +++ b/libgfortran/generated/minloc1_8_i4.c @@ -124,7 +124,7 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_8_i4 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c index d4e471a62bbb..efc7ef0e3443 100644 --- a/libgfortran/generated/minloc1_8_i8.c +++ b/libgfortran/generated/minloc1_8_i8.c @@ -124,7 +124,7 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_8_i8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c index 61632394d6cb..e3c727a3b69b 100644 --- a/libgfortran/generated/minloc1_8_r10.c +++ b/libgfortran/generated/minloc1_8_r10.c @@ -124,7 +124,7 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_8_r10 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c index 3e0416adb527..734a3a875eae 100644 --- a/libgfortran/generated/minloc1_8_r16.c +++ b/libgfortran/generated/minloc1_8_r16.c @@ -124,7 +124,7 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_8_r16 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c index c6a6ad4bc555..253dc86bc4fa 100644 --- a/libgfortran/generated/minloc1_8_r4.c +++ b/libgfortran/generated/minloc1_8_r4.c @@ -124,7 +124,7 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_8_r4 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c index 8a01e3edf26a..dc9288e441e7 100644 --- a/libgfortran/generated/minloc1_8_r8.c +++ b/libgfortran/generated/minloc1_8_r8.c @@ -124,7 +124,7 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -318,7 +318,7 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINLOC intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -508,7 +508,7 @@ sminloc1_8_r8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c index 719a0497c6c0..c0c9fffa555c 100644 --- a/libgfortran/generated/minval_i1.c +++ b/libgfortran/generated/minval_i1.c @@ -123,7 +123,7 @@ minval_i1 (gfc_array_i1 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mminval_i1 (gfc_array_i1 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ sminval_i1 (gfc_array_i1 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c index c4f699b01b11..7abe358e125c 100644 --- a/libgfortran/generated/minval_i16.c +++ b/libgfortran/generated/minval_i16.c @@ -123,7 +123,7 @@ minval_i16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mminval_i16 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ sminval_i16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c index 2ff292fe9b14..c782c3640c53 100644 --- a/libgfortran/generated/minval_i2.c +++ b/libgfortran/generated/minval_i2.c @@ -123,7 +123,7 @@ minval_i2 (gfc_array_i2 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mminval_i2 (gfc_array_i2 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ sminval_i2 (gfc_array_i2 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c index 96bfe32bde6c..13506a24576e 100644 --- a/libgfortran/generated/minval_i4.c +++ b/libgfortran/generated/minval_i4.c @@ -123,7 +123,7 @@ minval_i4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mminval_i4 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ sminval_i4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c index 1682dd2fa394..dbad3ce0bc46 100644 --- a/libgfortran/generated/minval_i8.c +++ b/libgfortran/generated/minval_i8.c @@ -123,7 +123,7 @@ minval_i8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mminval_i8 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ sminval_i8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c index fa9e6366e380..6091a2e6c4b8 100644 --- a/libgfortran/generated/minval_r10.c +++ b/libgfortran/generated/minval_r10.c @@ -123,7 +123,7 @@ minval_r10 (gfc_array_r10 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mminval_r10 (gfc_array_r10 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ sminval_r10 (gfc_array_r10 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c index 9561caa94da9..87518bf59007 100644 --- a/libgfortran/generated/minval_r16.c +++ b/libgfortran/generated/minval_r16.c @@ -123,7 +123,7 @@ minval_r16 (gfc_array_r16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mminval_r16 (gfc_array_r16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ sminval_r16 (gfc_array_r16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c index ac048eedb064..8511795b12cd 100644 --- a/libgfortran/generated/minval_r4.c +++ b/libgfortran/generated/minval_r4.c @@ -123,7 +123,7 @@ minval_r4 (gfc_array_r4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mminval_r4 (gfc_array_r4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ sminval_r4 (gfc_array_r4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c index 21ecb3c5afba..fcfbdc79f865 100644 --- a/libgfortran/generated/minval_r8.c +++ b/libgfortran/generated/minval_r8.c @@ -123,7 +123,7 @@ minval_r8 (gfc_array_r8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -312,7 +312,7 @@ mminval_r8 (gfc_array_r8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in MINVAL intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -497,7 +497,7 @@ sminval_r8 (gfc_array_r8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/product_c10.c b/libgfortran/generated/product_c10.c index 66a9c05dec73..7ff7270290c2 100644 --- a/libgfortran/generated/product_c10.c +++ b/libgfortran/generated/product_c10.c @@ -123,7 +123,7 @@ product_c10 (gfc_array_c10 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ mproduct_c10 (gfc_array_c10 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in PRODUCT intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ sproduct_c10 (gfc_array_c10 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/product_c16.c b/libgfortran/generated/product_c16.c index ec2acb4e4f97..9f9d6c9a0de0 100644 --- a/libgfortran/generated/product_c16.c +++ b/libgfortran/generated/product_c16.c @@ -123,7 +123,7 @@ product_c16 (gfc_array_c16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ mproduct_c16 (gfc_array_c16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in PRODUCT intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ sproduct_c16 (gfc_array_c16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c index bd52eb9ab771..8a1f7a56fada 100644 --- a/libgfortran/generated/product_c4.c +++ b/libgfortran/generated/product_c4.c @@ -123,7 +123,7 @@ product_c4 (gfc_array_c4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ mproduct_c4 (gfc_array_c4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in PRODUCT intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ sproduct_c4 (gfc_array_c4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c index c124355c1b2b..e8416b39875c 100644 --- a/libgfortran/generated/product_c8.c +++ b/libgfortran/generated/product_c8.c @@ -123,7 +123,7 @@ product_c8 (gfc_array_c8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ mproduct_c8 (gfc_array_c8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in PRODUCT intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ sproduct_c8 (gfc_array_c8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/product_i1.c b/libgfortran/generated/product_i1.c index 362a08ac6a1d..01f13f54976d 100644 --- a/libgfortran/generated/product_i1.c +++ b/libgfortran/generated/product_i1.c @@ -123,7 +123,7 @@ product_i1 (gfc_array_i1 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ mproduct_i1 (gfc_array_i1 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in PRODUCT intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ sproduct_i1 (gfc_array_i1 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c index a687c3a218e0..a2e2c6484f20 100644 --- a/libgfortran/generated/product_i16.c +++ b/libgfortran/generated/product_i16.c @@ -123,7 +123,7 @@ product_i16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ mproduct_i16 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in PRODUCT intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ sproduct_i16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/product_i2.c b/libgfortran/generated/product_i2.c index f8082b4c7bbf..f18e5c78e4ec 100644 --- a/libgfortran/generated/product_i2.c +++ b/libgfortran/generated/product_i2.c @@ -123,7 +123,7 @@ product_i2 (gfc_array_i2 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ mproduct_i2 (gfc_array_i2 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in PRODUCT intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ sproduct_i2 (gfc_array_i2 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c index 11132d4e2bb6..fb3caa2e4aac 100644 --- a/libgfortran/generated/product_i4.c +++ b/libgfortran/generated/product_i4.c @@ -123,7 +123,7 @@ product_i4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ mproduct_i4 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in PRODUCT intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ sproduct_i4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c index da28568f39e6..5a2c78b4bf65 100644 --- a/libgfortran/generated/product_i8.c +++ b/libgfortran/generated/product_i8.c @@ -123,7 +123,7 @@ product_i8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ mproduct_i8 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in PRODUCT intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ sproduct_i8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c index fb0074e22269..0052fcaabf74 100644 --- a/libgfortran/generated/product_r10.c +++ b/libgfortran/generated/product_r10.c @@ -123,7 +123,7 @@ product_r10 (gfc_array_r10 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ mproduct_r10 (gfc_array_r10 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in PRODUCT intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ sproduct_r10 (gfc_array_r10 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/product_r16.c b/libgfortran/generated/product_r16.c index 2375cbefef5b..f5b0886d80d0 100644 --- a/libgfortran/generated/product_r16.c +++ b/libgfortran/generated/product_r16.c @@ -123,7 +123,7 @@ product_r16 (gfc_array_r16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ mproduct_r16 (gfc_array_r16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in PRODUCT intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ sproduct_r16 (gfc_array_r16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c index 1a3aacc3b791..9f9787b5c407 100644 --- a/libgfortran/generated/product_r4.c +++ b/libgfortran/generated/product_r4.c @@ -123,7 +123,7 @@ product_r4 (gfc_array_r4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ mproduct_r4 (gfc_array_r4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in PRODUCT intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ sproduct_r4 (gfc_array_r4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c index 76cb1bedbbf3..5eec583cefa1 100644 --- a/libgfortran/generated/product_r8.c +++ b/libgfortran/generated/product_r8.c @@ -123,7 +123,7 @@ product_r8 (gfc_array_r8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ mproduct_r8 (gfc_array_r8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in PRODUCT intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ sproduct_r8 (gfc_array_r8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/spread_c10.c b/libgfortran/generated/spread_c10.c index 868a75f898f2..89734909b99a 100644 --- a/libgfortran/generated/spread_c10.c +++ b/libgfortran/generated/spread_c10.c @@ -121,7 +121,7 @@ spread_c10 (gfc_array_c10 *ret, const gfc_array_c10 *source, if (GFC_DESCRIPTOR_RANK(ret) != rrank) runtime_error ("rank mismatch in spread()"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n = 0; n < rrank; n++) { diff --git a/libgfortran/generated/spread_c16.c b/libgfortran/generated/spread_c16.c index 5aa45e6d0f5f..4a6110f52609 100644 --- a/libgfortran/generated/spread_c16.c +++ b/libgfortran/generated/spread_c16.c @@ -121,7 +121,7 @@ spread_c16 (gfc_array_c16 *ret, const gfc_array_c16 *source, if (GFC_DESCRIPTOR_RANK(ret) != rrank) runtime_error ("rank mismatch in spread()"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n = 0; n < rrank; n++) { diff --git a/libgfortran/generated/spread_c4.c b/libgfortran/generated/spread_c4.c index f1b16e7e132a..45415e429e4a 100644 --- a/libgfortran/generated/spread_c4.c +++ b/libgfortran/generated/spread_c4.c @@ -121,7 +121,7 @@ spread_c4 (gfc_array_c4 *ret, const gfc_array_c4 *source, if (GFC_DESCRIPTOR_RANK(ret) != rrank) runtime_error ("rank mismatch in spread()"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n = 0; n < rrank; n++) { diff --git a/libgfortran/generated/spread_c8.c b/libgfortran/generated/spread_c8.c index ed79c2844a5c..abbf1869a0db 100644 --- a/libgfortran/generated/spread_c8.c +++ b/libgfortran/generated/spread_c8.c @@ -121,7 +121,7 @@ spread_c8 (gfc_array_c8 *ret, const gfc_array_c8 *source, if (GFC_DESCRIPTOR_RANK(ret) != rrank) runtime_error ("rank mismatch in spread()"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n = 0; n < rrank; n++) { diff --git a/libgfortran/generated/spread_i1.c b/libgfortran/generated/spread_i1.c index b5798dff5a85..f9c864b38883 100644 --- a/libgfortran/generated/spread_i1.c +++ b/libgfortran/generated/spread_i1.c @@ -121,7 +121,7 @@ spread_i1 (gfc_array_i1 *ret, const gfc_array_i1 *source, if (GFC_DESCRIPTOR_RANK(ret) != rrank) runtime_error ("rank mismatch in spread()"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n = 0; n < rrank; n++) { diff --git a/libgfortran/generated/spread_i16.c b/libgfortran/generated/spread_i16.c index 0f6002f682a7..a2e87ad18ecb 100644 --- a/libgfortran/generated/spread_i16.c +++ b/libgfortran/generated/spread_i16.c @@ -121,7 +121,7 @@ spread_i16 (gfc_array_i16 *ret, const gfc_array_i16 *source, if (GFC_DESCRIPTOR_RANK(ret) != rrank) runtime_error ("rank mismatch in spread()"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n = 0; n < rrank; n++) { diff --git a/libgfortran/generated/spread_i2.c b/libgfortran/generated/spread_i2.c index ac49aa9d999c..83d42130376c 100644 --- a/libgfortran/generated/spread_i2.c +++ b/libgfortran/generated/spread_i2.c @@ -121,7 +121,7 @@ spread_i2 (gfc_array_i2 *ret, const gfc_array_i2 *source, if (GFC_DESCRIPTOR_RANK(ret) != rrank) runtime_error ("rank mismatch in spread()"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n = 0; n < rrank; n++) { diff --git a/libgfortran/generated/spread_i4.c b/libgfortran/generated/spread_i4.c index bef7a37b6b01..1d3408b95dd8 100644 --- a/libgfortran/generated/spread_i4.c +++ b/libgfortran/generated/spread_i4.c @@ -121,7 +121,7 @@ spread_i4 (gfc_array_i4 *ret, const gfc_array_i4 *source, if (GFC_DESCRIPTOR_RANK(ret) != rrank) runtime_error ("rank mismatch in spread()"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n = 0; n < rrank; n++) { diff --git a/libgfortran/generated/spread_i8.c b/libgfortran/generated/spread_i8.c index db5572aff67e..7f77c43f7391 100644 --- a/libgfortran/generated/spread_i8.c +++ b/libgfortran/generated/spread_i8.c @@ -121,7 +121,7 @@ spread_i8 (gfc_array_i8 *ret, const gfc_array_i8 *source, if (GFC_DESCRIPTOR_RANK(ret) != rrank) runtime_error ("rank mismatch in spread()"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n = 0; n < rrank; n++) { diff --git a/libgfortran/generated/spread_r10.c b/libgfortran/generated/spread_r10.c index 9d5afc225048..90b0d906d9e1 100644 --- a/libgfortran/generated/spread_r10.c +++ b/libgfortran/generated/spread_r10.c @@ -121,7 +121,7 @@ spread_r10 (gfc_array_r10 *ret, const gfc_array_r10 *source, if (GFC_DESCRIPTOR_RANK(ret) != rrank) runtime_error ("rank mismatch in spread()"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n = 0; n < rrank; n++) { diff --git a/libgfortran/generated/spread_r16.c b/libgfortran/generated/spread_r16.c index 0b4d3ca22c48..2c78cd4e90ea 100644 --- a/libgfortran/generated/spread_r16.c +++ b/libgfortran/generated/spread_r16.c @@ -121,7 +121,7 @@ spread_r16 (gfc_array_r16 *ret, const gfc_array_r16 *source, if (GFC_DESCRIPTOR_RANK(ret) != rrank) runtime_error ("rank mismatch in spread()"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n = 0; n < rrank; n++) { diff --git a/libgfortran/generated/spread_r4.c b/libgfortran/generated/spread_r4.c index 191203a6d56e..c151df3122a0 100644 --- a/libgfortran/generated/spread_r4.c +++ b/libgfortran/generated/spread_r4.c @@ -121,7 +121,7 @@ spread_r4 (gfc_array_r4 *ret, const gfc_array_r4 *source, if (GFC_DESCRIPTOR_RANK(ret) != rrank) runtime_error ("rank mismatch in spread()"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n = 0; n < rrank; n++) { diff --git a/libgfortran/generated/spread_r8.c b/libgfortran/generated/spread_r8.c index a710111c9df8..de50b2fc64a2 100644 --- a/libgfortran/generated/spread_r8.c +++ b/libgfortran/generated/spread_r8.c @@ -121,7 +121,7 @@ spread_r8 (gfc_array_r8 *ret, const gfc_array_r8 *source, if (GFC_DESCRIPTOR_RANK(ret) != rrank) runtime_error ("rank mismatch in spread()"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n = 0; n < rrank; n++) { diff --git a/libgfortran/generated/sum_c10.c b/libgfortran/generated/sum_c10.c index 0c53b6c58803..e31efbbc8541 100644 --- a/libgfortran/generated/sum_c10.c +++ b/libgfortran/generated/sum_c10.c @@ -123,7 +123,7 @@ sum_c10 (gfc_array_c10 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ msum_c10 (gfc_array_c10 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in SUM intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ ssum_c10 (gfc_array_c10 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/sum_c16.c b/libgfortran/generated/sum_c16.c index a3db7aa7d2aa..81397829cd01 100644 --- a/libgfortran/generated/sum_c16.c +++ b/libgfortran/generated/sum_c16.c @@ -123,7 +123,7 @@ sum_c16 (gfc_array_c16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ msum_c16 (gfc_array_c16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in SUM intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ ssum_c16 (gfc_array_c16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c index 849ab8a21bab..1f1bd38b15a5 100644 --- a/libgfortran/generated/sum_c4.c +++ b/libgfortran/generated/sum_c4.c @@ -123,7 +123,7 @@ sum_c4 (gfc_array_c4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ msum_c4 (gfc_array_c4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in SUM intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ ssum_c4 (gfc_array_c4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c index dcdcadfcda96..2b37bbc48b09 100644 --- a/libgfortran/generated/sum_c8.c +++ b/libgfortran/generated/sum_c8.c @@ -123,7 +123,7 @@ sum_c8 (gfc_array_c8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ msum_c8 (gfc_array_c8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in SUM intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ ssum_c8 (gfc_array_c8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/sum_i1.c b/libgfortran/generated/sum_i1.c index 7b396818b53d..fabb610146b1 100644 --- a/libgfortran/generated/sum_i1.c +++ b/libgfortran/generated/sum_i1.c @@ -123,7 +123,7 @@ sum_i1 (gfc_array_i1 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ msum_i1 (gfc_array_i1 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in SUM intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ ssum_i1 (gfc_array_i1 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/sum_i16.c b/libgfortran/generated/sum_i16.c index e99da269b81c..c41e497d07dc 100644 --- a/libgfortran/generated/sum_i16.c +++ b/libgfortran/generated/sum_i16.c @@ -123,7 +123,7 @@ sum_i16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ msum_i16 (gfc_array_i16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in SUM intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ ssum_i16 (gfc_array_i16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/sum_i2.c b/libgfortran/generated/sum_i2.c index 8a61191a8f99..4703e41710c7 100644 --- a/libgfortran/generated/sum_i2.c +++ b/libgfortran/generated/sum_i2.c @@ -123,7 +123,7 @@ sum_i2 (gfc_array_i2 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ msum_i2 (gfc_array_i2 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in SUM intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ ssum_i2 (gfc_array_i2 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c index f7912ff7aa44..5a4725c4bf44 100644 --- a/libgfortran/generated/sum_i4.c +++ b/libgfortran/generated/sum_i4.c @@ -123,7 +123,7 @@ sum_i4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ msum_i4 (gfc_array_i4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in SUM intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ ssum_i4 (gfc_array_i4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c index a8ad4a5a9af7..9bc4e6792a8a 100644 --- a/libgfortran/generated/sum_i8.c +++ b/libgfortran/generated/sum_i8.c @@ -123,7 +123,7 @@ sum_i8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ msum_i8 (gfc_array_i8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in SUM intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ ssum_i8 (gfc_array_i8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/sum_r10.c b/libgfortran/generated/sum_r10.c index f96c72cc70b9..801761fcd686 100644 --- a/libgfortran/generated/sum_r10.c +++ b/libgfortran/generated/sum_r10.c @@ -123,7 +123,7 @@ sum_r10 (gfc_array_r10 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ msum_r10 (gfc_array_r10 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in SUM intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ ssum_r10 (gfc_array_r10 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/sum_r16.c b/libgfortran/generated/sum_r16.c index dd8bdcf4dc01..9d53286ca3f7 100644 --- a/libgfortran/generated/sum_r16.c +++ b/libgfortran/generated/sum_r16.c @@ -123,7 +123,7 @@ sum_r16 (gfc_array_r16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ msum_r16 (gfc_array_r16 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in SUM intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ ssum_r16 (gfc_array_r16 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c index 3a39c27f88ee..84341e5a680d 100644 --- a/libgfortran/generated/sum_r4.c +++ b/libgfortran/generated/sum_r4.c @@ -123,7 +123,7 @@ sum_r4 (gfc_array_r4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ msum_r4 (gfc_array_r4 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in SUM intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ ssum_r4 (gfc_array_r4 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c index 858174ab4307..6e2fad3f2b0a 100644 --- a/libgfortran/generated/sum_r8.c +++ b/libgfortran/generated/sum_r8.c @@ -123,7 +123,7 @@ sum_r8 (gfc_array_r8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -311,7 +311,7 @@ msum_r8 (gfc_array_r8 * const restrict retarray, if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in SUM intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -496,7 +496,7 @@ ssum_r8 (gfc_array_r8 * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index a055483e4ce6..d1a7df93ecdd 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -68,6 +68,11 @@ typedef off_t gfc_offset; #ifndef __GNUC__ #define __attribute__(x) +#define likely(x) (x) +#define unlikely(x) (x) +#else +#define likely(x) __builtin_expect(!!(x), 1) +#define unlikely(x) __builtin_expect(!!(x), 0) #endif @@ -107,7 +112,8 @@ typedef off_t gfc_offset; mingw provides, __mingw_snprintf(). We also provide a prototype for __mingw_snprintf(), because the mingw headers currently don't have one. */ #if HAVE_MINGW_SNPRINTF -extern int __mingw_snprintf (char *, size_t, const char *, ...); +extern int __mingw_snprintf (char *, size_t, const char *, ...) + __attribute__ ((format (printf, 3, 4))); #undef snprintf #define snprintf __mingw_snprintf #endif @@ -649,7 +655,8 @@ extern void runtime_error_at (const char *, const char *, ...) __attribute__ ((noreturn, format (printf, 2, 3))); iexport_proto(runtime_error_at); -extern void runtime_warning_at (const char *, const char *, ...); +extern void runtime_warning_at (const char *, const char *, ...) + __attribute__ ((format (printf, 2, 3))); iexport_proto(runtime_warning_at); extern void internal_error (st_parameter_common *, const char *) diff --git a/libgfortran/m4/iforeach.m4 b/libgfortran/m4/iforeach.m4 index a8a353a4bdbb..b620c653f1a4 100644 --- a/libgfortran/m4/iforeach.m4 +++ b/libgfortran/m4/iforeach.m4 @@ -36,7 +36,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; @@ -152,7 +152,7 @@ void } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank, mask_rank; index_type ret_extent; @@ -311,7 +311,7 @@ void } else { - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { int ret_rank; index_type ret_extent; diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4 index edf3c77d05cb..e0c168e2e489 100644 --- a/libgfortran/m4/ifunction.m4 +++ b/libgfortran/m4/ifunction.m4 @@ -106,7 +106,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -294,7 +294,7 @@ void if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in u_name intrinsic"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { @@ -478,7 +478,7 @@ void (long int) (GFC_DESCRIPTOR_RANK (retarray)), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/m4/ifunction_logical.m4 b/libgfortran/m4/ifunction_logical.m4 index 214be04c2d86..da6b4ae2640f 100644 --- a/libgfortran/m4/ifunction_logical.m4 +++ b/libgfortran/m4/ifunction_logical.m4 @@ -110,7 +110,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, (long int) GFC_DESCRIPTOR_RANK (retarray), (long int) rank); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n=0; n < rank; n++) { diff --git a/libgfortran/m4/matmul.m4 b/libgfortran/m4/matmul.m4 index a43b430c2e30..d8621fa2b352 100644 --- a/libgfortran/m4/matmul.m4 +++ b/libgfortran/m4/matmul.m4 @@ -136,7 +136,7 @@ matmul_'rtype_code` ('rtype` * const restrict retarray, = internal_malloc_size (sizeof ('rtype_name`) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/m4/matmull.m4 b/libgfortran/m4/matmull.m4 index 800444564f72..78fb3fb9ad4a 100644 --- a/libgfortran/m4/matmull.m4 +++ b/libgfortran/m4/matmull.m4 @@ -100,7 +100,7 @@ matmul_'rtype_code` ('rtype` * const restrict retarray, = internal_malloc_size (sizeof ('rtype_name`) * size0 ((array_t *) retarray)); retarray->offset = 0; } - else if (compile_options.bounds_check) + else if (unlikely (compile_options.bounds_check)) { index_type ret_extent, arg_extent; diff --git a/libgfortran/m4/spread.m4 b/libgfortran/m4/spread.m4 index b4bdce64316c..54ec68cf295d 100644 --- a/libgfortran/m4/spread.m4 +++ b/libgfortran/m4/spread.m4 @@ -122,7 +122,7 @@ spread_'rtype_code` ('rtype` *ret, const 'rtype` *source, if (GFC_DESCRIPTOR_RANK(ret) != rrank) runtime_error ("rank mismatch in spread()"); - if (compile_options.bounds_check) + if (unlikely (compile_options.bounds_check)) { for (n = 0; n < rrank; n++) {