testsuite/gna/issue67/fileerr.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

entity fileerr is
end fileerr;

use std.textio.all;

architecture behav of fileerr is
begin
  process
    file f : text;
  begin
    file_open (f, "bad-file-name");
    wait;
  end process;
end behav;