gcc/testsuite/gnat.dg/opt21.adb

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