aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/issue821/ent.vhdl
blob: 93ccbd322e37c620499465e1798abd3abcc87179 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
entity tb is
	generic (output_path : string := "");
end entity;
architecture bench of tb is
  type tb_cfg_t is record
    s1 : string;
    s2 : string;
  end record tb_cfg_t;

  impure function decode return tb_cfg_t is
  begin
	return (
		s1 => output_path&"a",
		s2 => "b"
	);
  end function decode;
begin
	proc : process begin
		std.env.finish;
	end process;
end bench;