From 929116affc30de8e5996f6d484ad98aa499843ed Mon Sep 17 00:00:00 2001
From: ceriel <devnull@localhost>
Date: Wed, 16 Oct 1991 16:08:27 +0000
Subject: [PATCH] qsort arg was wrong for ANSI C

---
 lang/fortran/comp/sysdep.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lang/fortran/comp/sysdep.c b/lang/fortran/comp/sysdep.c
index 62ec74c5..dc5e06f7 100644
--- 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)