From 869e8eab3c6ab50fe92472ea5b9a54218ac0ead9 Mon Sep 17 00:00:00 2001
From: Wilson Snyder <wsnyder@wsnyder.org>
Date: Tue, 7 Aug 2012 20:37:28 -0400
Subject: [PATCH] tests; check package to package refs

---
 test_regress/t/t_package_abs.v | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/test_regress/t/t_package_abs.v b/test_regress/t/t_package_abs.v
index fcb743051..00c0f42e5 100644
--- a/test_regress/t/t_package_abs.v
+++ b/test_regress/t/t_package_abs.v
@@ -9,6 +9,9 @@ package functions;
    function real abs (real num);
       abs = (num <0) ? -num : num;
    endfunction
+   function real neg (real num);
+      return -abs(num);  // Check package funcs can call package funcs
+   endfunction
 endpackage
 
 module t ();
@@ -19,6 +22,8 @@ module t ();
 	 initial begin
 	    if (abs(-2.1) != 2.1) $stop;
 	    if (abs(2.2) != 2.2) $stop;
+	    if (neg(-2.1) != -2.1) $stop;
+	    if (neg(2.2) != -2.2) $stop;
 	    $write("*-* All Finished *-*\n");
 	    $finish;
 	 end