Remove special case.

* The f77name of void returning functions is the empty string anyway.

src/make_fint.c

@@ -716,10 +716,9 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint,
 	      fdoc[nfdoc].text   = NULL;
 	      fdoc[nfdoc].fname  = strdup(funcname);
 
-	      if ( functype == ISVOID )
-		nch = sprintf(xline, "SUBROUTINE %s", xname);
-	      else
-		nch = sprintf(xline, "%s FUNCTION %s", funArgSym[functype].f77name, xname);
+              nch = sprintf(xline, "%s%s %s", funArgSym[functype].f77name,
+                            functype == ISVOID ? "SUBROUTINE" : " FUNCTION",
+                            xname);
 
 	      if ( (funcargc == 1 && funcargtype[0] == ISVOID) ) funcargc = 0;
               if (funcargc) strcat(xline, " ("), nch += 2;