1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/warn6.adb b/gcc/testsuite/gnat.dg/warn6.adb
new file mode 100644
index 0000000..0a388f1
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/warn6.adb
@@ -0,0 +1,13 @@
+-- { dg-do compile }
+-- { dg-options "-O2" }
+
+with Unchecked_Conversion;
+with System;
+
+package body Warn6 is
+
+  function Conv is new Unchecked_Conversion (System.Address, Q_T);
+
+  procedure Dummy is begin null; end;
+
+end Warn6;