extern void error_c(fint *,fchar);