polserver/testsuite/escript/func/funcref01.src

function test( c )
  return ( "works" + c );
endfunction

function copy( c )
  print( c.call( "copy" ) );
endfunction

program t()
  var f := @test;
  var res := f.call( "direct" );
  copy( f );
  print( "res " + res );
  print( @test );
  copy( @test );

  if ( f )
    print( "error" );
  else
    print( "funcref is always false" );
  endif

  // should be packet to uninit
  print( pack( f ) );
  print( unpack( pack( f ) ) );
endprogram