summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/opt17.ads
blob: 601c2f201c8d462d35056e2f3067fc6e332d8e5b (plain)
1
2
3
4
5
6
7
package Opt17 is

  subtype S is String (1 .. 5);

  function Func return S;

end Opt17;