--- rpl/src/instructions_a5.c	2013/03/20 17:11:44	1.43
+++ rpl/src/instructions_a5.c	2013/03/21 12:07:38	1.44
@@ -43,6 +43,8 @@ instruction_alarm(struct_processus *s_et
 	int							code_retour;
 	int							erreur;
 
+	integer8					nombre_elements;
+
 	logical1					specification_date;
 
 	struct_liste_chainee		*l_element_courant;
@@ -63,8 +65,6 @@ instruction_alarm(struct_processus *s_et
 
 	time_t						alarme;
 
-	unsigned long				nombre_elements;
-
 	(*s_etat_processus).erreur_execution = d_ex;
 
 	if ((*s_etat_processus).affichage_arguments == 'Y')