blob: 9424abcb8bc82ef8eb9557e11fb19b0d69b7497a [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-gnata" }
package body Equal8 is
procedure Foo is null;
end Equal8;