-- { dg-do compile } package body Assert2 is procedure Dummy is null; end Assert2;