[Bug middle-end/64246] [5 Regression] ICE building libada for Windows due to NULL loop header

[ebotcazou at gcc dot gnu.org]

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

--- Comment #8 from Eric Botcazou <ebotcazou at gcc dot gnu.org> ---
> Yes, but in suitable form for gnat.dg (not sure how I can do
> multi-file testcases there or which one would be the main one)

Most testcases are multi-file under gnat.dg...  I'm going to attach it.