llvm-6502/test/AdaFrontend/fat_fields.adb
2007-03-05 08:34:35 +00:00

11 lines
198 B
Ada

-- RUN: %llvmgcc -c %s -o /dev/null
-- RUN: %llvmgcc -c %s -O2 -o /dev/null
package body Fat_Fields is
procedure Proc is
begin
if P = null then
null;
end if;
end;
end;