testsuite/gna: add test for #1145

1 files changed, 22 insertions, 0 deletions

diff --git a/testsuite/gna/issue1145/count.vhdl b/testsuite/gna/issue1145/count.vhdl
new file mode 100644
index 000000000..a515dd1de
--- /dev/null
+++ b/testsuite/gna/issue1145/count.vhdl
@@ -0,0 +1,22 @@
+library std;
+use std.textio.all;
+
+entity count is
+end entity count;
+
+architecture tb of count is
+begin
+  p_test : process is
+    variable v_line     : line;
+    variable nlines : natural := 0;
+  begin
+    while not endfile(input) loop
+      readline(input, v_line);
+      nlines := nlines + 1;
+    end loop;
+
+    report natural'image (nlines);
+    
+    wait;
+  end process;
+end architecture;