testsuite/gna: add a test for #1528

1 files changed, 21 insertions, 0 deletions

diff --git a/testsuite/gna/issue1528/ent2.vhdl b/testsuite/gna/issue1528/ent2.vhdl
new file mode 100644
index 000000000..66bcebfe3
--- /dev/null
+++ b/testsuite/gna/issue1528/ent2.vhdl
@@ -0,0 +1,21 @@
+use work.attrs_pkg.all;
+
+entity ent2 is
+  attribute ent_name of ent2: entity is "entity ent2";
+attribute ent_type of ent2: entity is "LogicII";
+attribute ent_stat of ent2: entity is 75;
+end entity ent2;
+
+architecture bhv of ent2 is
+attribute arc_name of bhv: architecture is "bhv of ent2";
+attribute arc_type of bhv: architecture is "BHV";
+attribute arc_stat of bhv: architecture is 100;
+begin
+process
+begin
+report "I am: " & bhv'arc_name;
+report "Type: " & bhv'arc_type;
+report "Status: " & integer'image(bhv'arc_stat);
+wait;
+end process;
+end bhv;