1entity test is
2end test;
3
4architecture only of test is
5begin  -- only
6  doit: process
7    variable string_var : string( 1 to 6 );
8  begin  -- process
9    string_var( 1 to 3 ) := "foo";
10    string_var( 4 to 6 ) := "bar";
11    assert string_var = "foobar" report "TEST FAILED" severity FAILURE;
12    report "TEST PASSED";
13    wait;
14  end process;
15end only;
16