--  { dg-do compile }

package body Compile_Time_Error1 is

  procedure Dummy is null;

end Compile_Time_Error1;