rtl/Icarus/fileio-test.v

   1 module main();
   2    integer file, ch;
   3    reg clk = 1;
   4
   5
   6    always #5 clk <= ~clk;
   7
   8    always @(posedge clk) begin
   9       $write("%05d Hello ", $time);
  10       $strobe("Testing");
  11
  12       $display(" foobar ");
  13       ch = $fgetc(file);
  14       $display("<%c>", ch);
  15
  16    end
  17
  18
  19    initial begin
  20       file = $fopen("fileio-test.v", "r");
  21
  22
  23       #100 $finish;
  24
  25    end
  26 endmodule // main