/* EPC Imp to C Translation Release 4 Version Apr 95 */


#include "imptoc.h"

main() {
/*************************************************************************/
/**    TESTS ASSIGNING TO STRING ARRAYS WHEN PASSED BY NAME             **/
/*************************************************************************/
char a [15+1] [12]  [15+1] [12] ;
static void fred(char * wa) {
char w [16] ;
int wp;
 wp=1;
 strcpy(w,wa [wp] [wp]);
if (strcmp(w,"?")==0)  strcpy(wa [wp] [wp],"TEST OK");
}
 strcpy(a [1] [1],"?");
 fred(&a[0] [0] );
 fprintf(out_file, "%s", a [1] [1]);
exit(0);
}

/* end of automatic translation */