llvm-6502/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;