blob: de56e9d4938063d81886593e14a89b3950502e4d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
--- libf2c/MAIN.c.orig Sun Jul 30 15:06:49 2006
+++ libf2c/MAIN.c Sun Jul 30 15:12:02 2006
@@ -0,0 +1,18 @@
+/* $FreeBSD$
+ Add a pseudo entry point for cases where the main FOTRAN program is missing
+ e.g. ports/cad/tochnog.
+
+ Credit: adapted from Sergio Gelato <gelato (at) sissa.it> on Usenet.
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <sys/cdefs.h>
+
+__weak_reference(missing_MAIN__,MAIN__);
+
+void missing_MAIN__ (void)
+{
+ fprintf(stderr, "The Fortran main program is missing.\n");
+ abort();
+}
|
