1-- { dg-do run }
2-- { dg-options "-O2" }
3
4with System;
5with Opt21_Pkg; use Opt21_Pkg;
6
7procedure Opt21 is
8   V : System.Address := Convert (null);
9begin
10   null;
11end;
12