diff options
Diffstat (limited to 'libgfortran/generated/minloc0_8_r4.c')
-rw-r--r-- | libgfortran/generated/minloc0_8_r4.c | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/libgfortran/generated/minloc0_8_r4.c b/libgfortran/generated/minloc0_8_r4.c index 6160551fa81..46e749fb995 100644 --- a/libgfortran/generated/minloc0_8_r4.c +++ b/libgfortran/generated/minloc0_8_r4.c @@ -123,27 +123,27 @@ minloc0_8_r4 (gfc_array_i8 * const restrict retarray, } else #endif - if (back) - do - { - if (unlikely (*base <= minval)) - { - minval = *base; - for (n = 0; n < rank; n++) - dest[n * dstride] = count[n] + 1; - } - base += sstride[0]; - } - while (++count[0] != extent[0]); - else - do - { - if (unlikely (*base < minval)) - { - minval = *base; - for (n = 0; n < rank; n++) - dest[n * dstride] = count[n] + 1; - } + if (back) + do + { + if (unlikely (*base <= minval)) + { + minval = *base; + for (n = 0; n < rank; n++) + dest[n * dstride] = count[n] + 1; + } + base += sstride[0]; + } + while (++count[0] != extent[0]); + else + do + { + if (unlikely (*base < minval)) + { + minval = *base; + for (n = 0; n < rank; n++) + dest[n * dstride] = count[n] + 1; + } /* Implementation end. */ /* Advance to the next element. */ base += sstride[0]; |