testsuite/gna/issue367/e.vhdl


1
2
3
4
5
6

entity e is end entity;
architecture a of e is
  constant s1 :string := foreign'path;
  constant s2 :string := foreign'foreign;
begin
end architecture;