testsuite/gna/bug046/bug_pkg.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

package bug_pkg is
  procedure proc_bug(constant t : in  time := 8.68 us);
  procedure proc_ok1(constant t : in  time);
  procedure proc_ok2(constant t : in  integer := 5);
end bug_pkg;

package body bug_pkg is
  procedure proc_bug(constant t : in  time := 8.68 us) is
  begin
  end proc_bug;

  procedure proc_ok1(constant t : in  time) is
  begin
  end proc_ok1;

  procedure proc_ok2(constant t : in  integer := 5) is
  begin
  end proc_ok2;
end bug_pkg;