https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95053
--- Comment #18 from Bill Seurer <seurer at linux dot vnet.ibm.com> ---
I am still cutting down the code but this should answer the question about if
it really could be zero:
if (cldeps > 0) then
do k = k1,k2
asort(nxs) = 1.0_r8-(floor(cld(i,k)/cldeps)*cldeps)
. . .
5911 | asort(nxs) =
1.0_r8-(floor(cld(i,k)/cldeps)*cldeps)
| 1
Error: Division by zero at (1)
