--- rpl/src/algebre_lineaire3.c	2015/01/05 13:12:28	1.51
+++ rpl/src/algebre_lineaire3.c	2018/05/30 09:27:30	1.64
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.19
-  Copyright (C) 1989-2015 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.29
+  Copyright (C) 1989-2018 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -105,6 +105,9 @@ factorisation_schur(struct_processus *s_
 			}
 
 			(*s_matrice).type = 'R';
+#			if __GNUC__ >= 7
+			__attribute__ ((fallthrough));
+#			endif
 		}
 
 		case 'R' :
@@ -460,6 +463,9 @@ factorisation_lq(struct_processus *s_eta
 			}
 
 			(*s_matrice).type = 'R';
+#			if __GNUC__ >= 7
+			__attribute__ ((fallthrough));
+#			endif
 		}
 
 		case 'R' :
@@ -666,6 +672,9 @@ factorisation_qr(struct_processus *s_eta
 			}
 
 			(*s_matrice).type = 'R';
+#			if __GNUC__ >= 7
+			__attribute__ ((fallthrough));
+#			endif
 		}
 
 		case 'R' :