Relates to PR60810

On 04/11/2014 04:10 PM, Jerry DeLisle wrote:
> I plan to commit the following patch to 4.10, 4.9, 4.8, and 4.7.
> 
> It is a partial revert of the patch to PR38199 which is an optimization of
> internal unit reads.
> 
> The original patch was too aggressive.  After this revert, I will investigate
> further to see if I can refine it further.
> 
> Regards,
> 
> Jerry
> 
> Index: unit.c
> ===================================================================
> --- unit.c    (revision 209325)
> +++ unit.c    (working copy)
> @@ -382,9 +382,7 @@
>  is_trim_ok (st_parameter_dt *dtp)
>  {
>    /* Check rank and stride.  */
> -  if (dtp->internal_unit_desc
> -      && (GFC_DESCRIPTOR_RANK (dtp->internal_unit_desc) > 1
> -       || GFC_DESCRIPTOR_STRIDE(dtp->internal_unit_desc, 0) != 1))
> +  if (dtp->internal_unit_desc)
>      return false;
>    /* Format strings can not have 'BZ' or '/'.  */
>    if (dtp->common.flags & IOPARM_DT_HAS_FORMAT)
> 
> 
> 

Reply via email to