--- rpl/src/instructions_f3.c	2013/02/26 19:56:14	1.53
+++ rpl/src/instructions_f3.c	2013/03/10 17:01:05	1.55
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.12
+  RPL/2 (R) version 4.1.13
   Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -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");