[PATCH] PR fortran/30792 -- Substring data-implied-do is invalid

[Thomas Koenig]

Hi Steve,

> The attached patch fixes PR fortran/30792.  A substring
> reference is invalid for a data-implied-do.  Regression
> tested on x86_64-*-freebsd.  OK to commit.

This should be safe enough, OK for trunk.

Thanks for the patch!

Regards

	Thomas