gcc/testsuite/gnat.dg/c_words.adb

   1 --  { dg-do compile }
   2
   3 package body C_Words is
   4
   5    function New_Word (Str : String) return Word is
   6    begin
   7       return (Str'Length, Str);
   8    end New_Word;
   9
  10    function New_Word (Str : String) return C_Word is
  11    begin
  12       return (Str'Length, Str);
  13    end New_Word;
  14 end C_Words;