test/FrontendAda/fat_fields.adb

   1 -- RUN: %llvmgcc -c %s -o /dev/null
   2 -- RUN: %llvmgcc -c %s -O2 -o /dev/null
   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;