1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/machine_attr3.ads b/gcc/testsuite/gnat.dg/machine_attr3.ads
new file mode 100644
index 0000000..edb7b7d
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/machine_attr3.ads
@@ -0,0 +1,10 @@
+package Machine_Attr3 is
+
+  procedure Proc;
+
+private
+
+  Attr : constant String := "nothrow";
+  pragma Machine_Attribute (Proc, Attr);
+
+end Machine_Attr3;