%BEGIN
!***********************************************************************
!*    TESTS ASSIGNING TO STRING ARRAYS WHEN PASSED BY NAME             *
!***********************************************************************
%STRING(11)%ARRAY A(0:15,0:15)
%ROUTINE FRED(%STRINGARRAYNAME WA)
%STRING(15)W
%INTEGER WP
      WP=1
      W=WA(WP,WP)
      %IF W="?" %THEN WA(WP,WP)="TEST OK"
%END
A(1,1)="?"
FRED(A)
PRINTSTRING(A(1,1))
%ENDOFPROGRAM