gcc/testsuite/gnat.dg/abstract_state1.adb

--  { dg-do compile }

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