update build with fortran
[scilab.git] / scilab / modules / output_stream / src / c / cerro.c
1 /*-----------------------------------------------------------------------------------*/ 
2 /* Copyright INRIA */
3 /*-----------------------------------------------------------------------------------*/ 
4 #include <string.h>
5 #include "machine.h"
6 #include "cerro.h"
7 #include "erro.h"
8 /*-----------------------------------------------------------------------------------*/ 
9 void cerro(char *str)
10 {
11   int l = 0;
12   l = (int)strlen(str) + 1;
13   C2F(erro)(str,l);
14 }
15 /*-----------------------------------------------------------------------------------*/