1 files changed, 27 insertions, 0 deletions
diff --git a/testsuite/gna/ticket84/bug.vhdl b/testsuite/gna/ticket84/bug.vhdl
new file mode 100644
index 000000000..8541a70c0
--- /dev/null
+++ b/testsuite/gna/ticket84/bug.vhdl
@@ -0,0 +1,27 @@
+use std.textio.all;
+
+entity ent is
+end entity;
+
+architecture a of ent is
+begin
+  main : process
+    type binary_file is file of character;
+    file fptr_text : text;
+    file fptr_binary : binary_file;
+  begin
+    file_open(fptr_text, "file.txt", write_mode);
+    write(fptr_text, string'("a"));
+    write(fptr_text, string'("b"));
+    file_close(fptr_text);
+
+    file_open(fptr_binary, "file.raw", write_mode);
+    write(fptr_binary, character'('a'));
+    write(fptr_binary, character'('b'));
+    file_close(fptr_binary);
+
+    write(output, string'("a"));
+    write(output, string'("b"));
+    wait;
+  end process;
+end architecture;