fat_fields.adb

   1 -- RUN: %llvmgcc -c %s -I%p/Support
   2 -- RUN: %llvmgcc -c %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;