-- { dg-do compile }

package body Derived_Type6 is
  procedure Foo is null;
end Derived_Type6;