50 lines
836 B
Coq
50 lines
836 B
Coq
|
////////////////////////////////////////////////////////////////////////
|
||
|
|
// Copyright 2003 University of Kentucky
|
||
|
|
//
|
||
|
|
// This file is released into the public domain
|
||
|
|
////////////////////////////////////////////////////////////////////////
|
||
|
|
|
||
|
|
//
|
||
|
|
// Top level module
|
||
|
|
//
|
||
|
|
module top();
|
||
|
|
parameter tp = 'd1;
|
||
|
|
|
||
|
|
reg a;
|
||
|
|
wire b;
|
||
|
|
|
||
|
|
bot b1(b, a);
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
a = 0;
|
||
|
|
$display("tp = %d in top", tp);
|
||
|
|
end
|
||
|
|
endmodule
|
||
|
|
|
||
|
|
|
||
|
|
//
|
||
|
|
// bottom level module
|
||
|
|
//
|
||
|
|
|
||
|
|
`define div 0.100
|
||
|
|
|
||
|
|
module bot(a, b);
|
||
|
|
input b;
|
||
|
|
output a;
|
||
|
|
|
||
|
|
real tp; // tp is overridden by tp parameter in top
|
||
|
|
real tp2;
|
||
|
|
|
||
|
|
assign a = b;
|
||
|
|
initial begin
|
||
|
|
tp = 1 / `div;
|
||
|
|
tp2 = 1 / `div;
|
||
|
|
$display("tp = %f, tp2 = %f", tp, tp2);
|
||
|
|
if (tp != 10.0)
|
||
|
|
$display("tp != 10.0. (tp = %f)", tp);
|
||
|
|
else
|
||
|
|
$display("tp == 10, (expected)");
|
||
|
|
#1 $display("tp = %f, tp2 = %f", tp, tp2);
|
||
|
|
end
|
||
|
|
endmodule
|