1 files changed, 98 insertions, 0 deletions
diff --git a/src/systemc/tests/systemc/misc/stars/star103832/star103832.cpp b/src/systemc/tests/systemc/misc/stars/star103832/star103832.cpp
new file mode 100644
index 000000000..fd0d49e19
--- /dev/null
+++ b/src/systemc/tests/systemc/misc/stars/star103832/star103832.cpp
@@ -0,0 +1,98 @@
+/*****************************************************************************
+
+  Licensed to Accellera Systems Initiative Inc. (Accellera) under one or
+  more contributor license agreements.  See the NOTICE file distributed
+  with this work for additional information regarding copyright ownership.
+  Accellera licenses this file to you under the Apache License, Version 2.0
+  (the "License"); you may not use this file except in compliance with the
+  License.  You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
+  implied.  See the License for the specific language governing
+  permissions and limitations under the License.
+
+ *****************************************************************************/
+
+/*****************************************************************************
+
+  star103832.cpp -- 
+
+  Original Author: Martin Janssen, Synopsys, Inc., 2002-02-15
+
+ *****************************************************************************/
+
+/*****************************************************************************
+
+  MODIFICATION LOG - modifiers, enter your name, affiliation, date and
+  changes you are making here.
+
+      Name, Affiliation, Date:
+  Description of Modification:
+
+ *****************************************************************************/
+
+#include <systemc.h>
+
+struct test : sc_module {
+  
+  sc_in<bool> reset;
+  sc_in_clk clk;
+  sc_in<sc_uint<8> >  dati;
+  sc_out<sc_uint<8> >  dato;
+  sc_out<bool> done;
+
+  SC_HAS_PROCESS( test );
+  
+  test (const char *NAME) : sc_module(NAME) {
+    SC_CTHREAD( reset_loop, clk.pos() );
+    reset_signal_is(reset,true);
+    end_module();
+  }
+
+  void tc_mult_8x8(sc_uint<8> A, sc_uint<8> B, sc_uint<16>& Y);
+  void reset_loop();
+};
+
+void test::tc_mult_8x8(sc_uint<8> A, sc_uint<8> B, sc_uint<16>& Z) {
+  sc_uint<8> MantA;
+  sc_uint<16> MantC;
+  sc_uint<1> SignC, SignA, SignB;
+  sc_uint<8> MantB;
+  if (A == 0 || B == 0) {
+    Z = 0;
+  } else {
+    SignA = A[7];
+    SignB = B[7];
+    MantA = SignA ? sc_uint<8>(0 - A) : A;
+    MantB = SignB ? sc_uint<8>(0 - B) : B;
+    MantC = MantA *  MantB;
+    SignC = SignA ^ SignB;
+    MantC = SignC ? sc_uint<16>(0 - MantC) : MantC;
+    Z = (SignC, MantC.range(14,0));
+  }
+}
+
+void test::reset_loop() {
+  sc_uint<16> tmp;
+  sc_uint<8> inp;
+  done = 0;
+  dato = 0;
+  tmp = 0;
+  wait();
+  operational_loop : while (1 != 0) {
+    inp = dati.read();
+    wait();
+    tc_mult_8x8( inp, -2, tmp);
+    wait();
+    done_loop: while (1) {
+      dato = tmp;
+      done = 1;
+      wait();
+    }
+  }
+}
+