testsuite/vests/vhdl-93/clifton-labs/compliant/functional/functions/simple-procedure-call.vhdl


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

entity test is
end test;

architecture only of test is
  procedure doit is
  begin
    report "PROCEDURE CALLED!";
  end procedure;
begin  -- only
  process
  begin  -- process doit
    doit;
    report "TEST PASSED";
    wait;    
  end process;
end only;