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