--- rpl/src/instructions_s6.c	2015/06/08 14:11:41	1.55
+++ rpl/src/instructions_s6.c	2020/01/10 11:15:48	1.70
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.22
-  Copyright (C) 1989-2015 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.32
+  Copyright (C) 1989-2020 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -509,6 +509,18 @@ instruction_sync(struct_processus *s_eta
 					d_ex_erreur_acces_fichier;
 			return;
 		}
+
+		if (fsync(fileno((*descripteur).descripteur_c)) != 0)
+		{
+			if ((errno != EROFS) && (errno != EINVAL))
+			{
+				liberation(s_etat_processus, s_objet_argument);
+
+				(*s_etat_processus).erreur_execution =
+						d_ex_erreur_acces_fichier;
+				return;
+			}
+		}
 	}
 	else
 	{