1--  { dg-do run }
2
3with elim1;
4procedure elim2 is
5begin
6   null;
7end;
8