aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/opt42.ads
blob: 3d6a3c14a86b4cb826b625e8eedda692ab3cec7e (plain)
1
2
3
4
5
6
7
8
9
package Opt42 is

   type Index_Type is range 1 .. 7;
   type Row_Type is array (Index_Type) of Float;
   type Array_Type is array (Index_Type) of Row_Type;

   function "*" (Left, Right : in Array_Type) return Array_Type;

end Opt42;