blob: 510105f6840f36471993c1d7f63bb4e6e237f856 [file] [log] [blame]
-- RUN: %llvmgcc -c %s -I%p/Support
-- RUN: %llvmgcc -c %s -I%p/Support -O2
package body Fat_Fields is
procedure Proc is
begin
if P = null then
null;
end if;
end;
end;