1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/c_words.adb b/gcc/testsuite/gnat.dg/c_words.adb
new file mode 100644
index 000000000..dff871640
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/c_words.adb
@@ -0,0 +1,14 @@
+--  { dg-do compile }
+
+package body C_Words is
+   
+   function New_Word (Str : String) return Word is
+   begin
+      return (Str'Length, Str);
+   end New_Word;
+   
+   function New_Word (Str : String) return C_Word is
+   begin
+      return (Str'Length, Str);
+   end New_Word;
+end C_Words;