entity fg_07_01 is
end entity fg_07_01;



architecture test of fg_07_01 is

  shared variable average : real := 0.0;
  type sample_array is array (positive range <>) of real;
  constant samples : sample_array :=
    ( 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0 );

  -- code from book

  procedure average_samples is
    variable total : real := 0.0;
  begin
    assert samples'length > 0 severity failure;
    for index in samples'range loop
      total := total + samples(index);
    end loop;
    average := total / real(samples'length);
  end procedure average_samples;

  -- end code from book

begin

  -- code from book (in text)

  average_samples;

  -- end code from book

end architecture test;