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. 4 5This file is part of GNU Fortran. 6 7GNU Fortran is free software; you can redistribute it and/or modify 8it under the terms of the GNU General Public License as published by 9the Free Software Foundation; either version 2, or (at your option) 10any later version. 11 12GNU Fortran is distributed in the hope that it will be useful, 13but WITHOUT ANY WARRANTY; without even the implied warranty of 14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15GNU General Public License for more details. 16 17You should have received a copy of the GNU General Public License 18along with GNU Fortran; see the file COPYING. If not, write to 19the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 2002111-1307, USA. 21 22 Owning Modules: 23 bad.c 24 25 Modifications: 26*/ 27 28FFEBLD_OP (FFEBLD_opANY, "ANY", 0) 29FFEBLD_OP (FFEBLD_opSTAR, "STAR", 0) /* For adjustable arrays, alternate return dummies, etc. */ 30FFEBLD_OP (FFEBLD_opCONTER, "CONTER", 0) 31FFEBLD_OP (FFEBLD_opARRTER, "ARRTER", 0) /* Array of constants (DATA...). */ 32FFEBLD_OP (FFEBLD_opACCTER, "ACCTER", 0) /* Accreting ARRTER. */ 33FFEBLD_OP (FFEBLD_opSYMTER, "SYMTER", 0) 34FFEBLD_OP (FFEBLD_opITEM, "ITEM", 0) 35FFEBLD_OP (FFEBLD_opUPLUS, "UPLUS", 1) 36FFEBLD_OP (FFEBLD_opUMINUS, "UMINUS", 1) 37FFEBLD_OP (FFEBLD_opADD, "ADD", 2) 38FFEBLD_OP (FFEBLD_opSUBTRACT, "SUBTRACT", 2) 39FFEBLD_OP (FFEBLD_opMULTIPLY, "MULTIPLY", 2) 40FFEBLD_OP (FFEBLD_opDIVIDE, "DIVIDE", 2) 41FFEBLD_OP (FFEBLD_opPOWER, "POWER", 2) 42FFEBLD_OP (FFEBLD_opCONCATENATE, "CONCATENATE", 2) 43FFEBLD_OP (FFEBLD_opNOT, "NOT", 1) 44FFEBLD_OP (FFEBLD_opLT, "LT", 2) 45FFEBLD_OP (FFEBLD_opLE, "LE", 2) 46FFEBLD_OP (FFEBLD_opEQ, "EQ", 2) 47FFEBLD_OP (FFEBLD_opNE, "NE", 2) 48FFEBLD_OP (FFEBLD_opGT, "GT", 2) 49FFEBLD_OP (FFEBLD_opGE, "GE", 2) 50FFEBLD_OP (FFEBLD_opAND, "AND", 2) 51FFEBLD_OP (FFEBLD_opOR, "OR", 2) 52FFEBLD_OP (FFEBLD_opXOR, "XOR", 2) 53FFEBLD_OP (FFEBLD_opEQV, "EQV", 2) 54FFEBLD_OP (FFEBLD_opNEQV, "NEQV", 2) 55FFEBLD_OP (FFEBLD_opPAREN, "PAREN", 1) 56FFEBLD_OP (FFEBLD_opPERCENT_LOC, "%LOC", 1) 57FFEBLD_OP (FFEBLD_opPERCENT_VAL, "%VAL", 1) 58FFEBLD_OP (FFEBLD_opPERCENT_REF, "%REF", 1) 59FFEBLD_OP (FFEBLD_opPERCENT_DESCR, "%DESCR", 1) 60FFEBLD_OP (FFEBLD_opCONVERT, "CONVERT", 1) 61FFEBLD_OP (FFEBLD_opREPEAT, "REPEAT", 2) 62FFEBLD_OP (FFEBLD_opBOUNDS, "BOUNDS", 2) /* For low:high in dimension lists. */ 63FFEBLD_OP (FFEBLD_opFUNCREF, "FUNCREF", 2) 64FFEBLD_OP (FFEBLD_opSUBRREF, "SUBRREF", 2) 65FFEBLD_OP (FFEBLD_opARRAYREF, "ARRAYREF", 2) 66FFEBLD_OP (FFEBLD_opSUBSTR, "SUBSTR", 2) 67FFEBLD_OP (FFEBLD_opLABTER, "LABTER", 0) 68FFEBLD_OP (FFEBLD_opLABTOK, "LABTOK", 0) /* Like LABTER but contains ffelexToken instead. */ 69FFEBLD_OP (FFEBLD_opIMPDO, "IMPDO", 2) 70