%externalroutine fred %alias "s#go"
%externalstring(255)%fnspec getname
%externalroutinespec proc(%stringname one)
       proc(getname)
%end
%externalstring(255)%fn getname
   %result="codswallop"
%end
%externalroutine proc(%stringname one)
      %if one="codswallop" %then printstring("TestOK") %else %start
         printstring("Bug found expected=codswallop actual=".one)
      %finish
      newlines(2)
%end
%endoffile