llvm-mirror/test/FrontendAda/fat_fields.adb

11 lines
198 B
Ada
Raw Normal View History

-- RUN: %llvmgcc -c %s -I%p/Support
-- RUN: %llvmgcc -c %s -I%p/Support -O2
2007-04-03 21:46:22 +00:00
package body Fat_Fields is
procedure Proc is
begin
if P = null then
null;
end if;
end;
end;