mirror of
https://git.freebsd.org/ports.git
synced 2025-06-15 17:50:31 -04:00
21 lines
524 B
C
21 lines
524 B
C
--- 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 @@
|
|
+/*
|
|
+ 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();
|
|
+}
|