math/emc2/files/patch-libemc2_1.c


1
2
3
4
5
6
7
8
9
10
11

--- libemc2_1.c.orig	1999-11-09 14:58:23 UTC
+++ libemc2_1.c
@@ -1517,7 +1517,7 @@ R*/
 	i__1[2] = 7, a__1[2] = "' retry";
 	s_cat(ch__1, a__1, i__1, &c__3, 99L);
 	scrtch_(ch__1, ii + 19);
-/*       call scrtch('mauvais type : '''/*type(1:ii)//''' recommencez'*/
+/*       call scrtch('mauvais type : '''/*type(1:ii)//''' recommencez'
 ) #FR*/
 	goto L5;
     }