[Bug libgomp/69183] ICE when using OpenMP PRIVATE keyword in OMP DO loop not explicitly encapsulated in OMP PARALLEL region

[iain.miller at ecmwf dot int]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69183

--- Comment #2 from Iain Miller <iain.miller at ecmwf dot int> ---
On further testing and investigation the ICE only appears when attempting to
allocate and use ZHOFX.

Removing all references to ZHOFX in the test case allows it the subroutine to
compile.