From 4e263d19437c455fadab645a1e7abc80f69ff929 Mon Sep 17 00:00:00 2001
From: Kris Kennaway <kris@FreeBSD.org>
Date: Sun, 31 Mar 2002 23:45:39 +0000
Subject: Fix build on current by removing a constant FILE * stdio initializer

---
 devel/f77flow/files/patch-ab | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 devel/f77flow/files/patch-ab

(limited to 'devel/f77flow/files/patch-ab')

diff --git a/devel/f77flow/files/patch-ab b/devel/f77flow/files/patch-ab
new file mode 100644
index 000000000000..3ad8b57600f5
--- /dev/null
+++ b/devel/f77flow/files/patch-ab
@@ -0,0 +1,38 @@
+--- flow.c.orig	Wed Feb 19 08:45:20 1997
++++ flow.c	Sun Mar 31 15:47:22 2002
+@@ -66,7 +66,7 @@
+ 
+ FILE *CallFile=NULL;
+ FILE *SubFile=NULL;
+-FILE *OUTFILE=stdout;
++FILE *OUTFILE=NULL;
+ 
+ char S_OUT[]="FLOW.SUBS"; /* file name where to print subroutines */
+ char C_OUT[]="FLOW.CALL"; /* file name where to print call's */
+@@ -89,7 +89,7 @@
+ 
+ /* begin of main */
+ 
+-void main(int argc, char *argv[]) 
++int main(int argc, char *argv[]) 
+ 
+ {
+ int k,d,i;
+@@ -100,6 +100,8 @@
+ long int Count_Lines=0;
+ char PRG_Name[60];
+ 
++OUTFILE=stdout;
++
+ for (k=0; k<NO_SUB+1; k++) Subroutine[k].Call=0;
+ for (k=0; k<NO_CALL; k++) Call[k].Call=0;
+    Program.Call=0;
+@@ -303,6 +305,8 @@
+    if (No_Main==0) Output_Result();
+ 
+    if (O_OutFile) fclose(OUTFILE);
++
++   exit(0);
+  
+ }
+ 
-- 
cgit v1.2.3