--- f77.orig	Wed May 25 00:28:36 1994
+++ f77	Sun Dec  1 12:05:41 1996
@@ -131,7 +131,7 @@
 		mv f2ctmp_$b.c $b.c
 		if [ -f f2ctmp_$b.P ]; then mv f2ctmp_$b.P $b.P; fi
 		case $? in 0);; *) rm -f $b.c ; exit 5;; esac
-                trap "rm -f $s ; exit 4" 0
+                trap "rm -f $s ; exit \$rc" 0
                 $CC $CPPFLAGS -c $CFLAGS $b.c 2>$s
 		rc=$?
 		sed '/parameter .* is not referenced/d;/warning: too many parameters/d' $s 1>&2