1 files changed, 28 insertions, 0 deletions
diff --git a/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/functions/integer-type-overload.vhdl b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/functions/integer-type-overload.vhdl
new file mode 100644
index 000000000..3809b2df5
--- /dev/null
+++ b/testsuite/vests/vhdl-93/clifton-labs/compliant/functional/functions/integer-type-overload.vhdl
@@ -0,0 +1,28 @@
+entity test is
+end test;
+
+architecture only of test is
+  type integer_t1 is range 0 to 2;
+  type integer_t2 is range 2 to 4;
+  function test_function ( constant param : integer_t1 )
+    return boolean is
+  begin
+    return true;
+  end function;
+  
+  function test_function ( constant param : integer_t2 )
+    return boolean is
+  begin
+    return true;
+  end function;
+begin  -- only
+  test: process
+    variable result : boolean;
+    variable param1 : integer_t1 := 3;
+    variable param2 : integer_t2 := 5;
+  begin  -- process
+    result := test_function( param1 );
+    result := test_function( param2 );
+    wait;
+  end process;
+end only;