Project

General

Profile

Statistics
| Branch: | Tag: | Revision:

lustrec-tests / vhdl_json / vhdl_files / 2-exportOK / ghdl / ghdl / testsuite / vests / vhdl-93 / billowitch / compliant / tc164.vhd @ 3fd18385

History | View | Annotate | Download (2.34 KB)

1

    
2
-- Copyright (C) 2001 Bill Billowitch.
3

    
4
-- Some of the work to develop this test suite was done with Air Force
5
-- support.  The Air Force and Bill Billowitch assume no
6
-- responsibilities for this software.
7

    
8
-- This file is part of VESTs (Vhdl tESTs).
9

    
10
-- VESTs is free software; you can redistribute it and/or modify it
11
-- under the terms of the GNU General Public License as published by the
12
-- Free Software Foundation; either version 2 of the License, or (at
13
-- your option) any later version. 
14

    
15
-- VESTs is distributed in the hope that it will be useful, but WITHOUT
16
-- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
17
-- FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
18
-- for more details. 
19

    
20
-- You should have received a copy of the GNU General Public License
21
-- along with VESTs; if not, write to the Free Software Foundation,
22
-- Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA 
23

    
24
-- ---------------------------------------------------------------------
25
--
26
-- $Id: tc164.vhd,v 1.2 2001-10-26 16:29:42 paw Exp $
27
-- $Revision: 1.2 $
28
--
29
-- ---------------------------------------------------------------------
30

    
31
ENTITY c04s03b02x02p23n01i00164ent IS
32
END c04s03b02x02p23n01i00164ent;
33

    
34
ARCHITECTURE c04s03b02x02p23n01i00164arch OF c04s03b02x02p23n01i00164ent IS
35
  signal p1 : bit;   --added to make it compile
36
BEGIN
37
  TESTING: PROCESS(p1)
38
    VARIABLE v1,v2,v3,v4 : integer;
39

    
40
    PROCEDURE default_test
41
      (
42
        param_1 : in integer;
43
        default : in integer := 22;
44
        param_3 : out integer;
45
        param_4 : out integer
46
        )
47
    is
48
    begin
49
      param_3 := param_1;
50
      param_4 := default;
51
    end default_test;
52

    
53
  BEGIN
54
    v1 := 1919;
55
    default_test (v1,
56
                  -- missing association
57
                  param_3 => v3,
58
                  param_4 => v4
59
                  );
60
    assert NOT( v3=1919 and v4=22 )
61
      report "***PASSED TEST: c04s03b02x02p23n01i00164"
62
      severity NOTE;
63
    assert ( v3=1919 and v4=22 )
64
      report "***FAILED TEST: c04s03b02x02p23n01i00164 - If an association element is omitted from an association list in order to make use of the default expression on the corresponding interface element, all subsequent association elements in that association list must be named associations."
65
      severity ERROR;
66
  END PROCESS TESTING;
67

    
68
END c04s03b02x02p23n01i00164arch;