1 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/gna/bug063/dff.vhdl b/testsuite/gna/bug063/dff.vhdl
new file mode 100644
index 000000000..c1c7809a9
--- /dev/null
+++ b/testsuite/gna/bug063/dff.vhdl
@@ -0,0 +1,17 @@
+entity DFF is
+     port (CLK, CLEAR, D : in bit;
+           Q : out bit);
+end;
+
+architecture BEHAV of DFF is
+begin
+process (CLK, CLEAR)
+     begin
+           if (CLEAR = ‘1’) then
+                Q <= ‘0’;
+           elsif (CLK’event and CLK = ‘1’) then
+                Q <= D;
+           end if;
+     end process;
+end BEHAV;
+