| /* |
| * Hierarchical event testcase |
| * |
| * Copyright (C) 2002 Charles Lepple <clepple@ghz.cc> |
| * |
| * This program 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. |
| * |
| * compilation options: none necessary |
| */ |
| |
| `define TEST_HIERARCHICAL_EVENT |
| // yields parse error when defined |
| |
| module top(); |
| event toplevel_event; |
| |
| submodule sub(); |
| |
| initial #10 -> toplevel_event; |
| endmodule // top |
| |
| module submodule(); |
| event local_event; |
| |
| initial #25 -> local_event; |
| |
| always |
| begin |
| `ifdef TEST_HIERARCHICAL_EVENT |
| @(top.toplevel_event) |
| $display("at %0d: toplevel event triggered", $time); |
| `endif |
| @local_event |
| $display("at %0d: local event triggered", $time); |
| end |
| endmodule // submodule |
| |
| // local variables: |
| // verilog-simulator: "iverilog" |
| // end: |
