contrib/gcc-3.4/gcc/f/implic.h

   1 /* implic.h -- Public #include File (module.h template V1.0)
   2    Copyright (C) 1995 Free Software Foundation, Inc.
   3    Contributed by James Craig Burley.
   4
   5 This file is part of GNU Fortran.
   6
   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)
  10 any later version.
  11
  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.
  16
  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
  20 02111-1307, USA.
  21
  22    Owning Modules:
  23       implic.c
  24
  25    Modifications:
  26 */
  27
  28 /* Allow multiple inclusion to work. */
  29
  30 #ifndef GCC_F_IMPLIC_H
  31 #define GCC_F_IMPLIC_H
  32
  33 /* Simple definitions and enumerations. */
  34
  35
  36 /* Typedefs. */
  37
  38
  39 /* Include files needed by this one. */
  40
  41 #include "info.h"
  42 #include "symbol.h"
  43 #include "target.h"
  44
  45 /* Structure definitions. */
  46
  47
  48 /* Global objects accessed by users of this module. */
  49
  50
  51 /* Declare functions with prototypes. */
  52
  53 bool ffeimplic_establish_initial (char c, ffeinfoBasictype basic_type,
  54                     ffeinfoKindtype kind_type, ffetargetCharacterSize size);
  55 bool ffeimplic_establish_symbol (ffesymbol s);
  56 void ffeimplic_init_2 (void);
  57 void ffeimplic_none (void);
  58 ffeinfoBasictype ffeimplic_peek_symbol_type (ffesymbol s, const char *name);
  59 void ffeimplic_terminate_2 (void);
  60
  61 /* Define macros. */
  62
  63 #define ffeimplic_init_0()
  64 #define ffeimplic_init_1()
  65 #define ffeimplic_init_3()
  66 #define ffeimplic_init_4()
  67 #define ffeimplic_terminate_0()
  68 #define ffeimplic_terminate_1()
  69 #define ffeimplic_terminate_3()
  70 #define ffeimplic_terminate_4()
  71
  72 /* End of #include file. */
  73
  74 #endif /* ! GCC_F_IMPLIC_H */