subroutine test_load ()
call lala( 'display(ones(80,1)''*61)')
call lala( 'help load')
call lala( [ character(len=256) :: &
& 'clear ', &
& 'A=magic(4); b=ones(3,4); c=12**2; ', &
& 'test_Variable=1234567890; ', &
& 'save(''__saved''); ', &
& 'who; clear; who ', &
& 'load(''__saved'') ', &
& 'who ', &
& 'tally=[0]; ', &
& 'if A=magic(4), tally=[tally,0];display(''load of A PASSED'');else,tally=[tally,1];display(''load of A FAILED''); ', &
& 'if b=ones(3,4), tally=[tally,0];display(''load of b PASSED'');else,tally=[tally,1];display(''load of b FAILED''); ', &
& 'if c=12**2, tally=[tally,0];display(''load of c PASSED'');else,tally=[tally,1];display(''load of c FAILED''); ', &
& 'if test_Variable=1234567890, ... ', &
& ' tally=[tally,0];... ', &
& ' display(''load of test_variable PASSED'');... ', &
& ' else,... ', &
& ' tally=[tally,1];... ', &
& ' display(''load of test_variable FAILED''); ', &
& 'end; ', &
& 'if sum(tally)=0,display(''load PASSED'');else,display(''load FAILED'');tally ', &
& 'delete(''__saved'') // delete the scratch file ', &
& ''])
end subroutine test_load