PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / c_words.adb
blobdff8716401c40b857d5a415ad31e0ffb621665d3
1 -- { dg-do compile }
3 package body C_Words is
5 function New_Word (Str : String) return Word is
6 begin
7 return (Str'Length, Str);
8 end New_Word;
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;