00001 /* 00002 00003 Copyright (C) 1996-2012 John W. Eaton 00004 00005 This file is part of Octave. 00006 00007 Octave is free software; you can redistribute it and/or modify it 00008 under the terms of the GNU General Public License as published by the 00009 Free Software Foundation; either version 3 of the License, or (at your 00010 option) any later version. 00011 00012 Octave is distributed in the hope that it will be useful, but WITHOUT 00013 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 00014 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 00015 for more details. 00016 00017 You should have received a copy of the GNU General Public License 00018 along with Octave; see the file COPYING. If not, see 00019 <http://www.gnu.org/licenses/>. 00020 00021 */ 00022 00023 #include <assert.h> 00024 00025 00026 /* Dummy Fortran main declaration, needed in order to link to some 00027 Fortran libraries. See the AC_F77_DUMMY_MAIN macro documentation. 00028 This function should never be called. */ 00029 00030 #ifdef F77_DUMMY_MAIN 00031 # ifdef __cplusplus 00032 extern "C" 00033 # endif 00034 int F77_DUMMY_MAIN() { assert(0); return 1; } 00035 #endif
1.7.1
