PR ipa/83051
[official-gcc.git] / gcc / testsuite / gnat.dg / constant4.adb
blob826823a6248680359303d418018ac9a721aae55f
1 -- { dg-do link }
2 -- { dg-options "-gnat12" }
4 with Constant4_Pkg; use Constant4_Pkg;
6 procedure Constant4 is
7 Sum : Counter := 0;
8 begin
9 for Count of Steals loop
10 Sum := Sum + Count;
11 end loop;
12 end;