qsort arg was wrong for ANSI C

diff --git a/lang/fortran/comp/sysdep.c b/lang/fortran/comp/sysdep.c
index 62ec74c..dc5e06f 100644 (file)
--- a/lang/fortran/comp/sysdep.c
+++ b/lang/fortran/comp/sysdep.c
@@ -350,8 +350,12 @@ dsort(from, to)
 #else
 
  static int
+#ifdef __STDC__
+compare(const void *a, const void *b)
+#else
 compare(a,b)
  char *a, *b;
+#endif
 { return strcmp(*(char **)a, *(char **)b); }
 
 dsort(from, to)