[Bug ada/24726] Gigi abort, Code=508

[pinskia at gcc dot gnu dot org]

------- Comment #3 from pinskia at gcc dot gnu dot org  2006-03-19 07:18 -------
Reduced testcase:
package body sets is
    function complement (s : set) return set is begin
        return (not s);
    end complement;
end sets;
package sets is
    type set is private;
    function complement (s : set)  return set;
private
    type set is mod 2 ** 16 - 1;
end sets;
----------


-- 


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