From 9ba91dd44b9366fd6ed19c8e8619bc8d2e00344f Mon Sep 17 00:00:00 2001 From: Jean-Marc Zucconi Date: Mon, 16 Nov 1998 23:51:14 +0000 Subject: [PATCH] Add an emply MAIN__() function. This avoid an unresolved reference error during link phase when using fortran subroutines with non-fortran 'main()'. --- lib/libF77/MAIN.c | 1 + lib/libf2c/Makefile | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) create mode 100644 lib/libF77/MAIN.c diff --git a/lib/libF77/MAIN.c b/lib/libF77/MAIN.c new file mode 100644 index 00000000000..99b7114b958 --- /dev/null +++ b/lib/libF77/MAIN.c @@ -0,0 +1 @@ +MAIN__(){} diff --git a/lib/libf2c/Makefile b/lib/libf2c/Makefile index 6183d588086..fd17e2ae91c 100644 --- a/lib/libf2c/Makefile +++ b/lib/libf2c/Makefile @@ -5,7 +5,7 @@ CFLAGS+= -DIEEE_drem -DNON_ANSI_RW_MODES -DNON_UNIX_STDIO -DPedantic -I${.CURDIR MISC = Version.c main.c s_rnge.c abort_.c getarg_.c iargc_.c getenv_.c\ signal_.c s_stop.c s_paus.c system_.c cabs.c\ - derf_.c derfc_.c erf_.c erfc_.c sig_die.c F77_aloc.c exit.c + derf_.c derfc_.c erf_.c erfc_.c sig_die.c F77_aloc.c exit.c MAIN.c POW = pow_ci.c pow_dd.c pow_di.c pow_hh.c pow_ii.c pow_ri.c pow_zi.c pow_zz.c CX = c_abs.c c_cos.c c_div.c c_exp.c c_log.c c_sin.c c_sqrt.c DCX = z_cos.c z_div.c z_exp.c z_log.c z_sin.c z_sqrt.c