------- 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
