extrinsic(hpf_local) subroutine vprng_local(a) use hpf_local_library !hpf$ distribute (block) a :One compiler complains as follows:
r01n05 % pghpf -c LotsaShifts.f PGHPF-S-0034-Syntax error at or near identifier a (LotsaShifts.f: 70) 0 inform, 0 warnings, 1 severes, 0 fatal for vprng_local PGHPF/any RS6000/AIX Rel 2.2-1: compilation completed with severe errorsThat can be a little mystifying, so we try it with another compiler:
r01n05 % xlhpf -c LotsaShifts.f ** lotsashifts === End of Compilation 1 === "LotsaShifts.f", line 70.5: 1513-174 (S) The DISTRIBUTE directive must not appear in an EXTRINSIC(HPF_LOCAL) subprogram. :