block.f

gh19161.f90