1 /* proj.h file for Gnu Fortran
2 Copyright (C) 1995, 1996 Free Software Foundation, Inc.
3 Contributed by James Craig Burley.
5 This file is part of GNU Fortran.
7 GNU Fortran is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Fortran is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Fortran; see the file COPYING. If not, write to
19 the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
34 #if !defined (__GNUC__) || (__GNUC__ < 2)
35 #error "You have to use gcc 2.x to build g77 (might be fixed in g77-0.6)."
38 #ifndef BUILT_WITH_270
39 #if (__GNUC__ > 2) || (__GNUC__ == 2 && __GNUC_MINOR__ >= 7)
40 #define BUILT_WITH_270 1
42 #define BUILT_WITH_270 0
44 #endif /* !defined (BUILT_WITH_270) */
46 /* Include files everyone gets. <assert.h> is needed for assert().
47 <stddef.h> is needed for offsetof, but technically also NULL,
48 size_t, ptrdiff_t, and so on. */
56 /* Generally useful definitions. */
60 #if !defined(false) || !defined(true)
63 #if !defined(FALSE) || !defined(TRUE)
66 Doggone_Trailing_Comma_Dont_Work = 1
69 #define ARRAY_SIZE(a) (sizeof(a)/sizeof(a[0]))
71 #ifndef UNUSED /* Compile with -DUNUSED= if cc doesn't support this. */
73 #define UNUSED __attribute__ ((unused))
74 #else /* !BUILT_WITH_270 */
76 #endif /* !BUILT_WITH_270 */
77 #endif /* !defined (UNUSED) */