function demo_47478 ()

  page_screen_output (false, "local");

  a = [.4, .1; .9, .7];

  printf ("will call fft2 before forking:\n");
  u = fft2 (a);
  printf ("fft2 successfully called before forking\n");

  if ((pid = fork) > 0)
    ## parent
    waitpid (pid);
  elseif (pid < 0)
    ## error
    error ("could not fork");
  else
    ## child
    printf ("child will call fft2 and print a further line when ready:\n");
    u = fft2 (a);
    printf ("child is ready\n")
    exit (0);
  endif

endfunction
