ubuntu-buildroot/output/build/host-gcc-initial-11.4.0/gcc/testsuite/gnat.dg/opt56.ads

8 lines
140 B
Ada

package Opt56 is
type Vector is array (Positive range <>) of Float;
function F (Values : Vector) return Boolean;
end Opt56;