1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/sso19_pkg.adb b/gcc/testsuite/gnat.dg/sso19_pkg.adb
new file mode 100644
index 0000000..cbcb2f9
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/sso19_pkg.adb
@@ -0,0 +1,13 @@
+package body SSO19_Pkg is
+
+  function Is_Valid_Private (Item : Data) return Boolean is
+  begin
+    return Item.I'Valid and Item.F'Valid;
+  end Is_Valid_Private;
+
+  function Is_Valid (Item : Rec) return Boolean is
+  begin
+    return Is_Valid_Private (Item.D);
+  end Is_Valid;
+
+end SSO19_Pkg;