From 0286f588bfab7786d98c66fe67b93d3f446ae057 Mon Sep 17 00:00:00 2001
From: Wilson Snyder <wsnyder@wsnyder.org>
Date: Tue, 15 Jan 2013 19:23:46 -0500
Subject: [PATCH] Tests: bind by modname

---
 test_regress/t/t_bind2.pl | 2 --
 test_regress/t/t_bind2.v  | 5 ++++-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/test_regress/t/t_bind2.pl b/test_regress/t/t_bind2.pl
index 3a4d8b31a..f91289753 100755
--- a/test_regress/t/t_bind2.pl
+++ b/test_regress/t/t_bind2.pl
@@ -7,8 +7,6 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 # Lesser General Public License Version 3 or the Perl Artistic License
 # Version 2.0.
 
-$Self->{vlt} and $Self->unsupported("Verilator unsupported, bug602");
-
 compile (
     );
 
diff --git a/test_regress/t/t_bind2.v b/test_regress/t/t_bind2.v
index 6aeb26e7b..07b810e72 100644
--- a/test_regress/t/t_bind2.v
+++ b/test_regress/t/t_bind2.v
@@ -3,6 +3,8 @@
 // This file ONLY is placed into the Public Domain, for any use,
 // without warranty, 2013 by Ed Lander.
 
+// verilator lint_off WIDTH
+
 `define check(got,expec) do if ((got) != (expec)) begin $display("Line%0d:  Got 0x%0x Exp 0x%0x\n", `__LINE__, (got), (expec)); $stop; end while(0);
 
 module t (/*AUTOARG*/
@@ -36,7 +38,8 @@ module t (/*AUTOARG*/
    //p2 explictly bound to targetmod						(=> 0x05)
    //p3 explictly bound to top								(=> 0x03)
 
-   bind i_targetmod mycheck
+   // Alternative unsupported form is i_targetmod
+   bind targetmod mycheck
      #(
        .param2(param2),
        .param3(param3)