home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / g77-0.5.15-src.tgz / tar.out / fsf / g77 / f / bld-op.def < prev    next >
Text File  |  1996-09-28  |  3KB  |  69 lines
  1. /* bld-op.def -- Public #include File (module.h template V1.0)
  2.    Copyright (C) 1995 Free Software Foundation, Inc.
  3.    Contributed by James Craig Burley (burley@gnu.ai.mit.edu).
  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, 675 Mass Ave, Cambridge, MA 02139, USA.
  20.  
  21.    Owning Modules:
  22.       bad.c
  23.  
  24.    Modifications:
  25. */
  26.  
  27. FFEBLD_OP (FFEBLD_opANY, "ANY", 0)
  28. FFEBLD_OP (FFEBLD_opSTAR, "STAR", 0)    /* For adjustable arrays, alternate return dummies, etc. */
  29. FFEBLD_OP (FFEBLD_opCONTER, "CONTER", 0)
  30. FFEBLD_OP (FFEBLD_opARRTER, "ARRTER", 0)    /* Array of constants (DATA...). */
  31. FFEBLD_OP (FFEBLD_opACCTER, "ACCTER", 0)    /* Accreting ARRTER. */
  32. FFEBLD_OP (FFEBLD_opSYMTER, "SYMTER", 0)
  33. FFEBLD_OP (FFEBLD_opITEM, "ITEM", 0)
  34. FFEBLD_OP (FFEBLD_opUPLUS, "UPLUS", 1)
  35. FFEBLD_OP (FFEBLD_opUMINUS, "UMINUS", 1)
  36. FFEBLD_OP (FFEBLD_opADD, "ADD", 2)
  37. FFEBLD_OP (FFEBLD_opSUBTRACT, "SUBTRACT", 2)
  38. FFEBLD_OP (FFEBLD_opMULTIPLY, "MULTIPLY", 2)
  39. FFEBLD_OP (FFEBLD_opDIVIDE, "DIVIDE", 2)
  40. FFEBLD_OP (FFEBLD_opPOWER, "POWER", 2)
  41. FFEBLD_OP (FFEBLD_opCONCATENATE, "CONCATENATE", 2)
  42. FFEBLD_OP (FFEBLD_opNOT, "NOT", 1)
  43. FFEBLD_OP (FFEBLD_opLT, "LT", 2)
  44. FFEBLD_OP (FFEBLD_opLE, "LE", 2)
  45. FFEBLD_OP (FFEBLD_opEQ, "EQ", 2)
  46. FFEBLD_OP (FFEBLD_opNE, "NE", 2)
  47. FFEBLD_OP (FFEBLD_opGT, "GT", 2)
  48. FFEBLD_OP (FFEBLD_opGE, "GE", 2)
  49. FFEBLD_OP (FFEBLD_opAND, "AND", 2)
  50. FFEBLD_OP (FFEBLD_opOR, "OR", 2)
  51. FFEBLD_OP (FFEBLD_opXOR, "XOR", 2)
  52. FFEBLD_OP (FFEBLD_opEQV, "EQV", 2)
  53. FFEBLD_OP (FFEBLD_opNEQV, "NEQV", 2)
  54. FFEBLD_OP (FFEBLD_opPAREN, "PAREN", 1)
  55. FFEBLD_OP (FFEBLD_opPERCENT_LOC, "%LOC", 1)
  56. FFEBLD_OP (FFEBLD_opPERCENT_VAL, "%VAL", 1)
  57. FFEBLD_OP (FFEBLD_opPERCENT_REF, "%REF", 1)
  58. FFEBLD_OP (FFEBLD_opPERCENT_DESCR, "%DESCR", 1)
  59. FFEBLD_OP (FFEBLD_opCONVERT, "CONVERT", 1)
  60. FFEBLD_OP (FFEBLD_opREPEAT, "REPEAT", 2)
  61. FFEBLD_OP (FFEBLD_opBOUNDS, "BOUNDS", 2)    /* For low:high in dimension lists. */
  62. FFEBLD_OP (FFEBLD_opFUNCREF, "FUNCREF", 2)
  63. FFEBLD_OP (FFEBLD_opSUBRREF, "SUBRREF", 2)
  64. FFEBLD_OP (FFEBLD_opARRAYREF, "ARRAYREF", 2)
  65. FFEBLD_OP (FFEBLD_opSUBSTR, "SUBSTR", 2)
  66. FFEBLD_OP (FFEBLD_opLABTER, "LABTER", 0)
  67. FFEBLD_OP (FFEBLD_opLABTOK, "LABTOK", 0)    /* Like LABTER but contains ffelexToken instead. */
  68. FFEBLD_OP (FFEBLD_opIMPDO, "IMPDO", 2)
  69.