(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++)
{
if (extent[n] != ret_extent)
runtime_error ("Incorrect extent in return value of"
" COUNT intrinsic in dimension %d:"
- " is %ld, should be %ld", n + 1,
+ " is %ld, should be %ld", (int) n + 1,
(long int) ret_extent, (long int) extent[n]);
}
}