aboutsummaryrefslogtreecommitdiffstats
path: root/test/FrontendAda/fat_fields.adb
blob: 510105f6840f36471993c1d7f63bb4e6e237f856 (plain)
1
2
3
4
5
6
7
8
9
10
-- 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;