gcc/testsuite/gnat.dg/opt42.ads

   1 package Opt42 is
   2
   3    type Index_Type is range 1 .. 7;
   4    type Row_Type is array (Index_Type) of Float;
   5    type Array_Type is array (Index_Type) of Row_Type;
   6
   7    function "*" (Left, Right : in Array_Type) return Array_Type;
   8
   9 end Opt42;