gcc/testsuite/gnat.dg/derived_type6.adb

-- { dg-do compile }

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