[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 #3 from Eric Botcazou <ebotcazou at gcc dot gnu.org> ---
Created attachment 34269
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=34269&action=edit
Concatenated testcase

To be gnatchop-ed and compile at -O.