2016-11-21 Thomas Preud'homme <thomas.preudhomme@arm.com>
[official-gcc.git] / gcc / testsuite / gnat.dg / opt21.adb
blobc73fe9f228fb8fb85e9080bc368480efcff73859
1 -- { dg-do run }
2 -- { dg-options "-O2" }
4 with System;
5 with Opt21_Pkg; use Opt21_Pkg;
7 procedure Opt21 is
8 V : System.Address := Convert (null);
9 begin
10 null;
11 end;