[Bug middle-end/49189] [4.7 regression] infinite recursion in constant folder

[ebotcazou at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=49189

--- Comment #1 from Eric Botcazou <ebotcazou at gcc dot gnu.org> 2011-05-27 10:56:33 UTC ---
Created attachment 24367
  --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=24367
Concatenated testcase

Run gnatchop on the file.  Suitable for inclusion in the gnat.dg testsuite.