1
2-- Copyright (C) 2001-2002 The University of Cincinnati.
3-- All rights reserved.
4
5-- This file is part of VESTs (Vhdl tESTs).
6
7-- UC MAKES NO REPRESENTATIONS OR WARRANTIES ABOUT THE SUITABILITY OF THE
8-- SOFTWARE, EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
9-- IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE,
10-- OR NON-INFRINGEMENT.  UC SHALL NOT BE LIABLE FOR ANY DAMAGES SUFFERED BY
11-- LICENSEE AS A RESULT OF USING, RESULT OF USING, MODIFYING OR
12-- DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES.
13
14-- By using or copying this Software, Licensee agrees to abide by the
15-- intellectual property laws, and all other applicable laws of the U.S.,
16-- and the terms of this license.
17
18-- You may modify, distribute, and use the software contained in this
19-- package under the terms of the "GNU GENERAL PUBLIC LICENSE" version 2,
20-- June 1991. A copy of this license agreement can be found in the file
21-- "COPYING", distributed with this archive.
22
23-- You should have received a copy of the GNU General Public License
24-- along with VESTs; if not, write to the Free Software Foundation,
25-- Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
26
27-- ---------------------------------------------------------------------
28--
29-- $Id: test177.ams,v 1.1 2002-03-27 22:11:19 paw Exp $
30-- $Revision: 1.1 $
31--
32-- ---------------------------------------------------------------------
33
34----------------------------------------------------------------------
35-- SIERRA REGRESSION TESTING MODEL
36-- Develooped at:
37-- Distriburted Processing Laboratory
38-- University of Cincinnati
39-- Cincinnati
40----------------------------------------------------------------------
41-- File          : test177.ams
42-- Author(s)     : Geeta Balarkishnan(gbalakri@ececs.uc.edu)
43-- Created       : Sept 2001
44----------------------------------------------------------------------
45-- Description :
46----------------------------------------------------------------------
47-- the test is done for checking the correct implementation
48-- of the 'path_name attribute.
49
50--PACKAGE electricalSystem IS
51--    NATURE electrical IS real ACROSS real THROUGH GROUND REFERENCE;
52--    FUNCTION  SIN (X : real ) RETURN real;
53--    FUNCTION  EXP  (X : real ) RETURN real;
54--END PACKAGE electricalSystem;
55
56--USE work.electricalSystem.all;
57
58ENTITY Bottom IS
59generic(GBottom:integer);
60--port (PBottom:integer);
61constant SBottom:integer:=4;
62END Bottom;
63
64ARCHITECTURE BottomArch OF Bottom IS
65begin
66	ProcessBottom: process
67		variable V:integer;
68	begin
69		if GBottom=4 then
70		 assert
71		 V'Path_Name= ":top:b1:b2:g1(4):b3:11:processbottom:v";
72		  -- and GBottom'Path_Name=":top:b1:b2:g1(4):b3:11:gbottom";
73		elsif GBottom=1 then
74		   assert
75		   V'Path_Name= ":top:12:processbottom:v";
76		else
77		   assert
78		   GBottom'Path_Name="top:12:gbottom";
79		end if;
80		wait;
81	end process ProcessBottom;
82end architecture BottomArch;
83