*ping* [patch, fortran] PR 56519: Reject impure intrinsic subroutines in DO CONCURRENT

[Thomas Koenig]

Ping**0.5714 ?


> the attached patch rejects impure subroutines, such as RANDOM_NUMBER,
> within DO CONCURRENT.
> 
> Regression-tested.  OK for trunk?