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

To be gnatchop'ed and installed into the gnat.dg testsuite:

        * gnat.dg/opt46.ad[sb]: New testcase.
        * gnat.dg/opt46_pkg.ad[sb]: New helper.