--- rpl/src/instructions_f3.c	2013/02/27 17:11:42	1.54
+++ rpl/src/instructions_f3.c	2013/03/10 17:01:05	1.55
@@ -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");