* snames.ads-tmpl (Name_Ivdep): New pragma-related name.
[official-gcc.git] / gcc / testsuite / gnat.dg / bug_elaboration_code.adb
blob0aa7abe808a6150122b6990ddc683684f6b3a5d4
1 package body Bug_Elaboration_Code is
3 procedure Increment_I is
4 begin
5 I := I + 1;
6 end Increment_I;
8 begin
9 I := 5;
10 Increment_I;
11 J := I;
12 end Bug_Elaboration_Code;