1
0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2024-11-26 04:32:44 +01:00
llvm-mirror/test/FrontendAda/fat_fields.adb
2010-11-25 21:21:59 +00:00

11 lines
198 B
Ada

-- RUN: %llvmgcc -S %s -I%p/Support
-- RUN: %llvmgcc -S %s -I%p/Support -O2
package body Fat_Fields is
procedure Proc is
begin
if P = null then
null;
end if;
end;
end;