diff --git a/scripts/test_utility.vhd b/scripts/test_utility.vhd
index cb1b586..f398a82 100644
--- a/scripts/test_utility.vhd
+++ b/scripts/test_utility.vhd
@@ -12,6 +12,7 @@ package test_utility is
 
     type real_array is array ( natural range <> ) of real;
 
+    procedure assert_eq( a : in std_logic; b : in std_logic );
     procedure assert_eq( a : in std_logic_vector; b : in std_logic_vector );
 
     procedure assert_near( variable a : in real;
@@ -27,9 +28,17 @@ end package test_utility;
 
 package body test_utility is
 
+    procedure assert_eq( a : in std_logic; b : in std_logic ) is
+    begin
+        assert( a = b )
+            report TEST_FAIL & "assert_eq" & LF &
+                "    a: " & to_string( a ) & LF &
+                "    b: " & to_string( b ) & LF
+                severity error;
+    end procedure assert_eq;
+
     procedure assert_eq( a : in std_logic_vector; b : in std_logic_vector ) is
     begin
-
         assert( a = b )
             report TEST_FAIL & "assert_eq" & LF &
                 "    a: " & to_string( a ) & LF &