2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gnat.dg / anon2.adb
blobc114fcc8555aa8ea8fa9c12166bf60ced0ee1a61
1 -- { dg-do compile }
3 with anon1;
4 procedure anon2 is
5 begin
6 if anon1.F /= null then
7 null;
8 end if;
9 end anon2;