blob: d7d04e4d353516871091f8d8da09568e975c958d [file] [log] [blame]
package Loop_Optimization15 is
type B16_T is mod 2 ** 16;
for B16_T'Size use 16;
for B16_T'Alignment use 1;
procedure Proc (L : B16_T);
end Loop_Optimization15;