summaryrefslogtreecommitdiff
path: root/libgfortran/generated/minloc1_8_r8.c
diff options
context:
space:
mode:
Diffstat (limited to 'libgfortran/generated/minloc1_8_r8.c')
-rw-r--r--libgfortran/generated/minloc1_8_r8.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c
index 8a01e3edf26..dc9288e441e 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++)
{