1-- { dg-do compile }
2
3package body Volatile12 is
4
5   procedure Proc (A : Arr) is begin null; end;
6
7end Volatile12;
8