1 -- RUN: %llvmgcc -S %s -I%p/Support 2 -- RUN: %llvmgcc -S %s -I%p/Support -O2 3 package body Fat_Fields is 4 procedure Proc is 5 begin 6 if P = null then 7 null; 8 end if; 9 end; 10 end; 11
