1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/test_equal1.adb b/gcc/testsuite/gnat.dg/test_equal1.adb
new file mode 100644
index 000000000..7731f0c51
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/test_equal1.adb
@@ -0,0 +1,13 @@
+-- { dg-do compile }
+
+with equal1;
+procedure test_equal1 is
+  subtype Boolean_T is Boolean;
+  function "=" (L, R : in equal1.Basic_Connection_Status_T)
+    return Boolean_T renames equal1."=";
+  Status : equal1.Basic_Connection_Status_T;
+  Result : Boolean_T;
+begin
+  Status := equal1.Temporary_Disconnected;
+  Result := Status /= equal1.Connected;
+end;