hanchenye-llvm-project/llvm/test/FrontendAda/fat_fields.adb

11 lines
198 B
Ada
Raw Normal View History

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