Constants marked constant, redundant with clauses no longer redundant

1 files changed, 1 insertions, 1 deletions

diff --git a/example/sine_block.adb b/example/sine_block.adb
index 538d1d9..e6d3d21 100644
--- a/example/sine_block.adb
+++ b/example/sine_block.adb
@@ -30,7 +30,7 @@ procedure Sine_Block is
     --  Note how this array specifies the bounds in the initial value rather than the type.
     --  This is important because otherwise the aliasing would cause subtype mismatch errors.
     Sample_Array : aliased Pstm.Float_32_Array := (1 .. Natural (Per_Buffer) * Channels => 0.0);
-    Sample_Buffer : Pstm.Buffer := Pstm.Wrap (Sample_Array, Per_Buffer, Channels);
+    Sample_Buffer : constant Pstm.Buffer := Pstm.Wrap (Sample_Array, Per_Buffer, Channels);
 
     type Table_Index is mod 200;
     Sine_Table : array (Table_Index) of Interfaces.IEEE_Float_32;