--- rpl/src/instructions_f3.c	2013/02/27 17:11:42	1.54
+++ rpl/src/instructions_f3.c	2013/03/16 11:31:41	1.56
@@ -105,7 +105,7 @@ instruction_format(struct_processus *s_e
 				"\"LOGICAL*8\" }\n");
 		printf("    { \"REAL*4\", \"REAL*8\" }\n");
 		printf("    { \"COMPLEX*8\", \"COMPLEX*16\" }\n");
-		printf("    { \"CHARACTER\" }\n\n");
+		printf("    { \"CHARACTER*(*)\" \"CHARACTER*(%s)\" }\n\n", d_INT);
 
 		printf("  FLOW\n");
 		printf("    { \"LENGTH*(*)\" }\n");
@@ -540,7 +540,7 @@ instruction_fleche_q(struct_processus *s
 
 			if (y != 0)
 			{
-				z = fabs(objectif - (r1 / r2));
+				z = abs(objectif - (r1 / r2));
 				x = ((real8) 1) / y;
 			}
 			else