-- Copyright (C) 2001 Bill Billowitch.
-- Some of the work to develop this test suite was done with Air Force
-- support. The Air Force and Bill Billowitch assume no
-- responsibilities for this software.
-- This file is part of VESTs (Vhdl tESTs).
-- VESTs is free software; you can redistribute it and/or modify it
-- under the terms of the GNU General Public License as published by the
-- Free Software Foundation; either version 2 of the License, or (at
-- your option) any later version.
-- VESTs is distributed in the hope that it will be useful, but WITHOUT
-- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
-- for more details.
-- You should have received a copy of the GNU General Public License
-- along with VESTs; if not, write to the Free Software Foundation,
-- Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-- ---------------------------------------------------------------------
--
-- $Id: tc996.vhd,v 1.2 2001-10-26 16:30:04 paw Exp $
-- $Revision: 1.2 $
--
-- ---------------------------------------------------------------------
-- too mangled up to fix for me
PACKAGE c06s03b00x00p08n01i00996pkg IS
--
-- This packages contains declarations of User attributes
--
-- ----------------------------------------------------------------------
--
TYPE RESISTANCE IS RANGE 0 TO 1E9
UNITS
pf;
nf = 1000 pf;
mf = 1000 nf;
END UNITS;
TYPE t_logic IS (
U, D,
Z0, Z1, ZDX, DZX, ZX,
W0, W1, WZ0, WZ1, WDX, DWX, WZX, ZWX, WX,
R0, R1, RW0, RW1, RZ0, RZ1, RDX, DRX, RZX, ZRX, RWX, WRX, RX,
F0, F1, FR0, FR1, FW0, FW1, FZ0, FZ1, FDX, DFX, FZX, ZFX, FWX, WFX, FRX, RFX, FX
);
--
-- Scalar types Declarations
--
SUBTYPE st_scl1 IS BOOLEAN;
SUBTYPE st_scl2 IS BIT;
SUBTYPE st_scl3 IS CHARACTER;
SUBTYPE st_scl4 IS INTEGER;
SUBTYPE st_scl5 IS REAL;
SUBTYPE st_scl6 IS TIME;
SUBTYPE st_scl7 IS RESISTANCE;
SUBTYPE st_scl8 IS t_logic;
--
-- character string types
--
SUBTYPE st_str1 IS STRING;
SUBTYPE st_str2 IS STRING (1 TO 4);
-- ---------------------------------------------------------------------
-- Attribute Declarations
-- ---------------------------------------------------------------------
--
ATTRIBUTE atr_scl1 : st_scl1;
ATTRIBUTE atr_scl2 : st_scl2;
ATTRIBUTE atr_scl3 : st_scl3;
ATTRIBUTE atr_scl4 : st_scl4;
ATTRIBUTE atr_scl5 : st_scl5;
ATTRIBUTE atr_scl6 : st_scl6;
ATTRIBUTE atr_scl7 : st_scl7;
ATTRIBUTE atr_scl8 : st_scl8;
ATTRIBUTE atr_str1 : st_str1;
ATTRIBUTE atr_str2 : st_str2;
END;
USE WORK.c06s03b00x00p08n01i00996pkg.all;
ENTITY c06s03b00x00p08n01i00996ent IS
GENERIC (
p_scl1 : st_scl1;
p_scl2 : st_scl2;
p_scl3 : st_scl3;
p_scl4 : st_scl4;
p_scl5 : st_scl5;
p_scl6 : st_scl6;
p_scl7 : st_scl7;
p_scl8 : st_scl8;
p_str1 : st_str1;
p_str2 : st_str2;
labelid : STRING );
END c06s03b00x00p08n01i00996ent;
ARCHITECTURE c06s03b00x00p08n01i00996arch OF c06s03b00x00p08n01i00996ent IS
-- This entity behavior checks the values of attributes referenced at the configuration.
BEGIN
PROCESS
BEGIN
ASSERT p_scl1 = TRUE
REPORT "ERROR: Wrong value for " & labelid & "'atr_scl1" SEVERITY FAILURE;
ASSERT p_scl2 = '0'
REPORT "ERROR: Wrong value for " & labelid & "'atr_scl2" SEVERITY FAILURE;
ASSERT p_scl3 = 'z'
REPORT "ERROR: Wrong value for " & labelid & "'atr_scl3" SEVERITY FAILURE;
ASSERT p_scl4 = 0
REPORT "ERROR: Wrong value for " & labelid & "'atr_scl4" SEVERITY FAILURE;
ASSERT p_scl5 = 10.0
REPORT "ERROR: Wrong value for " & labelid & "'atr_scl5" SEVERITY FAILURE;
ASSERT p_scl6 = 10 ns
REPORT "ERROR: Wrong value for " & labelid & "'atr_scl6" SEVERITY FAILURE;
ASSERT p_scl7 = 10000 pf
REPORT "ERROR: Wrong value for " & labelid & "'atr_scl7" SEVERITY FAILURE;
ASSERT p_scl8 = FX
REPORT "ERROR: Wrong value for " & labelid & "'atr_scl8" SEVERITY FAILURE;
ASSERT p_str1 = "signal"
REPORT "ERROR: Wrong value for " & labelid & "'atr_str1" SEVERITY FAILURE;
ASSERT p_str2 = "XXXX"
REPORT "ERROR: Wrong value for " & labelid & "'atr_str2" SEVERITY FAILURE;
assert NOT( p_scl1 = TRUE
and p_scl2 = '0'
and p_scl3 = 'z'
and p_scl4 = 0
and p_scl5 = 10.0
and p_scl6 = 10 ns
and p_scl7 = 10000 pf
and p_scl8 = FX
and p_str1 = "signal"
and p_str2 = "XXXX")
report "***PASSED TEST: c06s03b00x00p08n01i00996"
severity NOTE;
assert ( p_scl1 = TRUE
and p_scl2 = '0'
and p_scl3 = 'z'
and p_scl4 = 0
and p_scl5 = 10.0
and p_scl6 = 10 ns
and p_scl7 = 10000 pf
and p_scl8 = FX
and p_str1 = "signal"
and p_str2 = "XXXX")
report "***FAILED TEST: c06s03b00x00p08n01i00996 - Expanded name denotes a primary unit contained in design library test failed."
severity ERROR;
wait;
END PROCESS;
END;
USE WORK.c06s03b00x00p08n01i00996pkg.all;
ENTITY c06s03b00x00p08n01i00996ent_a IS
END c06s03b00x00p08n01i00996ent_a;
ARCHITECTURE c06s03b00x00p08n01i00996arch OF c06s03b00x00p08n01i00996ent IS
--
COMPONENT c06s03b00x00p08n01i00996ent_a
END COMPONENT;
BEGIN
check : c06s03b00x00p08n01i00996ent_a;
END c06s03b00x00p08n01i00996arch;
USE WORK.c06s03b00x00p08n01i00996pkg.all;
CONFIGURATION c06s03b00x00p08n01i00996cfg OF c06s03b00x00p08n01i00996ent IS
ATTRIBUTE atr_scl1 OF c06s03b00x00p08n01i00996cfg: CONFIGURATION IS TRUE;
ATTRIBUTE atr_scl2 OF c06s03b00x00p08n01i00996cfg: CONFIGURATION IS '0';
ATTRIBUTE atr_scl3 OF c06s03b00x00p08n01i00996cfg: CONFIGURATION IS 'z';
ATTRIBUTE atr_scl4 OF c06s03b00x00p08n01i00996cfg: CONFIGURATION IS 0;
ATTRIBUTE atr_scl5 OF c06s03b00x00p08n01i00996cfg: CONFIGURATION IS 10.0;
ATTRIBUTE atr_scl6 OF c06s03b00x00p08n01i00996cfg: CONFIGURATION IS 10 ns;
ATTRIBUTE atr_scl7 OF c06s03b00x00p08n01i00996cfg: CONFIGURATION IS 10000 pf;
ATTRIBUTE atr_scl8 OF c06s03b00x00p08n01i00996cfg: CONFIGURATION IS FX;
ATTRIBUTE atr_str1 OF c06s03b00x00p08n01i00996cfg: CONFIGURATION IS "signal";
ATTRIBUTE atr_str2 OF c06s03b00x00p08n01i00996cfg: CONFIGURATION IS "XXXX";
FOR c06s03b00x00p08n01i00996arch
FOR check : c06s03b00x00p08n01i00996ent_a USE ENTITY WORK.c06s03b00x00p08n01i00996ent_a(c06s03b00x00p08n01i00996arch_a)
GENERIC MAP (
c06s03b00x00p08n01i00996cfg'atr_scl1,
c06s03b00x00p08n01i00996cfg'atr_scl2,
c06s03b00x00p08n01i00996cfg'atr_scl3,
c06s03b00x00p08n01i00996cfg'atr_scl4,
c06s03b00x00p08n01i00996cfg'atr_scl5,
c06s03b00x00p08n01i00996cfg'atr_scl6,
c06s03b00x00p08n01i00996cfg'atr_scl7,
c06s03b00x00p08n01i00996cfg'atr_scl8,
c06s03b00x00p08n01i00996cfg'atr_str1,
c06s03b00x00p08n01i00996cfg'atr_str2,
"work.c06s03b00x00p08n01i00996cfg" );
END FOR;
END FOR;
END c06s03b00x00p08n01i00996cfg;