1--  { dg-do compile }
2
3package body Freezing1 is
4   procedure Foo is null;
5end Freezing1;
6