-- { dg-do compile } -- { dg-options "-Wall -O2" } package body Containers1 is procedure Dummy is null; end Containers1;