Ошибки при написании тестбенча

timescale 1ns/10ps
module timer #( parameter size=4) (data,load,clk,reset,Time,out);
  input[size-1:0] data;
  output[size-1:0] out;
  input clk,reset,load;
  output Time;
  
  reg[size-1:0] out;
  reg Time;
  
  always @(posedge clk or posedge reset)
  begin
    if(reset)
      out=0;
    else
      if(load&Time)
        out=data;
      else
        if(!Time)
          out=out-1;
        else
          out=out;
  end
  
  always @(posedge clk or posedge reset)
  begin
    if(reset)
      Time=1;
    else
      if(out[size-1:0]==0)
        Time=1;
      else
        Time=0;
  end
  
endmodule

module statmach (In, Out, clk, Reset);
  input clk,Reset;
  input[3:0] In;
  output[4:0] Out;
  
  reg[4:0] Out;
  reg[3:0] State, NextState;
  wire TmrReady;
  reg TmrLoad=1;
  reg[4:0] TmrDelay=5;
  
  parameter s0=0, s1=1, s2=2, s3=3;
  
  
  always @(posedge clk or posedge Reset)
  begin
    if(Reset)
      State=s0;
    else
      if(TmrReady)
        State=NextState;
  end
  
  
  always @(State)
  begin
    case(State)
      s0: NextState=s1;
      s1: NextState=s2;
      s2: NextState=s3;
      s3: NextState=s0;
    endcase
  end
  
  
  always @(State)
  begin
    case(State)
      s0: Out=5'b00011;
      s1: Out=5'b00110;
      s2: Out=5'b01100;
      s3: Out=5'b11000;
      default: Out=5'b11111;
    endcase
  end
  
  timer #(5) TIMER(.Out(), .clk(clk), .Reset(Reset), .Load(TmrLoad), .Data(TmrDelay), .Time(TmrReady));
  
endmodule

`timescale 1ns/10ps
 `define EOF 32'hFFFF_FFFF
 `define NULL 0
 `define MAX_LINE_LENGTH 1000
 `define INPUT_FILE_NAME "vectors.pat"
 
 module TestStatmach;
   reg clk, Reset;
   reg In;
   reg[31:0] TmpValue;
   wire Out;
   statmach dut(In, Out, clk, Reset);
   
   initial
   begin  
     clk=0;
     #10 forever #10 clk=!clk;
   end
   
   initial
   begin
     Reset=0;
     #10 Reset=1;
     #30 Reset=0;
   end
   
   integer file;
   reg[31:0] c, r, dec, hex;
   reg[3:0] bin;
   real RealTime;
   reg[8*`MAX_LINE_LENGTH:0] line;
   
   initial
   begin
     $timeformat(-9, 3, "ns", 6);
     file=$fopen(`INPUT_FILE_NAME, "r");
     if((file!=`EOF)&(file!=0))
       $display("The input file was opened succesfully.");
     else
       begin
         $display("ERROR: unable to open the input file");
         $finish;
       end
       
     c=$fgetc(file);
     
     $display("time bin decimal hex");
     
     while(c!=`EOF)
     begin
       if(c=="/")
         r=$fgets(line,file);
       else
         begin
           r=$ungetc(c, file);
           r=$fscanf(file, "f:\n", RealTime);
           
           if($realtime>RealTime)
             $display("Error - absolute time in file is out of order - %t", RealTime);
           else
             #(RealTime-$realtime)
             r=$fscanf(file, "%b %d %h\n", bin, dec, hex);
           
           in=bin[0];
           
         end
         
         c=$fgetc(file);
         
    end
    
    $fclose(file);
    
    $stop;
   end 
   
   always @(bin or dec or hex)
     $display("%t %b %d %h", $realtime, bin, dec, hex);
     
endmodule