index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
const GFC_REAL_10 *base;
- GFC_INTEGER_16 *dest;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
}
else
{
- if (compile_options.bounds_check)
+ if (unlikely (compile_options.bounds_check))
{
int ret_rank;
index_type ret_extent;
}
else
{
- if (compile_options.bounds_check)
+ if (unlikely (compile_options.bounds_check))
{
int ret_rank, mask_rank;
index_type ret_extent;
}
else
{
- if (compile_options.bounds_check)
+ if (unlikely (compile_options.bounds_check))
{
int ret_rank;
index_type ret_extent;