update build with fortran
[scilab.git] / scilab / modules / output_stream / src / c / erro.c
1 /*-----------------------------------------------------------------------------------*/
2 /* CORNET Allan */
3 /* INRIA 2006 */
4 /*-----------------------------------------------------------------------------------*/
5 #include "erro.h"
6 #include "Scierror.h"
7 /*-----------------------------------------------------------------------------------*/
8 int C2F(erro)(char *str,unsigned int str_len)
9 {
10   Scierror(9999,str);
11   return 0;
12 }
13 /*-----------------------------------------------------------------------------------*/