diff options
Diffstat (limited to 'libgfortran/m4/spread.m4')
| -rw-r--r-- | libgfortran/m4/spread.m4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/m4/spread.m4 b/libgfortran/m4/spread.m4 index b4bdce64316..54ec68cf295 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++) { |