extern fint gdi_error_c(fint *,fchar);