X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=libgfortran%2Fgenerated%2Fminloc1_8_r10.c;h=e3c727a3b69be0894a8460ea3ae9b9192d88091d;hb=c7fb575fcdd6cf39f07d823264a4709454d35050;hp=61632394d6cb51edd974a455c597f9d3ab113b2a;hpb=84166344d5c07a1111be19deff267d02caa8ac89;p=pf3gnuchains%2Fgcc-fork.git diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c index 61632394d6c..e3c727a3b69 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++) {