From b06e84a2b7f7184fccbef8d897b32ca984a1b0d3 Mon Sep 17 00:00:00 2001
From: Jens Ahrensfeld <jens@jayfield.org>
Date: Sun, 21 Mar 2021 11:06:59 +0000
Subject: [PATCH] - added

git-svn-id: http://moon:8086/svn/vhdl/trunk@1419 cc03376c-175c-47c8-b038-4cd826a8556b
---
 projects/test/make.sh   | 11 +++++
 projects/test/test.vhdl | 98 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 109 insertions(+)
 create mode 100644 projects/test/make.sh
 create mode 100644 projects/test/test.vhdl

diff --git a/projects/test/make.sh b/projects/test/make.sh
new file mode 100644
index 0000000..3b39d65
--- /dev/null
+++ b/projects/test/make.sh
@@ -0,0 +1,11 @@
+#!/bin/sh
+
+STD_OPT="--workdir=work --ieee=standard --std=93c"
+
+ghdl --clean $STD_OPT
+ghdl --xref-html $STD_OPT test.vhdl >./test.htm
+
+ghdl -a $STD_OPT test.vhdl
+ghdl -e $STD_OPT test
+ghdl -r $STD_OPT test --vcd=test.vcd --assert-level=note
+ 
\ No newline at end of file
diff --git a/projects/test/test.vhdl b/projects/test/test.vhdl
new file mode 100644
index 0000000..30b657f
--- /dev/null
+++ b/projects/test/test.vhdl
@@ -0,0 +1,98 @@
+--  Hello world program.
+library IEEE;
+use IEEE.STD_LOGIC_1164.ALL;
+use IEEE.MATH_REAL.ALL;
+
+use std.textio.all; --  Imports the standard textio package.
+
+--  Defines a design entity, without any ports.
+entity test is
+end test;
+
+architecture behaviour of test is
+subtype test_range_t is integer range -15 to 16;
+type test_t is array (test_range_t range <>) of std_ulogic;
+type natural_ptr is access natural;
+
+signal a_s, b_s : integer := 10;
+signal c_s : real := 0.0;
+signal clk_s : std_logic := '0';
+signal res_s : std_logic := '1';
+signal test_s : test_t(2 downto -5);
+
+begin
+resgen:
+  process
+    begin
+      wait for 10 ns;
+      res_s <= not res_s;
+      wait;
+  end process;
+
+clkgen:
+  process
+  variable count : natural_ptr;
+    begin
+      count := new natural'(10);
+      wait for 10 ns;
+        if (a_s > 0) then
+          clk_s <= not clk_s;
+        else
+          report "Ende der Simulation" severity note;
+        end if;
+        end process;
+
+output_proc:
+process (clk_s, res_s)
+  variable l : line;
+  variable b_v : integer := 0;
+  variable c_v : real := 1.0;
+begin
+  if (res_s = '1') then
+    write (l, String'("Hello world!"));
+    writeline (output, l);
+
+    write (l, String'("High="));
+    write (l, test_s'high);
+    writeline (output, l);
+
+    write (l, String'("Low="));
+    write (l, test_s'low);
+    writeline (output, l);
+
+    write (l, String'("Left="));
+    write (l, test_s'left);
+    writeline (output, l);
+
+    write (l, String'("Right="));
+    write (l, test_s'right);
+    writeline (output, l);
+
+    write (l, String'("Var="));
+    write (l, sin(math_pi_over_4));
+    writeline (output, l);
+
+
+  elsif (rising_edge(clk_s)) then
+    write (l, String'("a="));
+    write (l, a_s);
+    writeline (output, l);
+
+    write (l, String'("b="));
+    write (l, b_v);
+    writeline (output, l);
+
+    write (l, String'("c="));
+    write (l, c_v);
+    writeline (output, l);
+
+    a_s <= a_s - 1;
+    b_v := b_v + 1;
+    c_v := 0.1 * c_v;
+  end if;
+  b_s <= b_v after 3 ns;
+  c_s <= c_v after 3 ns;
+end process;
+
+end behaviour;
+