Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/loop_optimization12.ads @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
package Loop_Optimization12 is type Enum1 is (A, B, C, D, E, F, G, H, I, J); type Enum2 is (A, B, C); type Enum3 is (A, B, C, D, E, F); type Enum4 is (A, B, C, D); type Enum5 is (A, B, C, D, E); type Arr is array (Enum3, Enum4, Enum4, Enum5, Enum5, Enum3, Enum2, Enum3, Enum5, Enum3) of Natural; type Arr_Ptr is access Arr; type Ext_Arr is array (Enum1) of Arr_Ptr; type Rec is record F : Ext_Arr; end record; type Rec_Ptr is access Rec; procedure Reset (S : Rec_Ptr); end Loop_Optimization12;