From e7f223da0ad86e2e00074302256aa43b43a83e9c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 8 Dec 2016 05:31:45 +0100
Subject: Add tests for oread (some are old)

---
 src/ortho/oread/tests/asgn_acc.on | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 src/ortho/oread/tests/asgn_acc.on

(limited to 'src/ortho/oread/tests/asgn_acc.on')

diff --git a/src/ortho/oread/tests/asgn_acc.on b/src/ortho/oread/tests/asgn_acc.on
new file mode 100644
index 000000000..01559c081
--- /dev/null
+++ b/src/ortho/oread/tests/asgn_acc.on
@@ -0,0 +1,13 @@
+TYPE int32 IS SIGNED (32);
+TYPE int32_acc IS ACCESS int32;
+PRIVATE CONSTANT zero_i32 : int32 := 0;
+
+PRIVATE PROCEDURE call_arg_addr ()
+DECLARE
+BEGIN
+DECLARE
+  LOCAL VAR ap : int32_acc;
+BEGIN
+  ap := int32_acc'address (zero_i32);
+END;
+END;
\ No newline at end of file
-- 
cgit v1.2.3