Alexander_KS/SAPFOR
4
2
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
Files
9774f83ae18cce147721d8bfda523816a9e229cd
SAPFOR/dvm/fdvm/trunk/parser/gram1.tab.c
ALEXks 2540237e42 improved Sage, fixed dedlock
2023-12-06 12:01:00 +03:00

14334 lines
550 KiB
C
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
/* A Bison parser, made by GNU Bison 2.3. */
/* Skeleton implementation for Bison's Yacc-like parsers in C
Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA. */
/* As a special exception, you may create a larger work that contains
part or all of the Bison parser skeleton and distribute that work
under terms of your choice, so long as that work isn't itself a
parser generator using the skeleton or a modified version thereof
as a parser skeleton. Alternatively, if you modify or redistribute
the parser skeleton itself, you may (at your option) remove this
special exception, which will cause the skeleton and the resulting
Bison output files to be licensed under the GNU General Public
License without this special exception.
This special exception was added by the Free Software Foundation in
version 2.2 of Bison. */
/* C LALR(1) parser skeleton written by Richard Stallman, by
simplifying the original so-called "semantic" parser. */
/* All symbols defined below should begin with yy or YY, to avoid
infringing on user name space. This should be done even for local
variables, as they might otherwise be expanded by user macros.
There are some unavoidable exceptions within include files to
define necessary library symbols; they are noted "INFRINGES ON
USER NAME SPACE" below. */
/* Identify Bison output. */
#define YYBISON 1
/* Bison version. */
#define YYBISON_VERSION "2.3"
/* Skeleton name. */
#define YYSKELETON_NAME "yacc.c"
/* Pure parsers. */
#define YYPURE 0
/* Using locations. */
#define YYLSP_NEEDED 0
/* Tokens. */
#ifndef YYTOKENTYPE
# define YYTOKENTYPE
/* Put the tokens into the symbol table, so that GDB and other debuggers
know about them. */
enum yytokentype {
PERCENT = 1,
AMPERSAND = 2,
ASTER = 3,
CLUSTER = 4,
COLON = 5,
COMMA = 6,
DASTER = 7,
DEFINED_OPERATOR = 8,
DOT = 9,
DQUOTE = 10,
GLOBAL_A = 11,
LEFTAB = 12,
LEFTPAR = 13,
MINUS = 14,
PLUS = 15,
POINT_TO = 16,
QUOTE = 17,
RIGHTAB = 18,
RIGHTPAR = 19,
AND = 20,
DSLASH = 21,
EQV = 22,
EQ = 23,
EQUAL = 24,
FFALSE = 25,
GE = 26,
GT = 27,
LE = 28,
LT = 29,
NE = 30,
NEQV = 31,
NOT = 32,
OR = 33,
TTRUE = 34,
SLASH = 35,
XOR = 36,
REFERENCE = 37,
AT = 38,
ACROSS = 39,
ALIGN_WITH = 40,
ALIGN = 41,
ALLOCATABLE = 42,
ALLOCATE = 43,
ARITHIF = 44,
ASSIGNMENT = 45,
ASSIGN = 46,
ASSIGNGOTO = 47,
ASYNCHRONOUS = 48,
ASYNCID = 49,
ASYNCWAIT = 50,
BACKSPACE = 51,
BAD_CCONST = 52,
BAD_SYMBOL = 53,
BARRIER = 54,
BLOCKDATA = 55,
BLOCK = 56,
BOZ_CONSTANT = 57,
BYTE = 58,
CALL = 59,
CASE = 60,
CHARACTER = 61,
CHAR_CONSTANT = 62,
CHECK = 63,
CLOSE = 64,
COMMON = 65,
COMPLEX = 66,
COMPGOTO = 67,
CONSISTENT_GROUP = 68,
CONSISTENT_SPEC = 69,
CONSISTENT_START = 70,
CONSISTENT_WAIT = 71,
CONSISTENT = 72,
CONSTRUCT_ID = 73,
CONTAINS = 74,
CONTINUE = 75,
CORNER = 76,
CYCLE = 77,
DATA = 78,
DEALLOCATE = 79,
HPF_TEMPLATE = 80,
DEBUG = 81,
DEFAULT_CASE = 82,
DEFINE = 83,
DERIVED = 84,
DIMENSION = 85,
DISTRIBUTE = 86,
DOWHILE = 87,
DOUBLEPRECISION = 88,
DOUBLECOMPLEX = 89,
DP_CONSTANT = 90,
DVM_POINTER = 91,
DYNAMIC = 92,
ELEMENTAL = 93,
ELSE = 94,
ELSEIF = 95,
ELSEWHERE = 96,
ENDASYNCHRONOUS = 97,
ENDDEBUG = 98,
ENDINTERVAL = 99,
ENDUNIT = 100,
ENDDO = 101,
ENDFILE = 102,
ENDFORALL = 103,
ENDIF = 104,
ENDINTERFACE = 105,
ENDMODULE = 106,
ENDON = 107,
ENDSELECT = 108,
ENDTASK_REGION = 109,
ENDTYPE = 110,
ENDWHERE = 111,
ENTRY = 112,
EXIT = 113,
EOLN = 114,
EQUIVALENCE = 115,
ERROR = 116,
EXTERNAL = 117,
F90 = 118,
FIND = 119,
FORALL = 120,
FORMAT = 121,
FUNCTION = 122,
GATE = 123,
GEN_BLOCK = 124,
HEAP = 125,
HIGH = 126,
IDENTIFIER = 127,
IMPLICIT = 128,
IMPLICITNONE = 129,
INCLUDE_TO = 130,
INCLUDE = 131,
INDEPENDENT = 132,
INDIRECT_ACCESS = 133,
INDIRECT_GROUP = 134,
INDIRECT = 135,
INHERIT = 136,
INQUIRE = 137,
INTERFACEASSIGNMENT = 138,
INTERFACEOPERATOR = 139,
INTERFACE = 140,
INTRINSIC = 141,
INTEGER = 142,
INTENT = 143,
INTERVAL = 144,
INOUT = 145,
IN = 146,
INT_CONSTANT = 147,
LABEL = 148,
LABEL_DECLARE = 149,
LET = 150,
LOCALIZE = 151,
LOGICAL = 152,
LOGICALIF = 153,
LOOP = 154,
LOW = 155,
MAXLOC = 156,
MAX = 157,
MAP = 158,
MINLOC = 159,
MIN = 160,
MODULE_PROCEDURE = 161,
MODULE = 162,
MULT_BLOCK = 163,
NAMEEQ = 164,
NAMELIST = 165,
NEW_VALUE = 166,
NEW = 167,
NULLIFY = 168,
OCTAL_CONSTANT = 169,
ONLY = 170,
ON = 171,
ON_DIR = 172,
ONTO = 173,
OPEN = 174,
OPERATOR = 175,
OPTIONAL = 176,
OTHERWISE = 177,
OUT = 178,
OWN = 179,
PARALLEL = 180,
PARAMETER = 181,
PAUSE = 182,
PLAINDO = 183,
PLAINGOTO = 184,
POINTER = 185,
POINTERLET = 186,
PREFETCH = 187,
PRINT = 188,
PRIVATE = 189,
PRODUCT = 190,
PROGRAM = 191,
PUBLIC = 192,
PURE = 193,
RANGE = 194,
READ = 195,
REALIGN_WITH = 196,
REALIGN = 197,
REAL = 198,
REAL_CONSTANT = 199,
RECURSIVE = 200,
REDISTRIBUTE_NEW = 201,
REDISTRIBUTE = 202,
REDUCTION_GROUP = 203,
REDUCTION_START = 204,
REDUCTION_WAIT = 205,
REDUCTION = 206,
REMOTE_ACCESS_SPEC = 207,
REMOTE_ACCESS = 208,
REMOTE_GROUP = 209,
RESET = 210,
RESULT = 211,
RETURN = 212,
REWIND = 213,
SAVE = 214,
SECTION = 215,
SELECT = 216,
SEQUENCE = 217,
SHADOW_ADD = 218,
SHADOW_COMPUTE = 219,
SHADOW_GROUP = 220,
SHADOW_RENEW = 221,
SHADOW_START_SPEC = 222,
SHADOW_START = 223,
SHADOW_WAIT_SPEC = 224,
SHADOW_WAIT = 225,
SHADOW = 226,
STAGE = 227,
STATIC = 228,
STAT = 229,
STOP = 230,
SUBROUTINE = 231,
SUM = 232,
SYNC = 233,
TARGET = 234,
TASK = 235,
TASK_REGION = 236,
THEN = 237,
TO = 238,
TRACEON = 239,
TRACEOFF = 240,
TRUNC = 241,
TYPE = 242,
TYPE_DECL = 243,
UNDER = 244,
UNKNOWN = 245,
USE = 246,
VIRTUAL = 247,
VARIABLE = 248,
WAIT = 249,
WHERE = 250,
WHERE_ASSIGN = 251,
WHILE = 252,
WITH = 253,
WRITE = 254,
COMMENT = 255,
WGT_BLOCK = 256,
HPF_PROCESSORS = 257,
IOSTAT = 258,
ERR = 259,
END = 260,
OMPDVM_ATOMIC = 261,
OMPDVM_BARRIER = 262,
OMPDVM_COPYIN = 263,
OMPDVM_COPYPRIVATE = 264,
OMPDVM_CRITICAL = 265,
OMPDVM_ONETHREAD = 266,
OMPDVM_DO = 267,
OMPDVM_DYNAMIC = 268,
OMPDVM_ENDCRITICAL = 269,
OMPDVM_ENDDO = 270,
OMPDVM_ENDMASTER = 271,
OMPDVM_ENDORDERED = 272,
OMPDVM_ENDPARALLEL = 273,
OMPDVM_ENDPARALLELDO = 274,
OMPDVM_ENDPARALLELSECTIONS = 275,
OMPDVM_ENDPARALLELWORKSHARE = 276,
OMPDVM_ENDSECTIONS = 277,
OMPDVM_ENDSINGLE = 278,
OMPDVM_ENDWORKSHARE = 279,
OMPDVM_FIRSTPRIVATE = 280,
OMPDVM_FLUSH = 281,
OMPDVM_GUIDED = 282,
OMPDVM_LASTPRIVATE = 283,
OMPDVM_MASTER = 284,
OMPDVM_NOWAIT = 285,
OMPDVM_NONE = 286,
OMPDVM_NUM_THREADS = 287,
OMPDVM_ORDERED = 288,
OMPDVM_PARALLEL = 289,
OMPDVM_PARALLELDO = 290,
OMPDVM_PARALLELSECTIONS = 291,
OMPDVM_PARALLELWORKSHARE = 292,
OMPDVM_RUNTIME = 293,
OMPDVM_SECTION = 294,
OMPDVM_SECTIONS = 295,
OMPDVM_SCHEDULE = 296,
OMPDVM_SHARED = 297,
OMPDVM_SINGLE = 298,
OMPDVM_THREADPRIVATE = 299,
OMPDVM_WORKSHARE = 300,
OMPDVM_NODES = 301,
OMPDVM_IF = 302,
IAND = 303,
IEOR = 304,
IOR = 305,
ACC_REGION = 306,
ACC_END_REGION = 307,
ACC_CHECKSECTION = 308,
ACC_END_CHECKSECTION = 309,
ACC_GET_ACTUAL = 310,
ACC_ACTUAL = 311,
ACC_TARGETS = 312,
ACC_ASYNC = 313,
ACC_HOST = 314,
ACC_CUDA = 315,
ACC_LOCAL = 316,
ACC_INLOCAL = 317,
ACC_CUDA_BLOCK = 318,
ACC_ROUTINE = 319,
ACC_TIE = 320,
BY = 321,
IO_MODE = 322,
CP_CREATE = 323,
CP_LOAD = 324,
CP_SAVE = 325,
CP_WAIT = 326,
FILES = 327,
VARLIST = 328,
STATUS = 329,
EXITINTERVAL = 330,
TEMPLATE_CREATE = 331,
TEMPLATE_DELETE = 332,
SPF_ANALYSIS = 333,
SPF_PARALLEL = 334,
SPF_TRANSFORM = 335,
SPF_NOINLINE = 336,
SPF_PARALLEL_REG = 337,
SPF_END_PARALLEL_REG = 338,
SPF_EXPAND = 339,
SPF_FISSION = 340,
SPF_SHRINK = 341,
SPF_CHECKPOINT = 342,
SPF_EXCEPT = 343,
SPF_FILES_COUNT = 344,
SPF_INTERVAL = 345,
SPF_TIME = 346,
SPF_ITER = 347,
SPF_FLEXIBLE = 348,
SPF_APPLY_REGION = 349,
SPF_APPLY_FRAGMENT = 350,
SPF_CODE_COVERAGE = 351,
SPF_UNROLL = 352,
BINARY_OP = 355,
UNARY_OP = 356
};
#endif
/* Tokens. */
#define PERCENT 1
#define AMPERSAND 2
#define ASTER 3
#define CLUSTER 4
#define COLON 5
#define COMMA 6
#define DASTER 7
#define DEFINED_OPERATOR 8
#define DOT 9
#define DQUOTE 10
#define GLOBAL_A 11
#define LEFTAB 12
#define LEFTPAR 13
#define MINUS 14
#define PLUS 15
#define POINT_TO 16
#define QUOTE 17
#define RIGHTAB 18
#define RIGHTPAR 19
#define AND 20
#define DSLASH 21
#define EQV 22
#define EQ 23
#define EQUAL 24
#define FFALSE 25
#define GE 26
#define GT 27
#define LE 28
#define LT 29
#define NE 30
#define NEQV 31
#define NOT 32
#define OR 33
#define TTRUE 34
#define SLASH 35
#define XOR 36
#define REFERENCE 37
#define AT 38
#define ACROSS 39
#define ALIGN_WITH 40
#define ALIGN 41
#define ALLOCATABLE 42
#define ALLOCATE 43
#define ARITHIF 44
#define ASSIGNMENT 45
#define ASSIGN 46
#define ASSIGNGOTO 47
#define ASYNCHRONOUS 48
#define ASYNCID 49
#define ASYNCWAIT 50
#define BACKSPACE 51
#define BAD_CCONST 52
#define BAD_SYMBOL 53
#define BARRIER 54
#define BLOCKDATA 55
#define BLOCK 56
#define BOZ_CONSTANT 57
#define BYTE 58
#define CALL 59
#define CASE 60
#define CHARACTER 61
#define CHAR_CONSTANT 62
#define CHECK 63
#define CLOSE 64
#define COMMON 65
#define COMPLEX 66
#define COMPGOTO 67
#define CONSISTENT_GROUP 68
#define CONSISTENT_SPEC 69
#define CONSISTENT_START 70
#define CONSISTENT_WAIT 71
#define CONSISTENT 72
#define CONSTRUCT_ID 73
#define CONTAINS 74
#define CONTINUE 75
#define CORNER 76
#define CYCLE 77
#define DATA 78
#define DEALLOCATE 79
#define HPF_TEMPLATE 80
#define DEBUG 81
#define DEFAULT_CASE 82
#define DEFINE 83
#define DERIVED 84
#define DIMENSION 85
#define DISTRIBUTE 86
#define DOWHILE 87
#define DOUBLEPRECISION 88
#define DOUBLECOMPLEX 89
#define DP_CONSTANT 90
#define DVM_POINTER 91
#define DYNAMIC 92
#define ELEMENTAL 93
#define ELSE 94
#define ELSEIF 95
#define ELSEWHERE 96
#define ENDASYNCHRONOUS 97
#define ENDDEBUG 98
#define ENDINTERVAL 99
#define ENDUNIT 100
#define ENDDO 101
#define ENDFILE 102
#define ENDFORALL 103
#define ENDIF 104
#define ENDINTERFACE 105
#define ENDMODULE 106
#define ENDON 107
#define ENDSELECT 108
#define ENDTASK_REGION 109
#define ENDTYPE 110
#define ENDWHERE 111
#define ENTRY 112
#define EXIT 113
#define EOLN 114
#define EQUIVALENCE 115
#define ERROR 116
#define EXTERNAL 117
#define F90 118
#define FIND 119
#define FORALL 120
#define FORMAT 121
#define FUNCTION 122
#define GATE 123
#define GEN_BLOCK 124
#define HEAP 125
#define HIGH 126
#define IDENTIFIER 127
#define IMPLICIT 128
#define IMPLICITNONE 129
#define INCLUDE_TO 130
#define INCLUDE 131
#define INDEPENDENT 132
#define INDIRECT_ACCESS 133
#define INDIRECT_GROUP 134
#define INDIRECT 135
#define INHERIT 136
#define INQUIRE 137
#define INTERFACEASSIGNMENT 138
#define INTERFACEOPERATOR 139
#define INTERFACE 140
#define INTRINSIC 141
#define INTEGER 142
#define INTENT 143
#define INTERVAL 144
#define INOUT 145
#define IN 146
#define INT_CONSTANT 147
#define LABEL 148
#define LABEL_DECLARE 149
#define LET 150
#define LOCALIZE 151
#define LOGICAL 152
#define LOGICALIF 153
#define LOOP 154
#define LOW 155
#define MAXLOC 156
#define MAX 157
#define MAP 158
#define MINLOC 159
#define MIN 160
#define MODULE_PROCEDURE 161
#define MODULE 162
#define MULT_BLOCK 163
#define NAMEEQ 164
#define NAMELIST 165
#define NEW_VALUE 166
#define NEW 167
#define NULLIFY 168
#define OCTAL_CONSTANT 169
#define ONLY 170
#define ON 171
#define ON_DIR 172
#define ONTO 173
#define OPEN 174
#define OPERATOR 175
#define OPTIONAL 176
#define OTHERWISE 177
#define OUT 178
#define OWN 179
#define PARALLEL 180
#define PARAMETER 181
#define PAUSE 182
#define PLAINDO 183
#define PLAINGOTO 184
#define POINTER 185
#define POINTERLET 186
#define PREFETCH 187
#define PRINT 188
#define PRIVATE 189
#define PRODUCT 190
#define PROGRAM 191
#define PUBLIC 192
#define PURE 193
#define RANGE 194
#define READ 195
#define REALIGN_WITH 196
#define REALIGN 197
#define REAL 198
#define REAL_CONSTANT 199
#define RECURSIVE 200
#define REDISTRIBUTE_NEW 201
#define REDISTRIBUTE 202
#define REDUCTION_GROUP 203
#define REDUCTION_START 204
#define REDUCTION_WAIT 205
#define REDUCTION 206
#define REMOTE_ACCESS_SPEC 207
#define REMOTE_ACCESS 208
#define REMOTE_GROUP 209
#define RESET 210
#define RESULT 211
#define RETURN 212
#define REWIND 213
#define SAVE 214
#define SECTION 215
#define SELECT 216
#define SEQUENCE 217
#define SHADOW_ADD 218
#define SHADOW_COMPUTE 219
#define SHADOW_GROUP 220
#define SHADOW_RENEW 221
#define SHADOW_START_SPEC 222
#define SHADOW_START 223
#define SHADOW_WAIT_SPEC 224
#define SHADOW_WAIT 225
#define SHADOW 226
#define STAGE 227
#define STATIC 228
#define STAT 229
#define STOP 230
#define SUBROUTINE 231
#define SUM 232
#define SYNC 233
#define TARGET 234
#define TASK 235
#define TASK_REGION 236
#define THEN 237
#define TO 238
#define TRACEON 239
#define TRACEOFF 240
#define TRUNC 241
#define TYPE 242
#define TYPE_DECL 243
#define UNDER 244
#define UNKNOWN 245
#define USE 246
#define VIRTUAL 247
#define VARIABLE 248
#define WAIT 249
#define WHERE 250
#define WHERE_ASSIGN 251
#define WHILE 252
#define WITH 253
#define WRITE 254
#define COMMENT 255
#define WGT_BLOCK 256
#define HPF_PROCESSORS 257
#define IOSTAT 258
#define ERR 259
#define END 260
#define OMPDVM_ATOMIC 261
#define OMPDVM_BARRIER 262
#define OMPDVM_COPYIN 263
#define OMPDVM_COPYPRIVATE 264
#define OMPDVM_CRITICAL 265
#define OMPDVM_ONETHREAD 266
#define OMPDVM_DO 267
#define OMPDVM_DYNAMIC 268
#define OMPDVM_ENDCRITICAL 269
#define OMPDVM_ENDDO 270
#define OMPDVM_ENDMASTER 271
#define OMPDVM_ENDORDERED 272
#define OMPDVM_ENDPARALLEL 273
#define OMPDVM_ENDPARALLELDO 274
#define OMPDVM_ENDPARALLELSECTIONS 275
#define OMPDVM_ENDPARALLELWORKSHARE 276
#define OMPDVM_ENDSECTIONS 277
#define OMPDVM_ENDSINGLE 278
#define OMPDVM_ENDWORKSHARE 279
#define OMPDVM_FIRSTPRIVATE 280
#define OMPDVM_FLUSH 281
#define OMPDVM_GUIDED 282
#define OMPDVM_LASTPRIVATE 283
#define OMPDVM_MASTER 284
#define OMPDVM_NOWAIT 285
#define OMPDVM_NONE 286
#define OMPDVM_NUM_THREADS 287
#define OMPDVM_ORDERED 288
#define OMPDVM_PARALLEL 289
#define OMPDVM_PARALLELDO 290
#define OMPDVM_PARALLELSECTIONS 291
#define OMPDVM_PARALLELWORKSHARE 292
#define OMPDVM_RUNTIME 293
#define OMPDVM_SECTION 294
#define OMPDVM_SECTIONS 295
#define OMPDVM_SCHEDULE 296
#define OMPDVM_SHARED 297
#define OMPDVM_SINGLE 298
#define OMPDVM_THREADPRIVATE 299
#define OMPDVM_WORKSHARE 300
#define OMPDVM_NODES 301
#define OMPDVM_IF 302
#define IAND 303
#define IEOR 304
#define IOR 305
#define ACC_REGION 306
#define ACC_END_REGION 307
#define ACC_CHECKSECTION 308
#define ACC_END_CHECKSECTION 309
#define ACC_GET_ACTUAL 310
#define ACC_ACTUAL 311
#define ACC_TARGETS 312
#define ACC_ASYNC 313
#define ACC_HOST 314
#define ACC_CUDA 315
#define ACC_LOCAL 316
#define ACC_INLOCAL 317
#define ACC_CUDA_BLOCK 318
#define ACC_ROUTINE 319
#define ACC_TIE 320
#define BY 321
#define IO_MODE 322
#define CP_CREATE 323
#define CP_LOAD 324
#define CP_SAVE 325
#define CP_WAIT 326
#define FILES 327
#define VARLIST 328
#define STATUS 329
#define EXITINTERVAL 330
#define TEMPLATE_CREATE 331
#define TEMPLATE_DELETE 332
#define SPF_ANALYSIS 333
#define SPF_PARALLEL 334
#define SPF_TRANSFORM 335
#define SPF_NOINLINE 336
#define SPF_PARALLEL_REG 337
#define SPF_END_PARALLEL_REG 338
#define SPF_EXPAND 339
#define SPF_FISSION 340
#define SPF_SHRINK 341
#define SPF_CHECKPOINT 342
#define SPF_EXCEPT 343
#define SPF_FILES_COUNT 344
#define SPF_INTERVAL 345
#define SPF_TIME 346
#define SPF_ITER 347
#define SPF_FLEXIBLE 348
#define SPF_APPLY_REGION 349
#define SPF_APPLY_FRAGMENT 350
#define SPF_CODE_COVERAGE 351
#define SPF_UNROLL 352
#define BINARY_OP 355
#define UNARY_OP 356
/* Copy the first part of user declarations. */
#line 354 "gram1.y"
#include <string.h>
#include "inc.h"
#include "extern.h"
#include "defines.h"
#include "fdvm.h"
#include "fm.h"
/* We may use builtin alloca */
#include "compatible.h"
#ifdef _NEEDALLOCAH_
# include <alloca.h>
#endif
#define EXTEND_NODE 2 /* move the definition to h/ files. */
extern PTR_BFND global_bfnd, pred_bfnd;
extern PTR_SYMB star_symb;
extern PTR_SYMB global_list;
extern PTR_TYPE global_bool;
extern PTR_TYPE global_int;
extern PTR_TYPE global_float;
extern PTR_TYPE global_double;
extern PTR_TYPE global_char;
extern PTR_TYPE global_string;
extern PTR_TYPE global_string_2;
extern PTR_TYPE global_complex;
extern PTR_TYPE global_dcomplex;
extern PTR_TYPE global_gate;
extern PTR_TYPE global_event;
extern PTR_TYPE global_sequence;
extern PTR_TYPE global_default;
extern PTR_LABEL thislabel;
extern PTR_CMNT comments, cur_comment;
extern PTR_BFND last_bfnd;
extern PTR_TYPE impltype[];
extern int nioctl;
extern int maxdim;
extern long yystno; /* statement label */
extern char stmtbuf[]; /* input buffer */
extern char *commentbuf; /* comments buffer from scanner */
extern PTR_BLOB head_blob;
extern PTR_BLOB cur_blob;
extern PTR_TYPE vartype; /* variable type */
extern int end_group;
extern char saveall;
extern int privateall;
extern int needkwd;
extern int implkwd;
extern int opt_kwd_hedr;
/* added for FORTRAN 90 */
extern PTR_LLND first_unresolved_call;
extern PTR_LLND last_unresolved_call;
extern int data_stat;
extern char yyquote;
extern int warn_all;
extern int statement_kind; /* kind of statement: 1 - HPF-DVM-directive, 0 - Fortran statement*/
int extend_flag = 0;
static int do_name_err;
static int ndim; /* number of dimension */
/*!!! hpf */
static int explicit_shape; /* 1 if shape specification is explicit */
/* static int varleng;*/ /* variable size */
static int lastwasbranch = NO; /* set if last stmt was a branch stmt */
static int thiswasbranch = NO; /* set if this stmt is a branch stmt */
static PTR_SYMB type_var = SMNULL;
static PTR_LLND stat_alloc = LLNULL; /* set if ALLOCATE/DEALLOCATE stmt has STAT-clause*/
/* static int subscripts_status = 0; */
static int type_options,type_opt; /* The various options used to declare a name -
RECURSIVE, POINTER, OPTIONAL etc. */
static PTR_BFND module_scope;
static int position = IN_OUTSIDE;
static int attr_ndim; /* number of dimensions in DIMENSION (array_spec)
attribute declaration */
static PTR_LLND attr_dims; /* low level representation of array_spec in
DIMENSION (array_spec) attribute declarartion. */
static int in_vec = NO; /* set if processing array constructor */
/* Enabling traces. */
#ifndef YYDEBUG
# define YYDEBUG 0
#endif
/* Enabling verbose error messages. */
#ifdef YYERROR_VERBOSE
# undef YYERROR_VERBOSE
# define YYERROR_VERBOSE 1
#else
# define YYERROR_VERBOSE 0
#endif
/* Enabling the token table. */
#ifndef YYTOKEN_TABLE
# define YYTOKEN_TABLE 0
#endif
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
typedef union YYSTYPE
#line 435 "gram1.y"
{
int token;
char charv;
char *charp;
PTR_BFND bf_node;
PTR_LLND ll_node;
PTR_SYMB symbol;
PTR_TYPE data_type;
PTR_HASH hash_entry;
PTR_LABEL label;
}
/* Line 187 of yacc.c. */
#line 901 "gram1.tab.c"
YYSTYPE;
# define yystype YYSTYPE /* obsolescent; will be withdrawn */
# define YYSTYPE_IS_DECLARED 1
# define YYSTYPE_IS_TRIVIAL 1
#endif
/* Copy the second part of user declarations. */
#line 642 "gram1.y"
void add_scope_level();
void delete_beyond_scope_level();
PTR_HASH look_up_sym();
PTR_HASH just_look_up_sym();
PTR_HASH just_look_up_sym_in_scope();
PTR_HASH look_up_op();
PTR_SYMB make_constant();
PTR_SYMB make_scalar();
PTR_SYMB make_array();
PTR_SYMB make_pointer();
PTR_SYMB make_function();
PTR_SYMB make_external();
PTR_SYMB make_intrinsic();
PTR_SYMB make_procedure();
PTR_SYMB make_process();
PTR_SYMB make_program();
PTR_SYMB make_module();
PTR_SYMB make_common();
PTR_SYMB make_parallel_region();
PTR_SYMB make_derived_type();
PTR_SYMB make_local_entity();
PTR_SYMB make_global_entity();
PTR_TYPE make_type_node();
PTR_TYPE lookup_type(), make_type();
void process_type();
void process_interface();
void bind();
void late_bind_if_needed();
PTR_SYMB component();
PTR_SYMB lookup_type_symbol();
PTR_SYMB resolve_overloading();
PTR_BFND cur_scope();
PTR_BFND subroutine_call();
PTR_BFND process_call();
PTR_LLND deal_with_options();
PTR_LLND intrinsic_op_node();
PTR_LLND defined_op_node();
int is_substring_ref();
int is_array_section_ref();
PTR_LLND dim_expr();
PTR_BFND exit_stat();
PTR_BFND make_do();
PTR_BFND make_pardo();
PTR_BFND make_enddoall();
PTR_TYPE install_array();
PTR_SYMB install_entry();
void install_param_list();
PTR_LLND construct_entry_list();
void copy_sym_data();
PTR_LLND check_and_install();
PTR_HASH look_up();
PTR_BFND get_bfnd();
PTR_BLOB make_blob();
PTR_LABEL make_label();
PTR_LABEL make_label_node();
int is_interface_stat();
PTR_LLND make_llnd ();
PTR_LLND make_llnd_label ();
PTR_TYPE make_sa_type();
PTR_SYMB procedure_call();
PTR_BFND proc_list();
PTR_SYMB set_id_list();
PTR_LLND set_ll_list();
PTR_LLND add_to_lowLevelList(), add_to_lowList();
PTR_BFND set_stat_list() ;
PTR_BLOB follow_blob();
PTR_SYMB proc_decl_init();
PTR_CMNT make_comment();
PTR_HASH correct_symtab();
char *copyn();
char *convic();
char *StringConcatenation();
int atoi();
PTR_BFND make_logif();
PTR_BFND make_if();
PTR_BFND make_forall();
void startproc();
void match_parameters();
void make_else();
void make_elseif();
void make_endif();
void make_elsewhere();
void make_elsewhere_mask();
void make_endwhere();
void make_endforall();
void make_endselect();
void make_extend();
void make_endextend();
void make_section();
void make_section_extend();
void doinclude();
void endproc();
void err();
void execerr();
void flline();
void warn();
void warn1();
void newprog();
void set_type();
void dclerr();
void enddcl();
void install_const();
void setimpl();
void copy_module_scope();
void delete_symbol();
void replace_symbol_in_expr();
long convci();
void set_expr_type();
void errstr();
void yyerror();
void set_blobs();
void make_loop();
void startioctl();
void endioctl();
void redefine_func_arg_type();
int isResultVar();
int yylex();
/* used by FORTRAN M */
PTR_BFND make_processdo();
PTR_BFND make_processes();
PTR_BFND make_endprocesses();
PTR_BFND make_endparallel();/*OMP*/
PTR_BFND make_parallel();/*OMP*/
PTR_BFND make_endsingle();/*OMP*/
PTR_BFND make_single();/*OMP*/
PTR_BFND make_endmaster();/*OMP*/
PTR_BFND make_master();/*OMP*/
PTR_BFND make_endordered();/*OMP*/
PTR_BFND make_ordered();/*OMP*/
PTR_BFND make_endcritical();/*OMP*/
PTR_BFND make_critical();/*OMP*/
PTR_BFND make_endsections();/*OMP*/
PTR_BFND make_sections();/*OMP*/
PTR_BFND make_ompsection();/*OMP*/
PTR_BFND make_endparallelsections();/*OMP*/
PTR_BFND make_parallelsections();/*OMP*/
PTR_BFND make_endworkshare();/*OMP*/
PTR_BFND make_workshare();/*OMP*/
PTR_BFND make_endparallelworkshare();/*OMP*/
PTR_BFND make_parallelworkshare();/*OMP*/
/* Line 216 of yacc.c. */
#line 1059 "gram1.tab.c"
#ifdef short
# undef short
#endif
#ifdef YYTYPE_UINT8
typedef YYTYPE_UINT8 yytype_uint8;
#else
typedef unsigned char yytype_uint8;
#endif
#ifdef YYTYPE_INT8
typedef YYTYPE_INT8 yytype_int8;
#elif (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
typedef signed char yytype_int8;
#else
typedef short int yytype_int8;
#endif
#ifdef YYTYPE_UINT16
typedef YYTYPE_UINT16 yytype_uint16;
#else
typedef unsigned short int yytype_uint16;
#endif
#ifdef YYTYPE_INT16
typedef YYTYPE_INT16 yytype_int16;
#else
typedef short int yytype_int16;
#endif
#ifndef YYSIZE_T
# ifdef __SIZE_TYPE__
# define YYSIZE_T __SIZE_TYPE__
# elif defined size_t
# define YYSIZE_T size_t
# elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
# include <stddef.h> /* INFRINGES ON USER NAME SPACE */
# define YYSIZE_T size_t
# else
# define YYSIZE_T unsigned int
# endif
#endif
#define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
#ifndef YY_
# if YYENABLE_NLS
# if ENABLE_NLS
# include <libintl.h> /* INFRINGES ON USER NAME SPACE */
# define YY_(msgid) dgettext ("bison-runtime", msgid)
# endif
# endif
# ifndef YY_
# define YY_(msgid) msgid
# endif
#endif
/* Suppress unused-variable warnings by "using" E. */
#if ! defined lint || defined __GNUC__
# define YYUSE(e) ((void) (e))
#else
# define YYUSE(e) /* empty */
#endif
/* Identity function, used to suppress warnings about constant conditions. */
#ifndef lint
# define YYID(n) (n)
#else
#if (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
static int
YYID (int i)
#else
static int
YYID (i)
int i;
#endif
{
return i;
}
#endif
#if ! defined yyoverflow || YYERROR_VERBOSE
/* The parser invokes alloca or malloc; define the necessary symbols. */
# ifdef YYSTACK_USE_ALLOCA
# if YYSTACK_USE_ALLOCA
# ifdef __GNUC__
# define YYSTACK_ALLOC __builtin_alloca
# elif defined __BUILTIN_VA_ARG_INCR
# include <alloca.h> /* INFRINGES ON USER NAME SPACE */
# elif defined _AIX
# define YYSTACK_ALLOC __alloca
# elif defined _MSC_VER
# include <malloc.h> /* INFRINGES ON USER NAME SPACE */
# define alloca _alloca
# else
# define YYSTACK_ALLOC alloca
# if ! defined _ALLOCA_H && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
# ifndef _STDLIB_H
# define _STDLIB_H 1
# endif
# endif
# endif
# endif
# endif
# ifdef YYSTACK_ALLOC
/* Pacify GCC's `empty if-body' warning. */
# define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0))
# ifndef YYSTACK_ALLOC_MAXIMUM
/* The OS might guarantee only one guard page at the bottom of the stack,
and a page size can be as small as 4096 bytes. So we cannot safely
invoke alloca (N) if N exceeds 4096. Use a slightly smaller number
to allow for a few compiler-allocated temporary stack slots. */
# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
# endif
# else
# define YYSTACK_ALLOC YYMALLOC
# define YYSTACK_FREE YYFREE
# ifndef YYSTACK_ALLOC_MAXIMUM
# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
# endif
# if (defined __cplusplus && ! defined _STDLIB_H \
&& ! ((defined YYMALLOC || defined malloc) \
&& (defined YYFREE || defined free)))
# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
# ifndef _STDLIB_H
# define _STDLIB_H 1
# endif
# endif
# ifndef YYMALLOC
# define YYMALLOC malloc
# if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
# endif
# endif
# ifndef YYFREE
# define YYFREE free
# if ! defined free && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
void free (void *); /* INFRINGES ON USER NAME SPACE */
# endif
# endif
# endif
#endif /* ! defined yyoverflow || YYERROR_VERBOSE */
#if (! defined yyoverflow \
&& (! defined __cplusplus \
|| (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
/* A type that is properly aligned for any stack member. */
union yyalloc
{
yytype_int16 yyss;
YYSTYPE yyvs;
};
/* The size of the maximum gap between one aligned stack and the next. */
# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
/* The size of an array large to enough to hold all stacks, each with
N elements. */
# define YYSTACK_BYTES(N) \
((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \
+ YYSTACK_GAP_MAXIMUM)
/* Copy COUNT objects from FROM to TO. The source and destination do
not overlap. */
# ifndef YYCOPY
# if defined __GNUC__ && 1 < __GNUC__
# define YYCOPY(To, From, Count) \
__builtin_memcpy (To, From, (Count) * sizeof (*(From)))
# else
# define YYCOPY(To, From, Count) \
do \
{ \
YYSIZE_T yyi; \
for (yyi = 0; yyi < (Count); yyi++) \
(To)[yyi] = (From)[yyi]; \
} \
while (YYID (0))
# endif
# endif
/* Relocate STACK from its old location to the new one. The
local variables YYSIZE and YYSTACKSIZE give the old and new number of
elements in the stack, and YYPTR gives the new location of the
stack. Advance YYPTR to a properly aligned location for the next
stack. */
# define YYSTACK_RELOCATE(Stack) \
do \
{ \
YYSIZE_T yynewbytes; \
YYCOPY (&yyptr->Stack, Stack, yysize); \
Stack = &yyptr->Stack; \
yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
yyptr += yynewbytes / sizeof (*yyptr); \
} \
while (YYID (0))
#endif
/* YYFINAL -- State number of the termination state. */
#define YYFINAL 2
/* YYLAST -- Last index in YYTABLE. */
#define YYLAST 5799
/* YYNTOKENS -- Number of terminals. */
#define YYNTOKENS 357
/* YYNNTS -- Number of nonterminals. */
#define YYNNTS 539
/* YYNRULES -- Number of rules. */
#define YYNRULES 1297
/* YYNRULES -- Number of states. */
#define YYNSTATES 2585
/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */
#define YYUNDEFTOK 2
#define YYMAXUTOK 356
#define YYTRANSLATE(YYX) \
((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */
static const yytype_uint16 yytranslate[] =
{
0, 3, 4, 5, 6, 7, 8, 9, 10, 11,
12, 13, 14, 15, 16, 17, 18, 19, 20, 21,
22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
32, 33, 34, 35, 36, 37, 38, 39, 40, 41,
42, 43, 44, 45, 46, 47, 48, 49, 50, 51,
52, 53, 54, 55, 56, 57, 58, 59, 60, 61,
62, 63, 64, 65, 66, 67, 68, 69, 70, 71,
72, 73, 74, 75, 76, 77, 78, 79, 80, 81,
82, 83, 84, 85, 86, 87, 88, 89, 90, 91,
92, 93, 94, 95, 96, 97, 98, 99, 100, 101,
102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
112, 113, 114, 115, 116, 117, 118, 119, 120, 121,
122, 123, 124, 125, 126, 127, 128, 129, 130, 131,
132, 133, 134, 135, 136, 137, 138, 139, 140, 141,
142, 143, 144, 145, 146, 147, 148, 149, 150, 151,
152, 153, 154, 155, 156, 157, 158, 159, 160, 161,
162, 163, 164, 165, 166, 167, 168, 169, 170, 171,
172, 173, 174, 175, 176, 177, 178, 179, 180, 181,
182, 183, 184, 185, 186, 187, 188, 189, 190, 191,
192, 193, 194, 195, 196, 197, 198, 199, 200, 201,
202, 203, 204, 205, 206, 207, 208, 209, 210, 211,
212, 213, 214, 215, 216, 217, 218, 219, 220, 221,
222, 223, 224, 225, 226, 227, 228, 229, 230, 231,
232, 233, 234, 235, 236, 237, 238, 239, 240, 241,
242, 243, 244, 245, 246, 247, 248, 249, 250, 251,
252, 253, 254, 255, 256, 257, 258, 259, 260, 261,
262, 263, 264, 265, 266, 267, 268, 269, 270, 271,
272, 273, 274, 275, 276, 277, 278, 279, 280, 281,
282, 283, 284, 285, 286, 287, 288, 289, 290, 291,
292, 293, 294, 295, 296, 297, 298, 299, 300, 301,
302, 303, 304, 305, 306, 307, 308, 309, 310, 311,
312, 313, 314, 315, 316, 317, 318, 319, 320, 321,
322, 323, 324, 325, 326, 327, 328, 329, 330, 331,
332, 333, 334, 335, 336, 337, 338, 339, 340, 341,
342, 343, 344, 345, 346, 347, 348, 349, 350, 351,
352, 353, 354, 1, 2, 355, 356
};
#if YYDEBUG
/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
YYRHS. */
static const yytype_uint16 yyprhs[] =
{
0, 0, 3, 4, 8, 12, 16, 20, 24, 27,
29, 31, 33, 37, 41, 46, 52, 58, 62, 67,
71, 72, 75, 78, 81, 83, 85, 90, 96, 101,
107, 110, 116, 118, 119, 121, 122, 124, 125, 128,
132, 134, 138, 140, 142, 144, 145, 146, 147, 149,
151, 153, 155, 157, 159, 161, 163, 165, 167, 169,
171, 173, 176, 181, 184, 190, 192, 194, 196, 198,
200, 202, 204, 206, 208, 210, 212, 214, 217, 221,
227, 233, 236, 238, 240, 242, 244, 246, 248, 250,
252, 254, 256, 258, 260, 262, 264, 266, 268, 270,
272, 274, 276, 278, 283, 291, 294, 298, 306, 313,
314, 317, 323, 325, 330, 332, 334, 336, 339, 341,
346, 348, 350, 352, 354, 356, 358, 361, 364, 367,
369, 371, 379, 383, 388, 392, 397, 401, 404, 410,
411, 414, 417, 423, 424, 429, 435, 436, 439, 443,
445, 447, 449, 451, 453, 455, 457, 459, 461, 463,
464, 466, 472, 479, 486, 487, 489, 495, 505, 507,
509, 512, 515, 516, 517, 520, 523, 529, 534, 539,
543, 548, 552, 557, 561, 565, 570, 576, 580, 585,
591, 595, 599, 601, 605, 608, 613, 617, 622, 626,
630, 634, 638, 642, 646, 648, 653, 655, 657, 662,
666, 667, 668, 673, 675, 679, 681, 685, 688, 692,
696, 701, 704, 705, 707, 709, 713, 719, 721, 725,
726, 728, 736, 738, 742, 745, 748, 752, 754, 756,
761, 765, 768, 770, 772, 774, 776, 780, 782, 786,
788, 790, 797, 799, 801, 804, 807, 809, 813, 815,
818, 821, 823, 827, 829, 833, 839, 841, 843, 845,
848, 851, 855, 859, 861, 865, 869, 871, 875, 877,
879, 883, 885, 889, 891, 893, 897, 903, 904, 905,
907, 912, 917, 919, 923, 927, 930, 932, 936, 940,
947, 954, 962, 964, 966, 970, 972, 974, 976, 980,
984, 985, 989, 990, 993, 997, 999, 1001, 1004, 1008,
1010, 1012, 1014, 1018, 1020, 1024, 1026, 1028, 1032, 1037,
1038, 1041, 1044, 1046, 1048, 1052, 1054, 1058, 1060, 1061,
1062, 1063, 1066, 1067, 1069, 1071, 1073, 1076, 1079, 1084,
1086, 1090, 1092, 1096, 1098, 1100, 1102, 1104, 1108, 1112,
1116, 1120, 1124, 1127, 1130, 1133, 1137, 1141, 1145, 1149,
1153, 1157, 1161, 1165, 1169, 1173, 1177, 1180, 1184, 1188,
1190, 1192, 1194, 1196, 1198, 1200, 1206, 1213, 1218, 1224,
1228, 1230, 1232, 1238, 1243, 1246, 1247, 1249, 1255, 1256,
1258, 1260, 1264, 1266, 1270, 1273, 1275, 1277, 1279, 1281,
1283, 1285, 1289, 1293, 1299, 1301, 1303, 1307, 1310, 1316,
1321, 1326, 1330, 1333, 1335, 1336, 1337, 1344, 1346, 1348,
1350, 1355, 1361, 1363, 1368, 1374, 1375, 1377, 1381, 1383,
1385, 1387, 1390, 1394, 1398, 1401, 1403, 1406, 1409, 1412,
1416, 1424, 1428, 1432, 1434, 1437, 1440, 1442, 1445, 1449,
1451, 1453, 1455, 1461, 1469, 1470, 1477, 1482, 1494, 1508,
1513, 1517, 1521, 1529, 1538, 1542, 1544, 1547, 1550, 1554,
1556, 1560, 1561, 1563, 1564, 1566, 1568, 1571, 1577, 1584,
1586, 1590, 1594, 1595, 1598, 1600, 1606, 1614, 1615, 1617,
1621, 1625, 1632, 1638, 1645, 1650, 1656, 1662, 1665, 1667,
1669, 1680, 1682, 1686, 1691, 1695, 1699, 1703, 1707, 1714,
1721, 1727, 1736, 1739, 1743, 1747, 1755, 1763, 1764, 1766,
1771, 1774, 1779, 1781, 1784, 1787, 1789, 1791, 1792, 1793,
1794, 1797, 1800, 1803, 1806, 1809, 1811, 1814, 1817, 1821,
1826, 1829, 1833, 1835, 1839, 1843, 1845, 1847, 1849, 1853,
1855, 1857, 1862, 1868, 1870, 1872, 1876, 1880, 1882, 1887,
1889, 1891, 1893, 1896, 1899, 1902, 1904, 1908, 1912, 1917,
1922, 1924, 1928, 1930, 1936, 1938, 1940, 1942, 1946, 1950,
1954, 1958, 1962, 1966, 1968, 1972, 1978, 1984, 1990, 1991,
1992, 1994, 1998, 2000, 2002, 2006, 2010, 2014, 2018, 2021,
2025, 2029, 2030, 2032, 2034, 2036, 2038, 2040, 2042, 2044,
2046, 2048, 2050, 2052, 2054, 2056, 2058, 2060, 2062, 2064,
2066, 2068, 2070, 2072, 2074, 2076, 2078, 2080, 2082, 2084,
2086, 2088, 2090, 2092, 2094, 2096, 2098, 2100, 2102, 2104,
2106, 2108, 2110, 2112, 2114, 2116, 2118, 2120, 2122, 2124,
2126, 2128, 2130, 2132, 2134, 2136, 2138, 2140, 2142, 2144,
2146, 2148, 2150, 2152, 2154, 2156, 2158, 2162, 2166, 2169,
2173, 2175, 2179, 2181, 2185, 2187, 2191, 2193, 2198, 2202,
2204, 2208, 2210, 2214, 2219, 2221, 2226, 2231, 2236, 2240,
2244, 2246, 2250, 2254, 2256, 2260, 2264, 2266, 2270, 2274,
2276, 2280, 2281, 2287, 2294, 2303, 2305, 2309, 2311, 2313,
2315, 2320, 2322, 2323, 2326, 2330, 2333, 2338, 2339, 2341,
2347, 2352, 2359, 2364, 2366, 2371, 2376, 2378, 2385, 2387,
2391, 2393, 2397, 2399, 2404, 2406, 2408, 2412, 2414, 2416,
2420, 2422, 2423, 2425, 2428, 2432, 2434, 2437, 2443, 2448,
2453, 2460, 2462, 2466, 2468, 2470, 2477, 2482, 2484, 2488,
2490, 2492, 2494, 2496, 2498, 2502, 2504, 2506, 2508, 2515,
2520, 2522, 2527, 2529, 2531, 2533, 2535, 2540, 2543, 2551,
2553, 2558, 2560, 2562, 2574, 2575, 2578, 2582, 2584, 2588,
2590, 2594, 2596, 2600, 2602, 2606, 2608, 2612, 2614, 2618,
2627, 2629, 2633, 2636, 2639, 2647, 2649, 2653, 2657, 2659,
2664, 2666, 2670, 2672, 2674, 2675, 2677, 2679, 2682, 2684,
2686, 2688, 2690, 2692, 2694, 2696, 2698, 2700, 2702, 2704,
2713, 2720, 2729, 2736, 2738, 2745, 2752, 2759, 2766, 2768,
2772, 2778, 2780, 2784, 2791, 2793, 2797, 2806, 2813, 2820,
2825, 2831, 2837, 2838, 2841, 2844, 2845, 2847, 2851, 2853,
2858, 2866, 2868, 2872, 2876, 2878, 2882, 2888, 2892, 2896,
2898, 2902, 2904, 2906, 2910, 2914, 2918, 2922, 2933, 2942,
2953, 2954, 2955, 2957, 2960, 2965, 2970, 2977, 2979, 2981,
2983, 2985, 2987, 2989, 2991, 2993, 2995, 2997, 2999, 3006,
3011, 3016, 3020, 3030, 3032, 3034, 3038, 3040, 3046, 3052,
3062, 3063, 3065, 3067, 3071, 3075, 3079, 3083, 3087, 3094,
3098, 3102, 3106, 3110, 3118, 3124, 3126, 3128, 3132, 3137,
3139, 3141, 3145, 3147, 3149, 3153, 3157, 3160, 3164, 3169,
3174, 3180, 3186, 3188, 3191, 3196, 3201, 3206, 3207, 3209,
3212, 3220, 3227, 3231, 3235, 3243, 3249, 3251, 3255, 3257,
3262, 3265, 3269, 3273, 3278, 3285, 3289, 3292, 3296, 3298,
3300, 3305, 3311, 3315, 3322, 3325, 3330, 3333, 3335, 3339,
3343, 3344, 3346, 3350, 3353, 3356, 3359, 3362, 3372, 3378,
3380, 3384, 3387, 3390, 3393, 3403, 3408, 3410, 3414, 3416,
3418, 3421, 3422, 3430, 3432, 3437, 3439, 3443, 3445, 3447,
3449, 3466, 3467, 3471, 3475, 3479, 3483, 3490, 3500, 3506,
3508, 3512, 3518, 3520, 3522, 3524, 3526, 3528, 3530, 3532,
3534, 3536, 3538, 3540, 3542, 3544, 3546, 3548, 3550, 3552,
3554, 3556, 3558, 3560, 3562, 3564, 3566, 3568, 3570, 3572,
3575, 3578, 3583, 3587, 3592, 3598, 3600, 3602, 3604, 3606,
3608, 3610, 3612, 3614, 3616, 3622, 3625, 3628, 3631, 3634,
3637, 3643, 3645, 3647, 3649, 3654, 3659, 3664, 3669, 3671,
3673, 3675, 3677, 3679, 3681, 3683, 3685, 3687, 3689, 3691,
3693, 3695, 3697, 3699, 3704, 3708, 3713, 3719, 3721, 3723,
3725, 3727, 3732, 3736, 3739, 3744, 3748, 3753, 3757, 3762,
3768, 3770, 3772, 3774, 3776, 3778, 3780, 3782, 3790, 3796,
3798, 3800, 3802, 3804, 3809, 3813, 3818, 3824, 3826, 3828,
3833, 3837, 3842, 3848, 3850, 3852, 3855, 3857, 3860, 3865,
3869, 3874, 3878, 3883, 3889, 3891, 3893, 3895, 3897, 3899,
3901, 3903, 3905, 3907, 3909, 3911, 3914, 3919, 3923, 3926,
3931, 3935, 3938, 3942, 3945, 3948, 3951, 3954, 3957, 3960,
3964, 3967, 3973, 3976, 3982, 3985, 3991, 3993, 3995, 3999,
4003, 4004, 4005, 4007, 4009, 4011, 4013, 4015, 4017, 4019,
4023, 4026, 4032, 4037, 4040, 4046, 4051, 4054, 4057, 4059,
4061, 4065, 4068, 4071, 4074, 4079, 4084, 4089, 4094, 4099,
4104, 4106, 4108, 4110, 4114, 4117, 4120, 4122, 4124, 4128,
4131, 4134, 4136, 4138, 4140, 4142, 4144, 4146, 4152, 4158,
4164, 4168, 4179, 4190, 4192, 4196, 4199, 4200, 4207, 4208,
4215, 4218, 4220, 4224, 4226, 4228, 4230, 4236, 4242, 4248,
4250, 4254, 4258, 4260, 4264, 4266, 4268, 4270, 4276, 4282,
4288, 4290, 4294, 4297, 4303, 4306, 4312, 4318, 4321, 4327,
4333, 4335, 4337, 4341, 4347, 4349, 4353, 4359, 4365, 4371,
4377, 4385, 4387, 4391, 4394, 4397, 4400, 4403
};
/* YYRHS -- A `-1'-separated list of the rules' RHS. */
static const yytype_int16 yyrhs[] =
{
358, 0, -1, -1, 358, 359, 116, -1, 360, 361,
578, -1, 360, 378, 578, -1, 360, 523, 578, -1,
360, 133, 374, -1, 360, 247, -1, 257, -1, 1,
-1, 150, -1, 193, 362, 369, -1, 57, 362, 370,
-1, 233, 362, 364, 371, -1, 363, 233, 362, 364,
371, -1, 124, 362, 365, 371, 367, -1, 366, 371,
367, -1, 114, 368, 371, 367, -1, 164, 362, 368,
-1, -1, 202, 375, -1, 195, 375, -1, 95, 375,
-1, 368, -1, 368, -1, 399, 124, 362, 368, -1,
399, 363, 124, 362, 368, -1, 363, 124, 362, 368,
-1, 363, 399, 124, 362, 368, -1, 375, 376, -1,
375, 213, 15, 368, 21, -1, 129, -1, -1, 368,
-1, -1, 368, -1, -1, 15, 21, -1, 15, 372,
21, -1, 373, -1, 372, 8, 373, -1, 368, -1,
5, -1, 64, -1, -1, -1, -1, 383, -1, 384,
-1, 385, -1, 415, -1, 411, -1, 579, -1, 420,
-1, 421, -1, 422, -1, 480, -1, 401, -1, 416,
-1, 426, -1, 216, 490, -1, 216, 490, 491, 457,
-1, 123, 489, -1, 183, 490, 15, 463, 21, -1,
391, -1, 392, -1, 397, -1, 394, -1, 396, -1,
412, -1, 413, -1, 414, -1, 379, -1, 467, -1,
465, -1, 393, -1, 142, 490, -1, 142, 490, 368,
-1, 141, 490, 15, 381, 21, -1, 140, 490, 15,
26, 21, -1, 107, 532, -1, 10, -1, 380, -1,
382, -1, 17, -1, 16, -1, 5, -1, 9, -1,
37, -1, 23, -1, 22, -1, 35, -1, 38, -1,
34, -1, 25, -1, 32, -1, 29, -1, 28, -1,
31, -1, 30, -1, 33, -1, 24, -1, 245, 490,
491, 368, -1, 245, 8, 490, 375, 390, 491, 368,
-1, 112, 490, -1, 112, 490, 368, -1, 399, 386,
368, 490, 473, 405, 410, -1, 385, 8, 368, 473,
405, 410, -1, -1, 7, 7, -1, 8, 375, 387,
7, 7, -1, 388, -1, 387, 8, 375, 388, -1,
183, -1, 390, -1, 44, -1, 87, 473, -1, 119,
-1, 145, 15, 389, 21, -1, 143, -1, 178, -1,
187, -1, 216, -1, 230, -1, 236, -1, 375, 148,
-1, 375, 180, -1, 375, 147, -1, 194, -1, 191,
-1, 145, 490, 15, 389, 21, 491, 368, -1, 391,
8, 368, -1, 178, 490, 491, 368, -1, 392, 8,
368, -1, 230, 490, 491, 419, -1, 393, 8, 419,
-1, 191, 490, -1, 191, 490, 491, 395, 459, -1,
-1, 219, 490, -1, 194, 490, -1, 194, 490, 491,
398, 459, -1, -1, 403, 400, 407, 400, -1, 244,
15, 368, 21, 400, -1, -1, 402, 368, -1, 401,
8, 368, -1, 13, -1, 6, -1, 404, -1, 144,
-1, 200, -1, 68, -1, 90, -1, 91, -1, 154,
-1, 63, -1, -1, 406, -1, 5, 553, 510, 554,
400, -1, 5, 553, 15, 554, 5, 21, -1, 5,
553, 15, 554, 496, 21, -1, -1, 406, -1, 15,
574, 408, 409, 21, -1, 15, 574, 408, 409, 8,
574, 408, 409, 21, -1, 496, -1, 5, -1, 565,
496, -1, 565, 5, -1, -1, -1, 26, 496, -1,
18, 496, -1, 87, 491, 490, 368, 473, -1, 411,
8, 368, 473, -1, 44, 490, 491, 419, -1, 412,
8, 419, -1, 187, 490, 491, 419, -1, 413, 8,
419, -1, 236, 490, 491, 419, -1, 414, 8, 419,
-1, 67, 490, 419, -1, 67, 490, 418, 419, -1,
415, 547, 418, 547, 419, -1, 415, 8, 419, -1,
167, 490, 417, 499, -1, 416, 547, 417, 547, 499,
-1, 416, 8, 499, -1, 37, 368, 37, -1, 23,
-1, 37, 368, 37, -1, 368, 473, -1, 119, 490,
491, 368, -1, 420, 8, 368, -1, 143, 490, 491,
368, -1, 421, 8, 368, -1, 117, 490, 423, -1,
422, 8, 423, -1, 15, 424, 21, -1, 425, 8,
425, -1, 424, 8, 425, -1, 368, -1, 368, 15,
495, 21, -1, 504, -1, 427, -1, 80, 489, 428,
430, -1, 427, 547, 430, -1, -1, -1, 431, 37,
432, 37, -1, 433, -1, 431, 8, 433, -1, 444,
-1, 432, 8, 444, -1, 434, 436, -1, 434, 436,
437, -1, 434, 436, 438, -1, 434, 436, 437, 438,
-1, 434, 441, -1, -1, 368, -1, 368, -1, 15,
439, 21, -1, 15, 440, 7, 440, 21, -1, 453,
-1, 439, 8, 453, -1, -1, 453, -1, 15, 442,
8, 435, 26, 439, 21, -1, 443, -1, 442, 8,
443, -1, 436, 437, -1, 436, 438, -1, 436, 437,
438, -1, 441, -1, 445, -1, 434, 435, 5, 445,
-1, 448, 5, 445, -1, 434, 435, -1, 447, -1,
449, -1, 451, -1, 36, -1, 36, 246, 513, -1,
27, -1, 27, 246, 513, -1, 64, -1, 446, -1,
434, 499, 15, 574, 492, 21, -1, 59, -1, 448,
-1, 17, 448, -1, 16, 448, -1, 149, -1, 149,
246, 513, -1, 450, -1, 17, 450, -1, 16, 450,
-1, 201, -1, 201, 246, 513, -1, 92, -1, 92,
246, 513, -1, 15, 452, 8, 452, 21, -1, 449,
-1, 447, -1, 454, -1, 17, 454, -1, 16, 454,
-1, 453, 17, 454, -1, 453, 16, 454, -1, 455,
-1, 454, 5, 455, -1, 454, 37, 455, -1, 456,
-1, 456, 9, 455, -1, 149, -1, 435, -1, 15,
453, 21, -1, 458, -1, 457, 8, 458, -1, 419,
-1, 418, -1, 460, 462, 461, -1, 459, 8, 460,
462, 461, -1, -1, -1, 368, -1, 177, 15, 381,
21, -1, 47, 15, 26, 21, -1, 464, -1, 463,
8, 464, -1, 368, 26, 496, -1, 163, 466, -1,
368, -1, 466, 8, 368, -1, 248, 490, 468, -1,
248, 490, 468, 8, 377, 471, -1, 248, 490, 468,
8, 377, 172, -1, 248, 490, 468, 8, 377, 172,
469, -1, 368, -1, 470, -1, 469, 8, 470, -1,
472, -1, 368, -1, 472, -1, 471, 8, 472, -1,
368, 18, 368, -1, -1, 15, 474, 21, -1, -1,
475, 476, -1, 474, 8, 476, -1, 477, -1, 7,
-1, 496, 7, -1, 496, 7, 477, -1, 5, -1,
496, -1, 479, -1, 478, 8, 479, -1, 149, -1,
130, 490, 481, -1, 131, -1, 482, -1, 481, 8,
482, -1, 483, 15, 486, 21, -1, -1, 484, 485,
-1, 231, 404, -1, 399, -1, 487, -1, 486, 8,
487, -1, 488, -1, 488, 16, 488, -1, 129, -1,
-1, -1, -1, 7, 7, -1, -1, 494, -1, 496,
-1, 514, -1, 565, 496, -1, 574, 493, -1, 494,
8, 574, 493, -1, 496, -1, 495, 8, 496, -1,
497, -1, 15, 496, 21, -1, 512, -1, 500, -1,
508, -1, 515, -1, 496, 17, 496, -1, 496, 16,
496, -1, 496, 5, 496, -1, 496, 37, 496, -1,
496, 9, 496, -1, 380, 496, -1, 17, 496, -1,
16, 496, -1, 496, 25, 496, -1, 496, 29, 496,
-1, 496, 31, 496, -1, 496, 28, 496, -1, 496,
30, 496, -1, 496, 32, 496, -1, 496, 24, 496,
-1, 496, 33, 496, -1, 496, 38, 496, -1, 496,
35, 496, -1, 496, 22, 496, -1, 34, 496, -1,
496, 23, 496, -1, 496, 380, 496, -1, 17, -1,
16, -1, 368, -1, 499, -1, 502, -1, 501, -1,
499, 15, 574, 492, 21, -1, 499, 15, 574, 492,
21, 506, -1, 502, 15, 492, 21, -1, 502, 15,
492, 21, 506, -1, 500, 3, 129, -1, 499, -1,
502, -1, 499, 15, 574, 492, 21, -1, 502, 15,
492, 21, -1, 499, 506, -1, -1, 506, -1, 15,
507, 7, 507, 21, -1, -1, 496, -1, 509, -1,
509, 246, 513, -1, 510, -1, 510, 246, 513, -1,
511, 505, -1, 36, -1, 27, -1, 201, -1, 92,
-1, 149, -1, 64, -1, 499, 246, 64, -1, 510,
246, 64, -1, 15, 497, 8, 497, 21, -1, 499,
-1, 510, -1, 496, 7, 496, -1, 496, 7, -1,
496, 7, 496, 7, 496, -1, 496, 7, 7, 496,
-1, 7, 496, 7, 496, -1, 7, 7, 496, -1,
7, 496, -1, 7, -1, -1, -1, 14, 409, 516,
571, 517, 20, -1, 499, -1, 502, -1, 503, -1,
519, 8, 574, 503, -1, 519, 8, 574, 565, 499,
-1, 518, -1, 520, 8, 574, 518, -1, 520, 8,
574, 565, 499, -1, -1, 499, -1, 522, 8, 499,
-1, 544, -1, 543, -1, 526, -1, 534, 526, -1,
102, 552, 532, -1, 103, 552, 531, -1, 108, 532,
-1, 524, -1, 534, 524, -1, 535, 544, -1, 535,
239, -1, 534, 535, 239, -1, 97, 552, 15, 496,
21, 239, 531, -1, 96, 552, 531, -1, 106, 552,
531, -1, 527, -1, 76, 552, -1, 536, 544, -1,
536, -1, 534, 536, -1, 105, 552, 531, -1, 580,
-1, 844, -1, 862, -1, 89, 552, 15, 496, 21,
-1, 89, 552, 553, 542, 554, 614, 525, -1, -1,
8, 375, 254, 15, 496, 21, -1, 254, 15, 496,
21, -1, 185, 552, 553, 542, 554, 547, 540, 26,
496, 8, 496, -1, 185, 552, 553, 542, 554, 547,
540, 26, 496, 8, 496, 8, 496, -1, 62, 552,
528, 531, -1, 84, 552, 531, -1, 110, 552, 531,
-1, 218, 552, 375, 62, 15, 496, 21, -1, 534,
218, 552, 375, 62, 15, 496, 21, -1, 15, 530,
21, -1, 496, -1, 496, 7, -1, 7, 496, -1,
496, 7, 496, -1, 529, -1, 530, 8, 529, -1,
-1, 368, -1, -1, 368, -1, 75, -1, 533, 7,
-1, 155, 552, 15, 496, 21, -1, 122, 552, 15,
537, 539, 21, -1, 538, -1, 537, 8, 538, -1,
540, 26, 514, -1, -1, 8, 496, -1, 368, -1,
540, 26, 496, 8, 496, -1, 540, 26, 496, 8,
496, 8, 496, -1, -1, 149, -1, 113, 552, 531,
-1, 98, 552, 531, -1, 98, 552, 15, 496, 21,
531, -1, 252, 552, 15, 496, 21, -1, 534, 252,
552, 15, 496, 21, -1, 545, 496, 26, 496, -1,
188, 552, 500, 18, 496, -1, 48, 552, 479, 240,
368, -1, 77, 552, -1, 546, -1, 555, -1, 46,
552, 15, 496, 21, 479, 8, 479, 8, 479, -1,
548, -1, 548, 15, 21, -1, 548, 15, 549, 21,
-1, 214, 552, 507, -1, 551, 552, 507, -1, 79,
552, 531, -1, 115, 552, 531, -1, 45, 552, 15,
521, 519, 21, -1, 81, 552, 15, 521, 520, 21,
-1, 170, 552, 15, 522, 21, -1, 253, 552, 15,
496, 21, 500, 26, 496, -1, 152, 429, -1, 186,
552, 479, -1, 49, 552, 368, -1, 49, 552, 368,
547, 15, 478, 21, -1, 69, 552, 15, 478, 21,
547, 496, -1, -1, 8, -1, 61, 552, 368, 574,
-1, 574, 550, -1, 549, 8, 574, 550, -1, 496,
-1, 565, 496, -1, 5, 479, -1, 184, -1, 232,
-1, -1, -1, -1, 556, 562, -1, 556, 577, -1,
556, 5, -1, 556, 9, -1, 558, 562, -1, 560,
-1, 566, 562, -1, 566, 561, -1, 566, 562, 569,
-1, 566, 561, 8, 569, -1, 567, 562, -1, 567,
562, 571, -1, 568, -1, 568, 8, 571, -1, 557,
552, 575, -1, 53, -1, 215, -1, 104, -1, 559,
552, 575, -1, 176, -1, 66, -1, 139, 552, 575,
562, -1, 139, 552, 575, 562, 571, -1, 577, -1,
5, -1, 15, 576, 21, -1, 15, 563, 21, -1,
564, -1, 563, 8, 574, 564, -1, 576, -1, 5,
-1, 9, -1, 565, 496, -1, 565, 5, -1, 565,
9, -1, 166, -1, 197, 552, 575, -1, 256, 552,
575, -1, 190, 552, 576, 575, -1, 190, 552, 5,
575, -1, 570, -1, 569, 8, 570, -1, 500, -1,
15, 569, 8, 541, 21, -1, 497, -1, 573, -1,
572, -1, 497, 8, 497, -1, 497, 8, 573, -1,
573, 8, 497, -1, 573, 8, 573, -1, 572, 8,
497, -1, 572, 8, 573, -1, 512, -1, 15, 496,
21, -1, 15, 497, 8, 541, 21, -1, 15, 573,
8, 541, 21, -1, 15, 572, 8, 541, 21, -1,
-1, -1, 577, -1, 15, 576, 21, -1, 500, -1,
508, -1, 576, 498, 576, -1, 576, 5, 576, -1,
576, 37, 576, -1, 576, 9, 576, -1, 498, 576,
-1, 576, 23, 576, -1, 129, 26, 496, -1, -1,
257, -1, 581, -1, 629, -1, 604, -1, 583, -1,
594, -1, 589, -1, 641, -1, 644, -1, 722, -1,
586, -1, 595, -1, 597, -1, 599, -1, 601, -1,
649, -1, 655, -1, 652, -1, 781, -1, 779, -1,
605, -1, 630, -1, 659, -1, 711, -1, 709, -1,
710, -1, 712, -1, 713, -1, 714, -1, 715, -1,
716, -1, 724, -1, 726, -1, 731, -1, 728, -1,
730, -1, 734, -1, 732, -1, 733, -1, 745, -1,
749, -1, 750, -1, 753, -1, 752, -1, 754, -1,
755, -1, 756, -1, 757, -1, 658, -1, 739, -1,
740, -1, 741, -1, 744, -1, 758, -1, 761, -1,
766, -1, 771, -1, 773, -1, 774, -1, 775, -1,
776, -1, 778, -1, 737, -1, 780, -1, 82, 490,
582, -1, 581, 8, 582, -1, 368, 473, -1, 94,
490, 584, -1, 585, -1, 584, 8, 585, -1, 368,
-1, 138, 490, 587, -1, 588, -1, 587, 8, 588,
-1, 368, -1, 228, 490, 593, 590, -1, 15, 591,
21, -1, 592, -1, 591, 8, 592, -1, 496, -1,
496, 7, 496, -1, 7, 15, 495, 21, -1, 368,
-1, 259, 490, 368, 473, -1, 303, 490, 368, 473,
-1, 594, 8, 368, 473, -1, 136, 490, 596, -1,
595, 8, 596, -1, 368, -1, 211, 490, 598, -1,
597, 8, 598, -1, 368, -1, 205, 490, 600, -1,
599, 8, 600, -1, 368, -1, 70, 490, 602, -1,
601, 8, 602, -1, 368, -1, 175, 368, 473, -1,
-1, 88, 490, 608, 611, 603, -1, 204, 552, 608,
612, 614, 603, -1, 204, 552, 612, 614, 603, 7,
7, 606, -1, 607, -1, 606, 8, 607, -1, 608,
-1, 609, -1, 368, -1, 368, 15, 495, 21, -1,
368, -1, -1, 612, 614, -1, 15, 613, 21, -1,
614, 615, -1, 613, 8, 614, 615, -1, -1, 58,
-1, 58, 15, 574, 628, 21, -1, 126, 15, 616,
21, -1, 258, 15, 616, 8, 496, 21, -1, 165,
15, 496, 21, -1, 5, -1, 137, 15, 616, 21,
-1, 86, 15, 617, 21, -1, 368, -1, 15, 618,
21, 375, 255, 620, -1, 619, -1, 618, 8, 619,
-1, 496, -1, 496, 7, 496, -1, 621, -1, 621,
15, 622, 21, -1, 368, -1, 623, -1, 622, 8,
623, -1, 496, -1, 770, -1, 40, 624, 625, -1,
368, -1, -1, 626, -1, 17, 627, -1, 625, 17,
627, -1, 496, -1, 565, 496, -1, 565, 496, 8,
565, 496, -1, 43, 490, 632, 634, -1, 199, 552,
633, 634, -1, 199, 552, 634, 7, 7, 631, -1,
633, -1, 631, 8, 633, -1, 368, -1, 499, -1,
15, 639, 21, 375, 255, 635, -1, 638, 15, 636,
21, -1, 637, -1, 636, 8, 637, -1, 496, -1,
5, -1, 514, -1, 368, -1, 640, -1, 639, 8,
640, -1, 368, -1, 5, -1, 7, -1, 642, 7,
7, 490, 368, 473, -1, 641, 8, 368, 473, -1,
643, -1, 642, 8, 375, 643, -1, 82, -1, 259,
-1, 303, -1, 94, -1, 87, 15, 474, 21, -1,
228, 590, -1, 43, 15, 639, 21, 375, 255, 635,
-1, 43, -1, 88, 612, 614, 603, -1, 88, -1,
67, -1, 399, 8, 375, 93, 490, 15, 645, 21,
7, 7, 647, -1, -1, 646, 7, -1, 645, 8,
7, -1, 648, -1, 647, 8, 648, -1, 368, -1,
127, 490, 650, -1, 651, -1, 650, 8, 651, -1,
368, -1, 74, 490, 653, -1, 654, -1, 653, 8,
654, -1, 368, -1, 51, 490, 656, -1, 51, 490,
8, 375, 67, 7, 7, 656, -1, 657, -1, 656,
8, 657, -1, 368, 473, -1, 168, 552, -1, 182,
552, 15, 660, 21, 661, 665, -1, 499, -1, 660,
8, 499, -1, 614, 173, 662, -1, 614, -1, 499,
15, 663, 21, -1, 664, -1, 663, 8, 664, -1,
496, -1, 5, -1, -1, 666, -1, 667, -1, 666,
667, -1, 671, -1, 694, -1, 702, -1, 668, -1,
678, -1, 680, -1, 679, -1, 669, -1, 672, -1,
673, -1, 676, -1, 8, 375, 209, 15, 717, 7,
718, 21, -1, 8, 375, 209, 15, 718, 21, -1,
8, 375, 71, 15, 670, 7, 718, 21, -1, 8,
375, 71, 15, 718, 21, -1, 368, -1, 8, 375,
169, 15, 675, 21, -1, 8, 375, 282, 15, 675,
21, -1, 8, 375, 191, 15, 675, 21, -1, 8,
375, 320, 15, 674, 21, -1, 496, -1, 496, 8,
496, -1, 496, 8, 496, 8, 496, -1, 500, -1,
675, 8, 500, -1, 8, 375, 322, 15, 677, 21,
-1, 662, -1, 677, 8, 662, -1, 8, 375, 135,
15, 717, 7, 735, 21, -1, 8, 375, 135, 15,
735, 21, -1, 8, 375, 229, 15, 496, 21, -1,
8, 375, 41, 681, -1, 8, 375, 41, 681, 681,
-1, 15, 682, 683, 684, 21, -1, -1, 148, 7,
-1, 180, 7, -1, -1, 685, -1, 684, 8, 685,
-1, 707, -1, 707, 15, 686, 21, -1, 707, 15,
686, 21, 15, 688, 21, -1, 687, -1, 686, 8,
687, -1, 496, 7, 496, -1, 689, -1, 688, 8,
689, -1, 690, 7, 691, 7, 692, -1, 690, 7,
691, -1, 690, 7, 692, -1, 690, -1, 691, 7,
692, -1, 691, -1, 692, -1, 375, 217, 693, -1,
375, 157, 693, -1, 375, 128, 693, -1, 15, 494,
21, -1, 8, 375, 208, 15, 695, 699, 696, 8,
698, 21, -1, 8, 375, 208, 15, 695, 699, 696,
21, -1, 8, 375, 208, 15, 695, 697, 696, 7,
698, 21, -1, -1, -1, 368, -1, 375, 699, -1,
698, 8, 375, 699, -1, 700, 15, 500, 21, -1,
701, 15, 675, 8, 496, 21, -1, 234, -1, 192,
-1, 162, -1, 159, -1, 35, -1, 22, -1, 24,
-1, 33, -1, 247, -1, 158, -1, 161, -1, 8,
375, 223, 15, 704, 21, -1, 8, 375, 224, 703,
-1, 8, 375, 226, 703, -1, 8, 375, 221, -1,
8, 375, 221, 15, 707, 15, 591, 21, 21, -1,
368, -1, 705, -1, 704, 8, 705, -1, 707, -1,
707, 15, 706, 78, 21, -1, 707, 15, 706, 591,
21, -1, 707, 15, 706, 591, 21, 15, 375, 78,
21, -1, -1, 499, -1, 707, -1, 708, 8, 707,
-1, 225, 552, 703, -1, 224, 552, 703, -1, 227,
552, 703, -1, 226, 552, 703, -1, 222, 552, 703,
15, 704, 21, -1, 206, 552, 697, -1, 207, 552,
697, -1, 72, 552, 670, -1, 73, 552, 670, -1,
210, 552, 15, 717, 7, 718, 21, -1, 210, 552,
15, 718, 21, -1, 368, -1, 719, -1, 718, 8,
719, -1, 707, 15, 720, 21, -1, 707, -1, 721,
-1, 720, 8, 721, -1, 496, -1, 7, -1, 237,
490, 723, -1, 722, 8, 723, -1, 368, 473, -1,
238, 552, 725, -1, 238, 552, 725, 694, -1, 238,
552, 725, 669, -1, 238, 552, 725, 694, 669, -1,
238, 552, 725, 669, 694, -1, 368, -1, 111, 552,
-1, 725, 15, 496, 21, -1, 725, 15, 514, 21,
-1, 174, 552, 501, 729, -1, -1, 672, -1, 109,
552, -1, 160, 552, 727, 375, 175, 610, 473, -1,
160, 552, 727, 375, 323, 500, -1, 189, 552, 717,
-1, 212, 552, 717, -1, 135, 552, 15, 717, 7,
735, 21, -1, 135, 552, 15, 735, 21, -1, 736,
-1, 735, 8, 736, -1, 707, -1, 707, 15, 495,
21, -1, 134, 552, -1, 134, 552, 671, -1, 134,
552, 738, -1, 134, 552, 671, 738, -1, 8, 375,
208, 15, 675, 21, -1, 50, 552, 743, -1, 99,
552, -1, 52, 552, 743, -1, 368, -1, 742, -1,
742, 15, 495, 21, -1, 120, 552, 500, 26, 500,
-1, 83, 552, 748, -1, 83, 552, 748, 15, 746,
21, -1, 574, 747, -1, 746, 8, 574, 747, -1,
565, 496, -1, 149, -1, 100, 552, 748, -1, 146,
552, 751, -1, -1, 496, -1, 332, 552, 495, -1,
101, 552, -1, 241, 552, -1, 242, 552, -1, 56,
552, -1, 65, 552, 574, 15, 549, 21, 409, 491,
675, -1, 324, 552, 15, 759, 21, -1, 760, -1,
759, 8, 760, -1, 375, 315, -1, 375, 318, -1,
375, 182, -1, 220, 552, 15, 762, 26, 627, 21,
614, 765, -1, 499, 15, 763, 21, -1, 764, -1,
763, 8, 764, -1, 617, -1, 770, -1, 132, 708,
-1, -1, 153, 552, 15, 499, 18, 767, 21, -1,
499, -1, 499, 15, 768, 21, -1, 769, -1, 768,
8, 769, -1, 770, -1, 7, -1, 5, -1, 325,
552, 496, 8, 375, 330, 15, 675, 21, 8, 375,
329, 15, 495, 21, 772, -1, -1, 8, 375, 182,
-1, 8, 375, 318, -1, 326, 552, 496, -1, 327,
552, 496, -1, 327, 552, 496, 8, 375, 315, -1,
328, 552, 496, 8, 375, 331, 15, 499, 21, -1,
333, 552, 15, 777, 21, -1, 503, -1, 777, 8,
503, -1, 334, 552, 15, 660, 21, -1, 830, -1,
783, -1, 782, -1, 800, -1, 803, -1, 804, -1,
805, -1, 806, -1, 812, -1, 815, -1, 820, -1,
821, -1, 822, -1, 825, -1, 826, -1, 827, -1,
828, -1, 829, -1, 831, -1, 832, -1, 833, -1,
834, -1, 835, -1, 836, -1, 837, -1, 838, -1,
839, -1, 268, 552, -1, 275, 552, -1, 291, 552,
614, 784, -1, 291, 552, 614, -1, 547, 614, 785,
614, -1, 784, 547, 614, 785, 614, -1, 787, -1,
796, -1, 791, -1, 792, -1, 788, -1, 789, -1,
790, -1, 794, -1, 795, -1, 842, 15, 843, 841,
21, -1, 191, 786, -1, 282, 786, -1, 285, 786,
-1, 265, 786, -1, 299, 786, -1, 84, 15, 375,
793, 21, -1, 191, -1, 299, -1, 288, -1, 304,
15, 496, 21, -1, 289, 15, 496, 21, -1, 208,
15, 797, 21, -1, 614, 799, 7, 798, -1, 675,
-1, 17, -1, 16, -1, 5, -1, 37, -1, 162,
-1, 159, -1, 35, -1, 22, -1, 24, -1, 33,
-1, 305, -1, 306, -1, 307, -1, 247, -1, 297,
552, 614, 801, -1, 297, 552, 614, -1, 547, 614,
802, 614, -1, 801, 547, 614, 802, 614, -1, 787,
-1, 796, -1, 788, -1, 789, -1, 279, 552, 614,
819, -1, 279, 552, 614, -1, 296, 552, -1, 269,
552, 614, 807, -1, 269, 552, 614, -1, 272, 552,
614, 819, -1, 272, 552, 614, -1, 547, 614, 808,
614, -1, 807, 547, 614, 808, 614, -1, 787, -1,
796, -1, 788, -1, 789, -1, 810, -1, 809, -1,
290, -1, 298, 15, 375, 811, 8, 496, 21, -1,
298, 15, 375, 811, 21, -1, 230, -1, 94, -1,
284, -1, 295, -1, 300, 552, 614, 813, -1, 300,
552, 614, -1, 547, 614, 814, 614, -1, 813, 547,
614, 814, 614, -1, 787, -1, 788, -1, 280, 552,
614, 816, -1, 280, 552, 614, -1, 547, 614, 817,
614, -1, 816, 547, 614, 817, 614, -1, 819, -1,
818, -1, 266, 786, -1, 287, -1, 302, 552, -1,
281, 552, 614, 819, -1, 281, 552, 614, -1, 292,
552, 614, 823, -1, 292, 552, 614, -1, 547, 614,
824, 614, -1, 823, 547, 614, 824, 614, -1, 787,
-1, 796, -1, 791, -1, 792, -1, 788, -1, 789,
-1, 790, -1, 794, -1, 795, -1, 810, -1, 809,
-1, 276, 552, -1, 293, 552, 614, 784, -1, 293,
552, 614, -1, 277, 552, -1, 294, 552, 614, 784,
-1, 294, 552, 614, -1, 278, 552, -1, 301, 490,
786, -1, 286, 552, -1, 273, 552, -1, 290, 552,
-1, 274, 552, -1, 264, 552, -1, 263, 552, -1,
283, 552, 786, -1, 283, 552, -1, 267, 552, 15,
499, 21, -1, 267, 552, -1, 271, 552, 15, 499,
21, -1, 271, 552, -1, 37, 368, 842, 37, 843,
-1, 840, -1, 499, -1, 841, 8, 840, -1, 841,
8, 499, -1, -1, -1, 845, -1, 858, -1, 846,
-1, 859, -1, 847, -1, 848, -1, 860, -1, 308,
552, 849, -1, 310, 552, -1, 312, 552, 15, 855,
21, -1, 312, 552, 15, 21, -1, 312, 552, -1,
313, 552, 15, 855, 21, -1, 313, 552, 15, 21,
-1, 313, 552, -1, 375, 376, -1, 850, -1, 851,
-1, 850, 8, 851, -1, 375, 852, -1, 375, 854,
-1, 375, 853, -1, 147, 15, 855, 21, -1, 148,
15, 855, 21, -1, 180, 15, 855, 21, -1, 318,
15, 855, 21, -1, 319, 15, 855, 21, -1, 314,
15, 856, 21, -1, 315, -1, 675, -1, 857, -1,
856, 8, 857, -1, 375, 316, -1, 375, 317, -1,
309, -1, 311, -1, 321, 490, 861, -1, 375, 376,
-1, 375, 853, -1, 863, -1, 864, -1, 865, -1,
866, -1, 871, -1, 889, -1, 335, 895, 15, 872,
21, -1, 336, 895, 15, 879, 21, -1, 337, 895,
15, 884, 21, -1, 339, 895, 887, -1, 339, 895,
887, 8, 375, 351, 15, 867, 21, 869, -1, 339,
895, 887, 8, 375, 352, 15, 867, 21, 870, -1,
868, -1, 867, 8, 868, -1, 375, 353, -1, -1,
8, 375, 352, 15, 867, 21, -1, -1, 8, 375,
351, 15, 867, 21, -1, 340, 895, -1, 873, -1,
872, 8, 873, -1, 874, -1, 875, -1, 876, -1,
375, 208, 15, 698, 21, -1, 375, 191, 15, 675,
21, -1, 375, 183, 15, 877, 21, -1, 878, -1,
877, 8, 878, -1, 503, 26, 496, -1, 880, -1,
879, 8, 880, -1, 881, -1, 882, -1, 883, -1,
375, 228, 15, 704, 21, -1, 375, 41, 15, 704,
21, -1, 375, 209, 15, 718, 21, -1, 885, -1,
884, 8, 885, -1, 375, 338, -1, 375, 342, 15,
660, 21, -1, 375, 341, -1, 375, 341, 15, 660,
21, -1, 375, 343, 15, 888, 21, -1, 375, 354,
-1, 375, 354, 15, 886, 21, -1, 496, 8, 496,
8, 496, -1, 368, -1, 503, -1, 888, 8, 503,
-1, 344, 895, 15, 890, 21, -1, 891, -1, 890,
8, 891, -1, 375, 244, 15, 892, 21, -1, 375,
330, 15, 660, 21, -1, 375, 345, 15, 660, 21,
-1, 375, 346, 15, 496, 21, -1, 375, 347, 15,
894, 8, 496, 21, -1, 893, -1, 892, 8, 893,
-1, 375, 315, -1, 375, 350, -1, 375, 348, -1,
375, 349, -1, -1
};
/* YYRLINE[YYN] -- source line where rule number YYN was defined. */
static const yytype_uint16 yyrline[] =
{
0, 789, 789, 790, 794, 796, 810, 841, 850, 856,
876, 885, 901, 913, 923, 930, 936, 941, 946, 970,
997, 1011, 1013, 1015, 1019, 1036, 1050, 1074, 1090, 1104,
1122, 1124, 1131, 1135, 1136, 1143, 1144, 1152, 1153, 1155,
1159, 1160, 1164, 1168, 1174, 1184, 1188, 1193, 1200, 1201,
1202, 1203, 1204, 1205, 1206, 1207, 1208, 1209, 1210, 1211,
1212, 1213, 1218, 1223, 1230, 1232, 1233, 1234, 1235, 1236,
1237, 1238, 1239, 1240, 1241, 1242, 1243, 1246, 1250, 1258,
1266, 1275, 1283, 1287, 1289, 1293, 1295, 1297, 1299, 1301,
1303, 1305, 1307, 1309, 1311, 1313, 1315, 1317, 1319, 1321,
1323, 1325, 1327, 1332, 1341, 1351, 1359, 1369, 1390, 1410,
1411, 1413, 1417, 1419, 1423, 1427, 1429, 1433, 1439, 1443,
1445, 1449, 1453, 1457, 1461, 1465, 1471, 1475, 1479, 1485,
1490, 1497, 1508, 1521, 1532, 1545, 1555, 1568, 1573, 1580,
1583, 1588, 1593, 1600, 1603, 1613, 1627, 1630, 1649, 1676,
1678, 1690, 1698, 1699, 1700, 1701, 1702, 1703, 1704, 1709,
1710, 1714, 1716, 1723, 1728, 1729, 1731, 1733, 1746, 1752,
1758, 1767, 1776, 1789, 1790, 1793, 1797, 1812, 1827, 1845,
1866, 1886, 1908, 1925, 1943, 1950, 1957, 1964, 1977, 1984,
1991, 2002, 2006, 2008, 2013, 2031, 2042, 2054, 2066, 2080,
2086, 2093, 2099, 2105, 2113, 2120, 2136, 2139, 2148, 2150,
2154, 2158, 2178, 2182, 2184, 2188, 2189, 2192, 2194, 2196,
2198, 2200, 2203, 2206, 2210, 2216, 2220, 2224, 2226, 2231,
2232, 2236, 2240, 2242, 2246, 2248, 2250, 2255, 2259, 2261,
2263, 2266, 2268, 2269, 2270, 2271, 2272, 2273, 2274, 2275,
2278, 2279, 2285, 2288, 2289, 2291, 2295, 2296, 2299, 2300,
2302, 2306, 2307, 2308, 2309, 2311, 2314, 2315, 2324, 2326,
2333, 2340, 2347, 2356, 2358, 2360, 2364, 2366, 2370, 2379,
2386, 2393, 2395, 2399, 2403, 2409, 2411, 2416, 2420, 2424,
2431, 2438, 2448, 2450, 2454, 2466, 2469, 2478, 2491, 2497,
2503, 2509, 2517, 2527, 2529, 2533, 2535, 2568, 2570, 2574,
2613, 2614, 2618, 2618, 2623, 2627, 2635, 2644, 2653, 2663,
2669, 2672, 2674, 2678, 2686, 2701, 2708, 2710, 2714, 2730,
2730, 2734, 2736, 2748, 2750, 2754, 2760, 2772, 2784, 2801,
2830, 2831, 2839, 2840, 2844, 2846, 2848, 2859, 2863, 2869,
2871, 2875, 2877, 2879, 2883, 2885, 2889, 2891, 2893, 2895,
2897, 2899, 2901, 2903, 2905, 2907, 2909, 2911, 2913, 2915,
2917, 2919, 2921, 2923, 2925, 2927, 2929, 2931, 2933, 2937,
2938, 2949, 3023, 3035, 3037, 3041, 3172, 3222, 3266, 3308,
3366, 3368, 3370, 3409, 3452, 3463, 3464, 3468, 3473, 3474,
3478, 3480, 3486, 3488, 3494, 3507, 3513, 3520, 3526, 3534,
3542, 3558, 3568, 3581, 3588, 3590, 3613, 3615, 3617, 3619,
3621, 3623, 3625, 3627, 3631, 3631, 3631, 3645, 3647, 3670,
3672, 3674, 3690, 3692, 3694, 3708, 3711, 3713, 3721, 3723,
3725, 3727, 3781, 3801, 3816, 3825, 3828, 3878, 3884, 3889,
3907, 3909, 3911, 3913, 3915, 3918, 3924, 3926, 3928, 3931,
3933, 3935, 3962, 3971, 3980, 3981, 3983, 3988, 3995, 4003,
4005, 4009, 4012, 4014, 4018, 4024, 4026, 4028, 4030, 4034,
4036, 4045, 4046, 4053, 4054, 4058, 4062, 4083, 4086, 4090,
4092, 4099, 4104, 4105, 4116, 4128, 4151, 4176, 4177, 4184,
4186, 4188, 4190, 4192, 4196, 4273, 4285, 4292, 4294, 4295,
4297, 4306, 4313, 4320, 4328, 4333, 4338, 4341, 4344, 4347,
4350, 4353, 4357, 4375, 4380, 4399, 4418, 4422, 4423, 4426,
4430, 4435, 4442, 4444, 4446, 4450, 4451, 4462, 4477, 4481,
4488, 4491, 4501, 4514, 4527, 4530, 4532, 4535, 4538, 4542,
4551, 4554, 4558, 4560, 4566, 4570, 4572, 4574, 4581, 4585,
4587, 4591, 4593, 4597, 4616, 4632, 4641, 4650, 4652, 4656,
4682, 4697, 4712, 4729, 4737, 4746, 4754, 4759, 4764, 4786,
4802, 4804, 4808, 4810, 4817, 4819, 4821, 4825, 4827, 4829,
4831, 4833, 4835, 4839, 4842, 4845, 4851, 4857, 4866, 4870,
4877, 4879, 4883, 4885, 4887, 4892, 4897, 4902, 4907, 4916,
4921, 4927, 4928, 4943, 4944, 4945, 4946, 4947, 4948, 4949,
4950, 4951, 4952, 4953, 4954, 4955, 4956, 4957, 4958, 4959,
4960, 4961, 4964, 4965, 4966, 4967, 4968, 4969, 4970, 4971,
4972, 4973, 4974, 4975, 4976, 4977, 4978, 4979, 4980, 4981,
4982, 4983, 4984, 4985, 4986, 4987, 4988, 4989, 4990, 4991,
4992, 4993, 4994, 4995, 4996, 4997, 4998, 4999, 5000, 5001,
5002, 5003, 5004, 5005, 5006, 5007, 5011, 5013, 5024, 5045,
5049, 5051, 5055, 5068, 5072, 5074, 5078, 5089, 5100, 5104,
5106, 5110, 5112, 5114, 5129, 5141, 5161, 5181, 5203, 5209,
5218, 5226, 5232, 5240, 5247, 5253, 5262, 5266, 5272, 5280,
5294, 5308, 5313, 5329, 5344, 5372, 5374, 5378, 5380, 5384,
5413, 5436, 5457, 5458, 5462, 5483, 5485, 5489, 5497, 5501,
5506, 5508, 5510, 5512, 5518, 5520, 5524, 5534, 5538, 5540,
5545, 5547, 5551, 5555, 5561, 5571, 5573, 5577, 5579, 5581,
5588, 5606, 5607, 5611, 5613, 5617, 5624, 5634, 5663, 5678,
5685, 5703, 5705, 5709, 5723, 5749, 5762, 5778, 5780, 5783,
5785, 5791, 5795, 5823, 5825, 5829, 5837, 5843, 5846, 5904,
5968, 5970, 5973, 5977, 5981, 5985, 6002, 6014, 6018, 6022,
6032, 6037, 6042, 6049, 6058, 6058, 6069, 6080, 6082, 6086,
6097, 6101, 6103, 6107, 6118, 6122, 6124, 6128, 6140, 6142,
6149, 6151, 6155, 6171, 6179, 6190, 6192, 6196, 6199, 6204,
6214, 6216, 6220, 6222, 6231, 6232, 6236, 6238, 6243, 6244,
6245, 6246, 6247, 6248, 6249, 6250, 6251, 6252, 6253, 6256,
6261, 6265, 6269, 6273, 6286, 6290, 6294, 6298, 6301, 6303,
6305, 6309, 6311, 6315, 6319, 6321, 6325, 6330, 6334, 6338,
6340, 6344, 6353, 6356, 6362, 6369, 6372, 6374, 6378, 6380,
6384, 6396, 6398, 6402, 6406, 6408, 6412, 6414, 6416, 6418,
6420, 6422, 6424, 6428, 6432, 6436, 6440, 6444, 6451, 6457,
6462, 6465, 6468, 6481, 6483, 6487, 6489, 6494, 6500, 6506,
6512, 6518, 6524, 6530, 6536, 6542, 6551, 6557, 6574, 6576,
6584, 6592, 6594, 6598, 6602, 6604, 6608, 6610, 6618, 6622,
6634, 6637, 6655, 6657, 6661, 6663, 6667, 6669, 6673, 6677,
6681, 6690, 6694, 6698, 6703, 6707, 6719, 6721, 6725, 6730,
6734, 6736, 6740, 6742, 6746, 6751, 6758, 6781, 6783, 6785,
6787, 6789, 6793, 6804, 6808, 6823, 6830, 6837, 6838, 6842,
6846, 6854, 6858, 6862, 6870, 6875, 6889, 6891, 6895, 6897,
6906, 6908, 6910, 6912, 6948, 6952, 6956, 6960, 6964, 6976,
6978, 6982, 6985, 6987, 6991, 6996, 7003, 7006, 7014, 7018,
7023, 7025, 7032, 7037, 7041, 7045, 7049, 7053, 7057, 7060,
7062, 7066, 7068, 7070, 7074, 7078, 7090, 7092, 7096, 7098,
7102, 7105, 7108, 7112, 7118, 7130, 7132, 7136, 7138, 7142,
7150, 7162, 7163, 7165, 7169, 7173, 7175, 7183, 7187, 7190,
7192, 7196, 7200, 7202, 7203, 7204, 7205, 7206, 7207, 7208,
7209, 7210, 7211, 7212, 7213, 7214, 7215, 7216, 7217, 7218,
7219, 7220, 7221, 7222, 7223, 7224, 7225, 7226, 7227, 7230,
7236, 7242, 7248, 7254, 7258, 7264, 7265, 7266, 7267, 7268,
7269, 7270, 7271, 7272, 7275, 7280, 7285, 7291, 7297, 7303,
7308, 7314, 7320, 7326, 7333, 7339, 7345, 7352, 7356, 7358,
7364, 7371, 7377, 7383, 7389, 7395, 7401, 7407, 7413, 7419,
7425, 7431, 7437, 7447, 7452, 7458, 7462, 7468, 7469, 7470,
7471, 7474, 7482, 7488, 7494, 7499, 7505, 7512, 7518, 7522,
7528, 7529, 7530, 7531, 7532, 7533, 7536, 7545, 7549, 7555,
7562, 7569, 7576, 7585, 7591, 7597, 7601, 7607, 7608, 7611,
7617, 7623, 7627, 7634, 7635, 7638, 7644, 7650, 7655, 7663,
7669, 7674, 7681, 7685, 7691, 7692, 7693, 7694, 7695, 7696,
7697, 7698, 7699, 7700, 7701, 7705, 7710, 7715, 7722, 7727,
7733, 7739, 7744, 7749, 7754, 7758, 7763, 7768, 7772, 7777,
7781, 7787, 7792, 7798, 7803, 7809, 7819, 7823, 7827, 7831,
7837, 7840, 7844, 7845, 7846, 7847, 7848, 7849, 7850, 7853,
7857, 7861, 7863, 7865, 7869, 7871, 7873, 7877, 7879, 7883,
7885, 7889, 7892, 7895, 7900, 7902, 7904, 7906, 7908, 7912,
7916, 7921, 7925, 7927, 7931, 7933, 7937, 7941, 7945, 7949,
7951, 7955, 7956, 7957, 7958, 7959, 7960, 7963, 7967, 7971,
7975, 7977, 7979, 7983, 7985, 7989, 7994, 7995, 8000, 8001,
8005, 8009, 8011, 8015, 8016, 8017, 8020, 8024, 8028, 8031,
8033, 8037, 8041, 8043, 8047, 8048, 8049, 8052, 8056, 8060,
8064, 8066, 8070, 8072, 8074, 8076, 8079, 8081, 8083, 8087,
8094, 8098, 8100, 8104, 8108, 8110, 8114, 8116, 8118, 8120,
8122, 8126, 8128, 8132, 8134, 8138, 8140, 8145
};
#endif
#if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE
/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
First, the terminals, then, starting at YYNTOKENS, nonterminals. */
static const char *const yytname[] =
{
"$end", "error", "$undefined", "PERCENT", "AMPERSAND", "ASTER",
"CLUSTER", "COLON", "COMMA", "DASTER", "DEFINED_OPERATOR", "DOT",
"DQUOTE", "GLOBAL_A", "LEFTAB", "LEFTPAR", "MINUS", "PLUS", "POINT_TO",
"QUOTE", "RIGHTAB", "RIGHTPAR", "AND", "DSLASH", "EQV", "EQ", "EQUAL",
"FFALSE", "GE", "GT", "LE", "LT", "NE", "NEQV", "NOT", "OR", "TTRUE",
"SLASH", "XOR", "REFERENCE", "AT", "ACROSS", "ALIGN_WITH", "ALIGN",
"ALLOCATABLE", "ALLOCATE", "ARITHIF", "ASSIGNMENT", "ASSIGN",
"ASSIGNGOTO", "ASYNCHRONOUS", "ASYNCID", "ASYNCWAIT", "BACKSPACE",
"BAD_CCONST", "BAD_SYMBOL", "BARRIER", "BLOCKDATA", "BLOCK",
"BOZ_CONSTANT", "BYTE", "CALL", "CASE", "CHARACTER", "CHAR_CONSTANT",
"CHECK", "CLOSE", "COMMON", "COMPLEX", "COMPGOTO", "CONSISTENT_GROUP",
"CONSISTENT_SPEC", "CONSISTENT_START", "CONSISTENT_WAIT", "CONSISTENT",
"CONSTRUCT_ID", "CONTAINS", "CONTINUE", "CORNER", "CYCLE", "DATA",
"DEALLOCATE", "HPF_TEMPLATE", "DEBUG", "DEFAULT_CASE", "DEFINE",
"DERIVED", "DIMENSION", "DISTRIBUTE", "DOWHILE", "DOUBLEPRECISION",
"DOUBLECOMPLEX", "DP_CONSTANT", "DVM_POINTER", "DYNAMIC", "ELEMENTAL",
"ELSE", "ELSEIF", "ELSEWHERE", "ENDASYNCHRONOUS", "ENDDEBUG",
"ENDINTERVAL", "ENDUNIT", "ENDDO", "ENDFILE", "ENDFORALL", "ENDIF",
"ENDINTERFACE", "ENDMODULE", "ENDON", "ENDSELECT", "ENDTASK_REGION",
"ENDTYPE", "ENDWHERE", "ENTRY", "EXIT", "EOLN", "EQUIVALENCE", "ERROR",
"EXTERNAL", "F90", "FIND", "FORALL", "FORMAT", "FUNCTION", "GATE",
"GEN_BLOCK", "HEAP", "HIGH", "IDENTIFIER", "IMPLICIT", "IMPLICITNONE",
"INCLUDE_TO", "INCLUDE", "INDEPENDENT", "INDIRECT_ACCESS",
"INDIRECT_GROUP", "INDIRECT", "INHERIT", "INQUIRE",
"INTERFACEASSIGNMENT", "INTERFACEOPERATOR", "INTERFACE", "INTRINSIC",
"INTEGER", "INTENT", "INTERVAL", "INOUT", "IN", "INT_CONSTANT", "LABEL",
"LABEL_DECLARE", "LET", "LOCALIZE", "LOGICAL", "LOGICALIF", "LOOP",
"LOW", "MAXLOC", "MAX", "MAP", "MINLOC", "MIN", "MODULE_PROCEDURE",
"MODULE", "MULT_BLOCK", "NAMEEQ", "NAMELIST", "NEW_VALUE", "NEW",
"NULLIFY", "OCTAL_CONSTANT", "ONLY", "ON", "ON_DIR", "ONTO", "OPEN",
"OPERATOR", "OPTIONAL", "OTHERWISE", "OUT", "OWN", "PARALLEL",
"PARAMETER", "PAUSE", "PLAINDO", "PLAINGOTO", "POINTER", "POINTERLET",
"PREFETCH", "PRINT", "PRIVATE", "PRODUCT", "PROGRAM", "PUBLIC", "PURE",
"RANGE", "READ", "REALIGN_WITH", "REALIGN", "REAL", "REAL_CONSTANT",
"RECURSIVE", "REDISTRIBUTE_NEW", "REDISTRIBUTE", "REDUCTION_GROUP",
"REDUCTION_START", "REDUCTION_WAIT", "REDUCTION", "REMOTE_ACCESS_SPEC",
"REMOTE_ACCESS", "REMOTE_GROUP", "RESET", "RESULT", "RETURN", "REWIND",
"SAVE", "SECTION", "SELECT", "SEQUENCE", "SHADOW_ADD", "SHADOW_COMPUTE",
"SHADOW_GROUP", "SHADOW_RENEW", "SHADOW_START_SPEC", "SHADOW_START",
"SHADOW_WAIT_SPEC", "SHADOW_WAIT", "SHADOW", "STAGE", "STATIC", "STAT",
"STOP", "SUBROUTINE", "SUM", "SYNC", "TARGET", "TASK", "TASK_REGION",
"THEN", "TO", "TRACEON", "TRACEOFF", "TRUNC", "TYPE", "TYPE_DECL",
"UNDER", "UNKNOWN", "USE", "VIRTUAL", "VARIABLE", "WAIT", "WHERE",
"WHERE_ASSIGN", "WHILE", "WITH", "WRITE", "COMMENT", "WGT_BLOCK",
"HPF_PROCESSORS", "IOSTAT", "ERR", "END", "OMPDVM_ATOMIC",
"OMPDVM_BARRIER", "OMPDVM_COPYIN", "OMPDVM_COPYPRIVATE",
"OMPDVM_CRITICAL", "OMPDVM_ONETHREAD", "OMPDVM_DO", "OMPDVM_DYNAMIC",
"OMPDVM_ENDCRITICAL", "OMPDVM_ENDDO", "OMPDVM_ENDMASTER",
"OMPDVM_ENDORDERED", "OMPDVM_ENDPARALLEL", "OMPDVM_ENDPARALLELDO",
"OMPDVM_ENDPARALLELSECTIONS", "OMPDVM_ENDPARALLELWORKSHARE",
"OMPDVM_ENDSECTIONS", "OMPDVM_ENDSINGLE", "OMPDVM_ENDWORKSHARE",
"OMPDVM_FIRSTPRIVATE", "OMPDVM_FLUSH", "OMPDVM_GUIDED",
"OMPDVM_LASTPRIVATE", "OMPDVM_MASTER", "OMPDVM_NOWAIT", "OMPDVM_NONE",
"OMPDVM_NUM_THREADS", "OMPDVM_ORDERED", "OMPDVM_PARALLEL",
"OMPDVM_PARALLELDO", "OMPDVM_PARALLELSECTIONS",
"OMPDVM_PARALLELWORKSHARE", "OMPDVM_RUNTIME", "OMPDVM_SECTION",
"OMPDVM_SECTIONS", "OMPDVM_SCHEDULE", "OMPDVM_SHARED", "OMPDVM_SINGLE",
"OMPDVM_THREADPRIVATE", "OMPDVM_WORKSHARE", "OMPDVM_NODES", "OMPDVM_IF",
"IAND", "IEOR", "IOR", "ACC_REGION", "ACC_END_REGION",
"ACC_CHECKSECTION", "ACC_END_CHECKSECTION", "ACC_GET_ACTUAL",
"ACC_ACTUAL", "ACC_TARGETS", "ACC_ASYNC", "ACC_HOST", "ACC_CUDA",
"ACC_LOCAL", "ACC_INLOCAL", "ACC_CUDA_BLOCK", "ACC_ROUTINE", "ACC_TIE",
"BY", "IO_MODE", "CP_CREATE", "CP_LOAD", "CP_SAVE", "CP_WAIT", "FILES",
"VARLIST", "STATUS", "EXITINTERVAL", "TEMPLATE_CREATE",
"TEMPLATE_DELETE", "SPF_ANALYSIS", "SPF_PARALLEL", "SPF_TRANSFORM",
"SPF_NOINLINE", "SPF_PARALLEL_REG", "SPF_END_PARALLEL_REG", "SPF_EXPAND",
"SPF_FISSION", "SPF_SHRINK", "SPF_CHECKPOINT", "SPF_EXCEPT",
"SPF_FILES_COUNT", "SPF_INTERVAL", "SPF_TIME", "SPF_ITER",
"SPF_FLEXIBLE", "SPF_APPLY_REGION", "SPF_APPLY_FRAGMENT",
"SPF_CODE_COVERAGE", "SPF_UNROLL", "BINARY_OP", "UNARY_OP", "$accept",
"program", "stat", "thislabel", "entry", "new_prog", "proc_attr",
"procname", "funcname", "typedfunc", "opt_result_clause", "name",
"progname", "blokname", "arglist", "args", "arg", "filename",
"needkeyword", "keywordoff", "keyword_if_colon_follow", "spec",
"interface", "defined_op", "operator", "intrinsic_op", "type_dcl",
"end_type", "dcl", "options", "attr_spec_list", "attr_spec",
"intent_spec", "access_spec", "intent", "optional", "static", "private",
"private_attr", "sequence", "public", "public_attr", "type",
"opt_key_hedr", "attrib", "att_type", "typespec", "typename", "lengspec",
"proper_lengspec", "selector", "clause", "end_ioctl", "initial_value",
"dimension", "allocatable", "pointer", "target", "common", "namelist",
"namelist_group", "comblock", "var", "external", "intrinsic",
"equivalence", "equivset", "equivlist", "equi_object", "data", "data1",
"data_in", "in_data", "datapair", "datalvals", "datarvals", "datalval",
"data_null", "d_name", "dataname", "datasubs", "datarange",
"iconexprlist", "opticonexpr", "dataimplieddo", "dlist", "dataelt",
"datarval", "datavalue", "BOZ_const", "int_const", "unsignedint",
"real_const", "unsignedreal", "complex_const_data", "complex_part",
"iconexpr", "iconterm", "iconfactor", "iconprimary", "savelist",
"saveitem", "use_name_list", "use_key_word", "no_use_key_word",
"use_name", "paramlist", "paramitem", "module_proc_stmt",
"proc_name_list", "use_stat", "module_name", "only_list", "only_name",
"rename_list", "rename_name", "dims", "dimlist", "@1", "dim", "ubound",
"labellist", "label", "implicit", "implist", "impitem", "imptype", "@2",
"type_implicit", "letgroups", "letgroup", "letter", "inside", "in_dcl",
"opt_double_colon", "funarglist", "funarg", "funargs", "subscript_list",
"expr", "uexpr", "addop", "ident", "lhs", "array_ele_substring_func_ref",
"structure_component", "array_element", "asubstring", "opt_substring",
"substring", "opt_expr", "simple_const", "numeric_bool_const",
"integer_constant", "string_constant", "complex_const", "kind",
"triplet", "vec", "@3", "@4", "allocate_object", "allocation_list",
"allocate_object_list", "stat_spec", "pointer_name_list", "exec",
"do_while", "opt_while", "plain_do", "case", "case_selector",
"case_value_range", "case_value_range_list", "opt_construct_name",
"opt_unit_name", "construct_name", "construct_name_colon", "logif",
"forall", "forall_list", "forall_expr", "opt_forall_cond", "do_var",
"dospec", "dotarget", "whereable", "iffable", "let", "goto", "opt_comma",
"call", "callarglist", "callarg", "stop", "end_spec", "intonlyon",
"intonlyoff", "io", "iofmove", "fmkwd", "iofctl", "ctlkwd", "inquire",
"infmt", "ioctl", "ctllist", "ioclause", "nameeq", "read", "write",
"print", "inlist", "inelt", "outlist", "out2", "other", "in_ioctl",
"start_ioctl", "fexpr", "unpar_fexpr", "cmnt", "dvm_specification",
"dvm_exec", "dvm_template", "template_obj", "dvm_dynamic",
"dyn_array_name_list", "dyn_array_name", "dvm_inherit",
"dummy_array_name_list", "dummy_array_name", "dvm_shadow",
"shadow_attr_stuff", "sh_width_list", "sh_width", "sh_array_name",
"dvm_processors", "dvm_indirect_group", "indirect_group_name",
"dvm_remote_group", "remote_group_name", "dvm_reduction_group",
"reduction_group_name", "dvm_consistent_group", "consistent_group_name",
"opt_onto", "dvm_distribute", "dvm_redistribute", "dist_name_list",
"distributee", "dist_name", "pointer_ar_elem", "processors_name",
"opt_dist_format_clause", "dist_format_clause", "dist_format_list",
"opt_key_word", "dist_format", "array_name", "derived_spec",
"derived_elem_list", "derived_elem", "target_spec", "derived_target",
"derived_subscript_list", "derived_subscript", "dummy_ident",
"opt_plus_shadow", "plus_shadow", "shadow_id", "shadow_width",
"dvm_align", "dvm_realign", "realignee_list", "alignee", "realignee",
"align_directive_stuff", "align_base", "align_subscript_list",
"align_subscript", "align_base_name", "dim_ident_list", "dim_ident",
"dvm_combined_dir", "dvm_attribute_list", "dvm_attribute", "dvm_pointer",
"dimension_list", "@5", "pointer_var_list", "pointer_var", "dvm_heap",
"heap_array_name_list", "heap_array_name", "dvm_consistent",
"consistent_array_name_list", "consistent_array_name", "dvm_asyncid",
"async_id_list", "async_id", "dvm_new_value", "dvm_parallel_on",
"ident_list", "opt_on", "distribute_cycles", "par_subscript_list",
"par_subscript", "opt_spec", "spec_list", "par_spec",
"remote_access_spec", "consistent_spec", "consistent_group", "new_spec",
"private_spec", "cuda_block_spec", "sizelist", "variable_list",
"tie_spec", "tied_array_list", "indirect_access_spec", "stage_spec",
"across_spec", "in_out_across", "opt_keyword_in_out", "opt_in_out",
"dependent_array_list", "dependent_array", "dependence_list",
"dependence", "section_spec_list", "section_spec", "ar_section",
"low_section", "high_section", "section", "reduction_spec",
"opt_key_word_r", "no_opt_key_word_r", "reduction_group",
"reduction_list", "reduction", "reduction_op", "loc_op", "shadow_spec",
"shadow_group_name", "shadow_list", "shadow", "opt_corner",
"array_ident", "array_ident_list", "dvm_shadow_start", "dvm_shadow_wait",
"dvm_shadow_group", "dvm_reduction_start", "dvm_reduction_wait",
"dvm_consistent_start", "dvm_consistent_wait", "dvm_remote_access",
"group_name", "remote_data_list", "remote_data", "remote_index_list",
"remote_index", "dvm_task", "task_array", "dvm_task_region", "task_name",
"dvm_end_task_region", "task", "dvm_on", "opt_private_spec",
"dvm_end_on", "dvm_map", "dvm_prefetch", "dvm_reset",
"dvm_indirect_access", "indirect_list", "indirect_reference",
"hpf_independent", "hpf_reduction_spec", "dvm_asynchronous",
"dvm_endasynchronous", "dvm_asyncwait", "async_ident", "async",
"dvm_f90", "dvm_debug_dir", "debparamlist", "debparam",
"fragment_number", "dvm_enddebug_dir", "dvm_interval_dir",
"interval_number", "dvm_exit_interval_dir", "dvm_endinterval_dir",
"dvm_traceon_dir", "dvm_traceoff_dir", "dvm_barrier_dir", "dvm_check",
"dvm_io_mode_dir", "mode_list", "mode_spec", "dvm_shadow_add",
"template_ref", "shadow_axis_list", "shadow_axis", "opt_include_to",
"dvm_localize", "localize_target", "target_subscript_list",
"target_subscript", "aster_expr", "dvm_cp_create", "opt_mode",
"dvm_cp_load", "dvm_cp_save", "dvm_cp_wait", "dvm_template_create",
"template_list", "dvm_template_delete", "omp_specification_directive",
"omp_execution_directive", "ompdvm_onethread",
"omp_parallel_end_directive", "omp_parallel_begin_directive",
"parallel_clause_list", "parallel_clause", "omp_variable_list_in_par",
"ompprivate_clause", "ompfirstprivate_clause", "omplastprivate_clause",
"ompcopyin_clause", "ompshared_clause", "ompdefault_clause", "def_expr",
"ompif_clause", "ompnumthreads_clause", "ompreduction_clause",
"ompreduction", "ompreduction_vars", "ompreduction_op",
"omp_sections_begin_directive", "sections_clause_list",
"sections_clause", "omp_sections_end_directive", "omp_section_directive",
"omp_do_begin_directive", "omp_do_end_directive", "do_clause_list",
"do_clause", "ompordered_clause", "ompschedule_clause", "ompschedule_op",
"omp_single_begin_directive", "single_clause_list", "single_clause",
"omp_single_end_directive", "end_single_clause_list",
"end_single_clause", "ompcopyprivate_clause", "ompnowait_clause",
"omp_workshare_begin_directive", "omp_workshare_end_directive",
"omp_parallel_do_begin_directive", "paralleldo_clause_list",
"paralleldo_clause", "omp_parallel_do_end_directive",
"omp_parallel_sections_begin_directive",
"omp_parallel_sections_end_directive",
"omp_parallel_workshare_begin_directive",
"omp_parallel_workshare_end_directive", "omp_threadprivate_directive",
"omp_master_begin_directive", "omp_master_end_directive",
"omp_ordered_begin_directive", "omp_ordered_end_directive",
"omp_barrier_directive", "omp_atomic_directive", "omp_flush_directive",
"omp_critical_begin_directive", "omp_critical_end_directive",
"omp_common_var", "omp_variable_list", "op_slash_1", "op_slash_0",
"acc_directive", "acc_region", "acc_checksection", "acc_get_actual",
"acc_actual", "opt_clause", "acc_clause_list", "acc_clause",
"data_clause", "targets_clause", "async_clause", "acc_var_list",
"computer_list", "computer", "acc_end_region", "acc_end_checksection",
"acc_routine", "opt_targets_clause", "spf_directive", "spf_analysis",
"spf_parallel", "spf_transform", "spf_parallel_reg",
"characteristic_list", "characteristic", "opt_clause_apply_fragment",
"opt_clause_apply_region", "spf_end_parallel_reg", "analysis_spec_list",
"analysis_spec", "analysis_reduction_spec", "analysis_private_spec",
"analysis_parameter_spec", "spf_parameter_list", "spf_parameter",
"parallel_spec_list", "parallel_spec", "parallel_shadow_spec",
"parallel_across_spec", "parallel_remote_access_spec",
"transform_spec_list", "transform_spec", "unroll_list", "region_name",
"array_element_list", "spf_checkpoint", "checkpoint_spec_list",
"checkpoint_spec", "spf_type_list", "spf_type", "interval_spec",
"in_unit", 0
};
#endif
# ifdef YYPRINT
/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
token YYLEX-NUM. */
static const yytype_uint16 yytoknum[] =
{
0, 353, 354, 1, 2, 3, 4, 5, 6, 7,
8, 9, 10, 11, 12, 13, 14, 15, 16, 17,
18, 19, 20, 21, 22, 23, 24, 25, 26, 27,
28, 29, 30, 31, 32, 33, 34, 35, 36, 37,
38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
48, 49, 50, 51, 52, 53, 54, 55, 56, 57,
58, 59, 60, 61, 62, 63, 64, 65, 66, 67,
68, 69, 70, 71, 72, 73, 74, 75, 76, 77,
78, 79, 80, 81, 82, 83, 84, 85, 86, 87,
88, 89, 90, 91, 92, 93, 94, 95, 96, 97,
98, 99, 100, 101, 102, 103, 104, 105, 106, 107,
108, 109, 110, 111, 112, 113, 114, 115, 116, 117,
118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
128, 129, 130, 131, 132, 133, 134, 135, 136, 137,
138, 139, 140, 141, 142, 143, 144, 145, 146, 147,
148, 149, 150, 151, 152, 153, 154, 155, 156, 157,
158, 159, 160, 161, 162, 163, 164, 165, 166, 167,
168, 169, 170, 171, 172, 173, 174, 175, 176, 177,
178, 179, 180, 181, 182, 183, 184, 185, 186, 187,
188, 189, 190, 191, 192, 193, 194, 195, 196, 197,
198, 199, 200, 201, 202, 203, 204, 205, 206, 207,
208, 209, 210, 211, 212, 213, 214, 215, 216, 217,
218, 219, 220, 221, 222, 223, 224, 225, 226, 227,
228, 229, 230, 231, 232, 233, 234, 235, 236, 237,
238, 239, 240, 241, 242, 243, 244, 245, 246, 247,
248, 249, 250, 251, 252, 253, 254, 255, 256, 257,
258, 259, 260, 261, 262, 263, 264, 265, 266, 267,
268, 269, 270, 271, 272, 273, 274, 275, 276, 277,
278, 279, 280, 281, 282, 283, 284, 285, 286, 287,
288, 289, 290, 291, 292, 293, 294, 295, 296, 297,
298, 299, 300, 301, 302, 303, 304, 305, 306, 307,
308, 309, 310, 311, 312, 313, 314, 315, 316, 317,
318, 319, 320, 321, 322, 323, 324, 325, 326, 327,
328, 329, 330, 331, 332, 333, 334, 335, 336, 337,
338, 339, 340, 341, 342, 343, 344, 345, 346, 347,
348, 349, 350, 351, 352, 355, 356
};
# endif
/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
static const yytype_uint16 yyr1[] =
{
0, 357, 358, 358, 359, 359, 359, 359, 359, 359,
359, 360, 361, 361, 361, 361, 361, 361, 361, 361,
362, 363, 363, 363, 364, 365, 366, 366, 366, 366,
367, 367, 368, 369, 369, 370, 370, 371, 371, 371,
372, 372, 373, 373, 374, 375, 376, 377, 378, 378,
378, 378, 378, 378, 378, 378, 378, 378, 378, 378,
378, 378, 378, 378, 378, 378, 378, 378, 378, 378,
378, 378, 378, 378, 378, 378, 378, 379, 379, 379,
379, 379, 380, 381, 381, 382, 382, 382, 382, 382,
382, 382, 382, 382, 382, 382, 382, 382, 382, 382,
382, 382, 382, 383, 383, 384, 384, 385, 385, 386,
386, 386, 387, 387, 388, 388, 388, 388, 388, 388,
388, 388, 388, 388, 388, 388, 389, 389, 389, 390,
390, 391, 391, 392, 392, 393, 393, 394, 394, 395,
396, 397, 397, 398, 399, 399, 400, 401, 401, 402,
402, 403, 404, 404, 404, 404, 404, 404, 404, 405,
405, 406, 406, 406, 407, 407, 407, 407, 408, 408,
408, 408, 409, 410, 410, 410, 411, 411, 412, 412,
413, 413, 414, 414, 415, 415, 415, 415, 416, 416,
416, 417, 418, 418, 419, 420, 420, 421, 421, 422,
422, 423, 424, 424, 425, 425, 425, 426, 427, 427,
428, 429, 430, 431, 431, 432, 432, 433, 433, 433,
433, 433, 434, 435, 436, 437, 438, 439, 439, 440,
440, 441, 442, 442, 443, 443, 443, 443, 444, 444,
444, 445, 445, 445, 445, 445, 445, 445, 445, 445,
445, 445, 446, 447, 447, 447, 448, 448, 449, 449,
449, 450, 450, 450, 450, 451, 452, 452, 453, 453,
453, 453, 453, 454, 454, 454, 455, 455, 456, 456,
456, 457, 457, 458, 458, 459, 459, 460, 461, 462,
462, 462, 463, 463, 464, 465, 466, 466, 467, 467,
467, 467, 468, 469, 469, 470, 470, 471, 471, 472,
473, 473, 475, 474, 474, 476, 476, 476, 476, 477,
477, 478, 478, 479, 480, 480, 481, 481, 482, 484,
483, 485, 485, 486, 486, 487, 487, 488, 489, 490,
491, 491, 492, 492, 493, 493, 493, 494, 494, 495,
495, 496, 496, 496, 497, 497, 497, 497, 497, 497,
497, 497, 497, 497, 497, 497, 497, 497, 497, 497,
497, 497, 497, 497, 497, 497, 497, 497, 497, 498,
498, 499, 500, 500, 500, 501, 501, 501, 501, 502,
503, 503, 503, 503, 504, 505, 505, 506, 507, 507,
508, 508, 508, 508, 508, 509, 509, 509, 509, 510,
511, 511, 511, 512, 513, 513, 514, 514, 514, 514,
514, 514, 514, 514, 516, 517, 515, 518, 518, 519,
519, 519, 520, 520, 520, 521, 522, 522, 523, 523,
523, 523, 523, 523, 523, 523, 523, 523, 523, 523,
523, 523, 523, 523, 523, 523, 523, 523, 523, 523,
523, 523, 524, 524, 525, 525, 525, 526, 526, 527,
527, 527, 527, 527, 528, 529, 529, 529, 529, 530,
530, 531, 531, 532, 532, 533, 534, 535, 536, 537,
537, 538, 539, 539, 540, 541, 541, 542, 542, 543,
543, 543, 543, 543, 544, 544, 544, 544, 544, 544,
544, 544, 544, 544, 544, 544, 544, 544, 544, 544,
544, 544, 545, 546, 546, 546, 546, 547, 547, 548,
549, 549, 550, 550, 550, 551, 551, 552, 553, 554,
555, 555, 555, 555, 555, 555, 555, 555, 555, 555,
555, 555, 555, 555, 556, 557, 557, 557, 558, 559,
559, 560, 560, 561, 561, 562, 562, 563, 563, 564,
564, 564, 564, 564, 564, 565, 566, 567, 568, 568,
569, 569, 570, 570, 571, 571, 571, 572, 572, 572,
572, 572, 572, 573, 573, 573, 573, 573, 574, 575,
576, 576, 577, 577, 577, 577, 577, 577, 577, 577,
577, 578, 578, 579, 579, 579, 579, 579, 579, 579,
579, 579, 579, 579, 579, 579, 579, 579, 579, 579,
579, 579, 580, 580, 580, 580, 580, 580, 580, 580,
580, 580, 580, 580, 580, 580, 580, 580, 580, 580,
580, 580, 580, 580, 580, 580, 580, 580, 580, 580,
580, 580, 580, 580, 580, 580, 580, 580, 580, 580,
580, 580, 580, 580, 580, 580, 581, 581, 582, 583,
584, 584, 585, 586, 587, 587, 588, 589, 590, 591,
591, 592, 592, 592, 593, 594, 594, 594, 595, 595,
596, 597, 597, 598, 599, 599, 600, 601, 601, 602,
603, 603, 604, 605, 605, 606, 606, 607, 607, 608,
609, 610, 611, 611, 612, 613, 613, 614, 615, 615,
615, 615, 615, 615, 615, 615, 616, 617, 618, 618,
619, 619, 620, 620, 621, 622, 622, 623, 623, 623,
624, 625, 625, 626, 626, 627, 628, 628, 629, 630,
630, 631, 631, 632, 633, 634, 635, 636, 636, 637,
637, 637, 638, 639, 639, 640, 640, 640, 641, 641,
642, 642, 643, 643, 643, 643, 643, 643, 643, 643,
643, 643, 643, 644, 646, 645, 645, 647, 647, 648,
649, 650, 650, 651, 652, 653, 653, 654, 655, 655,
656, 656, 657, 658, 659, 660, 660, 661, 661, 662,
663, 663, 664, 664, 665, 665, 666, 666, 667, 667,
667, 667, 667, 667, 667, 667, 667, 667, 667, 668,
668, 669, 669, 670, 671, 671, 672, 673, 674, 674,
674, 675, 675, 676, 677, 677, 678, 678, 679, 680,
680, 681, 682, 683, 683, 683, 684, 684, 685, 685,
685, 686, 686, 687, 688, 688, 689, 689, 689, 689,
689, 689, 689, 690, 691, 692, 693, 694, 694, 694,
695, 696, 697, 698, 698, 699, 699, 700, 700, 700,
700, 700, 700, 700, 700, 700, 701, 701, 702, 702,
702, 702, 702, 703, 704, 704, 705, 705, 705, 705,
706, 707, 708, 708, 709, 709, 710, 710, 711, 712,
713, 714, 715, 716, 716, 717, 718, 718, 719, 719,
720, 720, 721, 721, 722, 722, 723, 724, 724, 724,
724, 724, 725, 726, 727, 727, 728, 729, 729, 730,
731, 731, 732, 733, 734, 734, 735, 735, 736, 736,
737, 737, 737, 737, 738, 739, 740, 741, 742, 743,
743, 744, 745, 745, 746, 746, 747, 748, 749, 750,
751, 751, 752, 753, 754, 755, 756, 757, 758, 759,
759, 760, 760, 760, 761, 762, 763, 763, 764, 764,
765, 765, 766, 767, 767, 768, 768, 769, 769, 770,
771, 772, 772, 772, 773, 774, 774, 775, 776, 777,
777, 778, 779, 780, 780, 780, 780, 780, 780, 780,
780, 780, 780, 780, 780, 780, 780, 780, 780, 780,
780, 780, 780, 780, 780, 780, 780, 780, 780, 781,
782, 783, 783, 784, 784, 785, 785, 785, 785, 785,
785, 785, 785, 785, 786, 787, 788, 789, 790, 791,
792, 793, 793, 793, 794, 795, 796, 797, 798, 799,
799, 799, 799, 799, 799, 799, 799, 799, 799, 799,
799, 799, 799, 800, 800, 801, 801, 802, 802, 802,
802, 803, 803, 804, 805, 805, 806, 806, 807, 807,
808, 808, 808, 808, 808, 808, 809, 810, 810, 811,
811, 811, 811, 812, 812, 813, 813, 814, 814, 815,
815, 816, 816, 817, 817, 818, 819, 820, 821, 821,
822, 822, 823, 823, 824, 824, 824, 824, 824, 824,
824, 824, 824, 824, 824, 825, 826, 826, 827, 828,
828, 829, 830, 831, 832, 833, 834, 835, 836, 837,
837, 838, 838, 839, 839, 840, 841, 841, 841, 841,
842, 843, 844, 844, 844, 844, 844, 844, 844, 845,
846, 847, 847, 847, 848, 848, 848, 849, 849, 850,
850, 851, 851, 851, 852, 852, 852, 852, 852, 853,
854, 855, 856, 856, 857, 857, 858, 859, 860, 861,
861, 862, 862, 862, 862, 862, 862, 863, 864, 865,
866, 866, 866, 867, 867, 868, 869, 869, 870, 870,
871, 872, 872, 873, 873, 873, 874, 875, 876, 877,
877, 878, 879, 879, 880, 880, 880, 881, 882, 883,
884, 884, 885, 885, 885, 885, 885, 885, 885, 886,
887, 888, 888, 889, 890, 890, 891, 891, 891, 891,
891, 892, 892, 893, 893, 894, 894, 895
};
/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */
static const yytype_uint8 yyr2[] =
{
0, 2, 0, 3, 3, 3, 3, 3, 2, 1,
1, 1, 3, 3, 4, 5, 5, 3, 4, 3,
0, 2, 2, 2, 1, 1, 4, 5, 4, 5,
2, 5, 1, 0, 1, 0, 1, 0, 2, 3,
1, 3, 1, 1, 1, 0, 0, 0, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 2, 4, 2, 5, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 2, 3, 5,
5, 2, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 4, 7, 2, 3, 7, 6, 0,
2, 5, 1, 4, 1, 1, 1, 2, 1, 4,
1, 1, 1, 1, 1, 1, 2, 2, 2, 1,
1, 7, 3, 4, 3, 4, 3, 2, 5, 0,
2, 2, 5, 0, 4, 5, 0, 2, 3, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 0,
1, 5, 6, 6, 0, 1, 5, 9, 1, 1,
2, 2, 0, 0, 2, 2, 5, 4, 4, 3,
4, 3, 4, 3, 3, 4, 5, 3, 4, 5,
3, 3, 1, 3, 2, 4, 3, 4, 3, 3,
3, 3, 3, 3, 1, 4, 1, 1, 4, 3,
0, 0, 4, 1, 3, 1, 3, 2, 3, 3,
4, 2, 0, 1, 1, 3, 5, 1, 3, 0,
1, 7, 1, 3, 2, 2, 3, 1, 1, 4,
3, 2, 1, 1, 1, 1, 3, 1, 3, 1,
1, 6, 1, 1, 2, 2, 1, 3, 1, 2,
2, 1, 3, 1, 3, 5, 1, 1, 1, 2,
2, 3, 3, 1, 3, 3, 1, 3, 1, 1,
3, 1, 3, 1, 1, 3, 5, 0, 0, 1,
4, 4, 1, 3, 3, 2, 1, 3, 3, 6,
6, 7, 1, 1, 3, 1, 1, 1, 3, 3,
0, 3, 0, 2, 3, 1, 1, 2, 3, 1,
1, 1, 3, 1, 3, 1, 1, 3, 4, 0,
2, 2, 1, 1, 3, 1, 3, 1, 0, 0,
0, 2, 0, 1, 1, 1, 2, 2, 4, 1,
3, 1, 3, 1, 1, 1, 1, 3, 3, 3,
3, 3, 2, 2, 2, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 2, 3, 3, 1,
1, 1, 1, 1, 1, 5, 6, 4, 5, 3,
1, 1, 5, 4, 2, 0, 1, 5, 0, 1,
1, 3, 1, 3, 2, 1, 1, 1, 1, 1,
1, 3, 3, 5, 1, 1, 3, 2, 5, 4,
4, 3, 2, 1, 0, 0, 6, 1, 1, 1,
4, 5, 1, 4, 5, 0, 1, 3, 1, 1,
1, 2, 3, 3, 2, 1, 2, 2, 2, 3,
7, 3, 3, 1, 2, 2, 1, 2, 3, 1,
1, 1, 5, 7, 0, 6, 4, 11, 13, 4,
3, 3, 7, 8, 3, 1, 2, 2, 3, 1,
3, 0, 1, 0, 1, 1, 2, 5, 6, 1,
3, 3, 0, 2, 1, 5, 7, 0, 1, 3,
3, 6, 5, 6, 4, 5, 5, 2, 1, 1,
10, 1, 3, 4, 3, 3, 3, 3, 6, 6,
5, 8, 2, 3, 3, 7, 7, 0, 1, 4,
2, 4, 1, 2, 2, 1, 1, 0, 0, 0,
2, 2, 2, 2, 2, 1, 2, 2, 3, 4,
2, 3, 1, 3, 3, 1, 1, 1, 3, 1,
1, 4, 5, 1, 1, 3, 3, 1, 4, 1,
1, 1, 2, 2, 2, 1, 3, 3, 4, 4,
1, 3, 1, 5, 1, 1, 1, 3, 3, 3,
3, 3, 3, 1, 3, 5, 5, 5, 0, 0,
1, 3, 1, 1, 3, 3, 3, 3, 2, 3,
3, 0, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 3, 3, 2, 3,
1, 3, 1, 3, 1, 3, 1, 4, 3, 1,
3, 1, 3, 4, 1, 4, 4, 4, 3, 3,
1, 3, 3, 1, 3, 3, 1, 3, 3, 1,
3, 0, 5, 6, 8, 1, 3, 1, 1, 1,
4, 1, 0, 2, 3, 2, 4, 0, 1, 5,
4, 6, 4, 1, 4, 4, 1, 6, 1, 3,
1, 3, 1, 4, 1, 1, 3, 1, 1, 3,
1, 0, 1, 2, 3, 1, 2, 5, 4, 4,
6, 1, 3, 1, 1, 6, 4, 1, 3, 1,
1, 1, 1, 1, 3, 1, 1, 1, 6, 4,
1, 4, 1, 1, 1, 1, 4, 2, 7, 1,
4, 1, 1, 11, 0, 2, 3, 1, 3, 1,
3, 1, 3, 1, 3, 1, 3, 1, 3, 8,
1, 3, 2, 2, 7, 1, 3, 3, 1, 4,
1, 3, 1, 1, 0, 1, 1, 2, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 8,
6, 8, 6, 1, 6, 6, 6, 6, 1, 3,
5, 1, 3, 6, 1, 3, 8, 6, 6, 4,
5, 5, 0, 2, 2, 0, 1, 3, 1, 4,
7, 1, 3, 3, 1, 3, 5, 3, 3, 1,
3, 1, 1, 3, 3, 3, 3, 10, 8, 10,
0, 0, 1, 2, 4, 4, 6, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 6, 4,
4, 3, 9, 1, 1, 3, 1, 5, 5, 9,
0, 1, 1, 3, 3, 3, 3, 3, 6, 3,
3, 3, 3, 7, 5, 1, 1, 3, 4, 1,
1, 3, 1, 1, 3, 3, 2, 3, 4, 4,
5, 5, 1, 2, 4, 4, 4, 0, 1, 2,
7, 6, 3, 3, 7, 5, 1, 3, 1, 4,
2, 3, 3, 4, 6, 3, 2, 3, 1, 1,
4, 5, 3, 6, 2, 4, 2, 1, 3, 3,
0, 1, 3, 2, 2, 2, 2, 9, 5, 1,
3, 2, 2, 2, 9, 4, 1, 3, 1, 1,
2, 0, 7, 1, 4, 1, 3, 1, 1, 1,
16, 0, 3, 3, 3, 3, 6, 9, 5, 1,
3, 5, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 2,
2, 4, 3, 4, 5, 1, 1, 1, 1, 1,
1, 1, 1, 1, 5, 2, 2, 2, 2, 2,
5, 1, 1, 1, 4, 4, 4, 4, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 4, 3, 4, 5, 1, 1, 1,
1, 4, 3, 2, 4, 3, 4, 3, 4, 5,
1, 1, 1, 1, 1, 1, 1, 7, 5, 1,
1, 1, 1, 4, 3, 4, 5, 1, 1, 4,
3, 4, 5, 1, 1, 2, 1, 2, 4, 3,
4, 3, 4, 5, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 2, 4, 3, 2, 4,
3, 2, 3, 2, 2, 2, 2, 2, 2, 3,
2, 5, 2, 5, 2, 5, 1, 1, 3, 3,
0, 0, 1, 1, 1, 1, 1, 1, 1, 3,
2, 5, 4, 2, 5, 4, 2, 2, 1, 1,
3, 2, 2, 2, 4, 4, 4, 4, 4, 4,
1, 1, 1, 3, 2, 2, 1, 1, 3, 2,
2, 1, 1, 1, 1, 1, 1, 5, 5, 5,
3, 10, 10, 1, 3, 2, 0, 6, 0, 6,
2, 1, 3, 1, 1, 1, 5, 5, 5, 1,
3, 3, 1, 3, 1, 1, 1, 5, 5, 5,
1, 3, 2, 5, 2, 5, 5, 2, 5, 5,
1, 1, 3, 5, 1, 3, 5, 5, 5, 5,
7, 1, 3, 2, 2, 2, 2, 0
};
/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
STATE-NUM when YYTABLE doesn't specify something else to do. Zero
means the default is an error. */
static const yytype_uint16 yydefact[] =
{
2, 0, 1, 10, 11, 9, 0, 0, 3, 150,
149, 789, 339, 537, 537, 537, 537, 537, 339, 537,
555, 537, 20, 537, 537, 158, 537, 560, 339, 154,
537, 339, 537, 537, 339, 485, 537, 537, 537, 338,
537, 782, 537, 537, 340, 791, 537, 155, 156, 785,
45, 537, 537, 537, 537, 537, 537, 537, 537, 557,
537, 537, 483, 483, 537, 537, 537, 339, 537, 0,
537, 339, 339, 537, 537, 338, 20, 339, 339, 325,
0, 537, 537, 339, 339, 537, 339, 339, 339, 339,
152, 339, 537, 211, 537, 157, 537, 537, 0, 20,
339, 537, 537, 537, 559, 339, 537, 339, 535, 537,
537, 339, 537, 537, 537, 339, 20, 339, 45, 537,
537, 153, 45, 537, 339, 537, 537, 537, 339, 537,
537, 556, 339, 537, 339, 537, 537, 537, 537, 537,
537, 339, 339, 536, 20, 339, 339, 537, 537, 537,
0, 339, 8, 339, 537, 537, 537, 783, 537, 537,
537, 537, 537, 537, 537, 537, 537, 537, 537, 537,
537, 537, 537, 537, 537, 537, 537, 537, 537, 537,
537, 537, 537, 537, 339, 537, 784, 537, 1226, 537,
1227, 537, 537, 339, 537, 537, 537, 537, 537, 537,
537, 537, 1297, 1297, 1297, 1297, 1297, 1297, 611, 0,
37, 611, 73, 48, 49, 50, 65, 66, 76, 68,
69, 67, 109, 58, 0, 146, 151, 52, 70, 71,
72, 51, 59, 54, 55, 56, 60, 207, 75, 74,
57, 611, 445, 440, 453, 0, 0, 0, 456, 439,
438, 0, 508, 511, 537, 509, 0, 537, 0, 537,
545, 0, 0, 552, 53, 459, 613, 616, 622, 618,
617, 623, 624, 625, 626, 615, 632, 614, 633, 619,
0, 780, 620, 627, 629, 628, 660, 634, 636, 637,
635, 638, 639, 640, 641, 642, 621, 643, 644, 646,
647, 645, 649, 650, 648, 674, 661, 662, 663, 664,
651, 652, 653, 655, 654, 656, 657, 658, 659, 665,
666, 667, 668, 669, 670, 671, 672, 673, 631, 675,
630, 1034, 1033, 1035, 1036, 1037, 1038, 1039, 1040, 1041,
1042, 1043, 1044, 1045, 1046, 1047, 1048, 1049, 1032, 1050,
1051, 1052, 1053, 1054, 1055, 1056, 1057, 1058, 460, 1192,
1194, 1196, 1197, 1193, 1195, 1198, 461, 1231, 1232, 1233,
1234, 1235, 1236, 0, 0, 340, 0, 0, 0, 0,
0, 0, 0, 996, 35, 0, 0, 598, 0, 0,
0, 0, 0, 0, 454, 507, 481, 210, 0, 0,
0, 481, 0, 312, 339, 727, 0, 727, 538, 0,
23, 481, 0, 481, 976, 0, 993, 483, 481, 481,
481, 32, 484, 81, 444, 959, 481, 953, 105, 481,
37, 481, 0, 340, 0, 0, 63, 0, 0, 329,
44, 7, 970, 0, 0, 0, 599, 0, 0, 77,
340, 0, 990, 522, 0, 0, 0, 296, 295, 0,
0, 813, 0, 0, 340, 0, 0, 538, 0, 340,
0, 0, 0, 340, 33, 340, 22, 599, 0, 21,
0, 0, 0, 0, 0, 0, 0, 398, 340, 45,
140, 0, 0, 0, 0, 0, 0, 0, 0, 787,
340, 0, 340, 0, 0, 994, 995, 0, 339, 340,
0, 0, 0, 599, 0, 1178, 1177, 1182, 1059, 727,
1184, 727, 1174, 1176, 1060, 1165, 1168, 1171, 727, 727,
727, 1180, 1173, 1175, 727, 727, 727, 727, 1113, 727,
727, 1190, 1147, 0, 45, 1200, 1203, 1206, 45, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 1250, 0, 612, 4, 20, 20, 0, 0, 45,
5, 0, 0, 0, 0, 0, 45, 20, 0, 0,
0, 147, 164, 0, 0, 0, 0, 528, 0, 528,
0, 0, 0, 0, 528, 222, 6, 486, 537, 537,
446, 441, 0, 457, 448, 447, 455, 82, 172, 0,
0, 0, 406, 0, 405, 410, 408, 409, 407, 381,
0, 0, 351, 382, 354, 384, 383, 355, 400, 402,
395, 353, 356, 598, 398, 542, 543, 0, 380, 379,
32, 0, 602, 603, 540, 0, 600, 599, 0, 544,
599, 564, 547, 546, 600, 550, 0, 0, 0, 0,
0, 0, 0, 0, 0, 45, 0, 776, 777, 775,
0, 773, 763, 0, 0, 435, 0, 323, 0, 524,
978, 979, 975, 45, 310, 808, 810, 977, 36, 13,
598, 0, 481, 0, 192, 0, 310, 0, 184, 0,
709, 707, 843, 931, 932, 807, 804, 805, 482, 516,
222, 435, 310, 676, 987, 982, 470, 341, 0, 0,
0, 0, 0, 719, 722, 711, 0, 497, 682, 679,
680, 451, 0, 0, 500, 988, 442, 443, 458, 452,
471, 106, 499, 45, 517, 0, 199, 0, 382, 0,
0, 37, 25, 803, 800, 801, 324, 326, 0, 0,
45, 971, 972, 0, 700, 698, 686, 683, 684, 0,
0, 0, 78, 0, 45, 991, 989, 0, 0, 952,
0, 45, 0, 19, 0, 0, 0, 0, 957, 0,
0, 0, 497, 523, 0, 0, 935, 962, 599, 0,
599, 600, 139, 34, 12, 143, 576, 0, 764, 0,
0, 0, 727, 706, 704, 892, 929, 930, 0, 703,
701, 963, 399, 514, 0, 0, 0, 913, 0, 925,
924, 927, 926, 0, 691, 0, 689, 694, 0, 0,
37, 24, 0, 310, 944, 947, 0, 45, 0, 302,
298, 0, 0, 577, 310, 0, 527, 0, 1117, 1112,
527, 1149, 1179, 0, 527, 527, 527, 527, 527, 527,
1172, 310, 46, 1199, 1208, 1209, 0, 0, 46, 1228,
45, 0, 1024, 1025, 0, 992, 349, 0, 0, 45,
45, 45, 1280, 1240, 45, 0, 0, 20, 43, 38,
42, 0, 40, 17, 46, 310, 132, 134, 136, 110,
0, 0, 20, 339, 148, 538, 598, 165, 146, 310,
179, 181, 183, 187, 527, 190, 527, 196, 198, 200,
209, 0, 213, 0, 45, 0, 449, 424, 0, 351,
364, 363, 376, 362, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 598, 0, 0, 598, 0, 0, 398,
404, 396, 512, 0, 0, 515, 570, 571, 575, 0,
567, 0, 569, 0, 608, 0, 0, 0, 0, 0,
554, 569, 558, 0, 0, 582, 548, 580, 0, 0,
351, 353, 551, 586, 585, 553, 677, 310, 699, 702,
705, 708, 310, 339, 0, 945, 0, 45, 758, 178,
0, 0, 0, 0, 0, 0, 312, 812, 0, 529,
0, 475, 479, 0, 469, 598, 0, 194, 185, 0,
321, 0, 208, 0, 678, 598, 0, 786, 319, 316,
313, 315, 320, 310, 727, 724, 733, 728, 0, 0,
0, 0, 0, 725, 711, 727, 0, 790, 0, 498,
539, 0, 0, 0, 18, 204, 0, 0, 0, 206,
195, 0, 494, 492, 489, 0, 45, 0, 329, 0,
0, 332, 330, 0, 45, 973, 381, 921, 968, 0,
0, 966, 0, 561, 0, 87, 88, 86, 85, 91,
90, 102, 95, 98, 97, 100, 99, 96, 101, 94,
92, 89, 93, 83, 0, 84, 197, 0, 0, 0,
0, 0, 0, 297, 0, 188, 436, 0, 45, 958,
956, 133, 815, 0, 0, 0, 292, 539, 180, 0,
579, 0, 578, 287, 287, 0, 759, 0, 727, 711,
939, 0, 0, 936, 284, 283, 62, 281, 0, 0,
0, 0, 0, 0, 0, 688, 687, 135, 14, 182,
946, 45, 949, 948, 146, 0, 103, 47, 0, 0,
695, 0, 727, 527, 0, 1146, 1116, 1111, 727, 527,
1148, 1191, 727, 527, 727, 527, 527, 527, 727, 527,
727, 527, 696, 0, 0, 0, 0, 1220, 0, 0,
1207, 1211, 1213, 1212, 45, 1202, 851, 1221, 0, 1205,
0, 1229, 1230, 0, 0, 999, 45, 45, 45, 0,
390, 391, 1029, 0, 0, 0, 0, 1251, 1253, 1254,
1255, 0, 0, 1262, 1264, 1265, 1266, 0, 0, 1270,
45, 0, 0, 1284, 28, 37, 0, 0, 39, 0,
30, 159, 116, 310, 339, 118, 120, 0, 121, 114,
122, 130, 129, 123, 124, 125, 0, 112, 115, 26,
0, 310, 0, 0, 144, 177, 0, 0, 222, 222,
0, 224, 217, 221, 0, 0, 0, 352, 0, 359,
361, 358, 357, 375, 377, 371, 365, 504, 368, 366,
369, 367, 370, 372, 374, 360, 373, 378, 598, 411,
389, 0, 343, 0, 414, 415, 401, 412, 403, 0,
598, 513, 0, 532, 530, 0, 598, 566, 573, 574,
572, 601, 610, 605, 607, 609, 606, 604, 565, 549,
0, 0, 0, 351, 0, 0, 0, 0, 0, 697,
779, 0, 789, 792, 782, 0, 791, 785, 0, 783,
784, 781, 774, 0, 429, 0, 0, 506, 0, 0,
0, 0, 811, 477, 476, 0, 474, 0, 193, 0,
527, 806, 427, 428, 432, 0, 0, 0, 314, 317,
176, 0, 598, 0, 0, 0, 0, 0, 712, 723,
310, 462, 727, 681, 0, 481, 0, 0, 201, 0,
394, 981, 0, 0, 0, 16, 802, 327, 337, 0,
333, 335, 331, 0, 0, 0, 0, 0, 0, 0,
965, 685, 562, 80, 79, 128, 126, 127, 340, 0,
487, 423, 0, 0, 0, 0, 191, 0, 520, 0,
0, 727, 0, 0, 64, 527, 505, 601, 138, 0,
142, 45, 0, 711, 0, 0, 0, 0, 934, 0,
0, 0, 0, 0, 914, 916, 0, 692, 690, 0,
45, 951, 45, 950, 145, 340, 0, 502, 0, 1181,
0, 727, 1183, 0, 727, 0, 0, 727, 0, 727,
0, 727, 0, 727, 0, 0, 0, 45, 0, 0,
0, 1210, 0, 1201, 1204, 1003, 1001, 1002, 45, 998,
0, 0, 0, 350, 598, 598, 0, 1028, 1031, 0,
0, 0, 45, 1237, 0, 0, 0, 45, 1238, 1272,
1274, 0, 0, 1277, 45, 1239, 0, 0, 0, 0,
0, 0, 45, 1283, 15, 29, 41, 0, 173, 160,
117, 0, 45, 0, 45, 27, 159, 539, 539, 169,
172, 168, 0, 186, 189, 214, 0, 0, 0, 247,
245, 252, 249, 263, 256, 261, 0, 0, 215, 238,
250, 242, 253, 243, 258, 244, 0, 237, 0, 232,
229, 218, 219, 0, 0, 425, 351, 0, 387, 598,
347, 344, 345, 0, 398, 0, 534, 533, 0, 0,
581, 352, 0, 0, 0, 351, 588, 351, 592, 351,
590, 310, 0, 598, 518, 0, 0, 980, 0, 311,
478, 480, 172, 322, 0, 598, 519, 0, 984, 598,
983, 318, 320, 726, 0, 0, 0, 736, 0, 0,
0, 0, 710, 464, 481, 501, 0, 203, 202, 381,
493, 490, 488, 0, 491, 0, 328, 0, 0, 0,
0, 0, 0, 967, 0, 1013, 0, 0, 422, 417,
954, 955, 721, 310, 961, 437, 0, 816, 818, 824,
294, 293, 0, 287, 0, 0, 289, 288, 0, 760,
761, 713, 0, 943, 942, 0, 940, 0, 937, 282,
0, 1019, 1008, 0, 1006, 1009, 755, 0, 0, 928,
920, 693, 0, 0, 0, 0, 0, 300, 0, 299,
307, 0, 1190, 0, 1190, 1190, 1126, 0, 1120, 1122,
1123, 1121, 727, 1125, 1124, 0, 1190, 727, 1144, 1143,
0, 0, 1187, 1186, 0, 0, 1190, 0, 1190, 0,
727, 1065, 1069, 1070, 1071, 1067, 1068, 1072, 1073, 1066,
0, 1154, 1158, 1159, 1160, 1156, 1157, 1161, 1162, 1155,
1164, 1163, 727, 0, 1107, 1109, 1110, 1108, 727, 0,
1137, 1138, 727, 0, 0, 0, 0, 0, 0, 1222,
0, 0, 852, 1000, 0, 1026, 0, 598, 0, 1030,
0, 0, 45, 1252, 0, 0, 0, 1263, 0, 0,
0, 0, 1271, 0, 0, 45, 0, 0, 0, 45,
1285, 0, 0, 0, 108, 794, 0, 111, 0, 173,
0, 146, 0, 171, 170, 267, 253, 266, 0, 255,
260, 254, 259, 0, 0, 0, 0, 0, 222, 212,
223, 241, 0, 222, 234, 235, 0, 0, 0, 0,
278, 223, 279, 0, 0, 227, 268, 273, 276, 229,
220, 0, 503, 0, 413, 385, 388, 0, 346, 0,
531, 568, 569, 0, 0, 351, 0, 0, 0, 778,
772, 788, 0, 0, 0, 525, 0, 340, 526, 0,
986, 0, 0, 0, 740, 0, 738, 735, 730, 734,
732, 0, 45, 0, 463, 450, 205, 334, 336, 0,
0, 0, 969, 964, 131, 0, 1012, 421, 0, 0,
416, 960, 0, 0, 45, 814, 825, 826, 831, 835,
828, 836, 837, 838, 832, 834, 833, 829, 830, 0,
0, 0, 0, 285, 0, 0, 0, 0, 938, 933,
472, 0, 1005, 727, 915, 0, 0, 890, 104, 306,
301, 303, 305, 0, 0, 0, 1075, 727, 1076, 1077,
45, 1118, 727, 1145, 1141, 727, 1190, 0, 1074, 45,
1078, 0, 1079, 0, 1063, 727, 1152, 727, 1105, 727,
1135, 727, 1214, 1215, 1216, 1224, 1225, 45, 1219, 1217,
1218, 0, 0, 0, 393, 0, 0, 1259, 0, 0,
0, 0, 0, 0, 0, 0, 1281, 0, 0, 0,
45, 45, 0, 0, 1291, 0, 0, 0, 0, 0,
31, 175, 174, 0, 0, 119, 113, 107, 0, 0,
161, 598, 166, 0, 248, 246, 264, 257, 262, 216,
222, 598, 0, 240, 236, 223, 0, 233, 0, 270,
269, 0, 225, 229, 0, 0, 0, 0, 0, 230,
0, 426, 386, 348, 397, 0, 583, 595, 597, 596,
0, 430, 0, 0, 809, 0, 433, 0, 985, 756,
729, 0, 0, 45, 0, 0, 0, 844, 974, 845,
1018, 0, 1015, 1017, 420, 419, 0, 0, 0, 817,
0, 827, 0, 288, 0, 0, 765, 762, 719, 714,
715, 717, 718, 941, 1007, 1011, 0, 0, 381, 0,
0, 0, 0, 309, 308, 521, 0, 0, 0, 1119,
1142, 0, 1189, 1188, 0, 0, 0, 1064, 1153, 1106,
1136, 1223, 0, 0, 392, 0, 0, 1258, 1257, 902,
903, 904, 901, 906, 900, 907, 899, 898, 897, 905,
893, 0, 0, 45, 1256, 1268, 1269, 1267, 1275, 1273,
0, 1276, 0, 1278, 0, 0, 1243, 0, 1293, 1294,
45, 1286, 1287, 1288, 1289, 1295, 1296, 0, 0, 0,
795, 162, 163, 0, 0, 239, 598, 241, 0, 280,
228, 0, 272, 271, 274, 275, 277, 473, 0, 770,
769, 771, 0, 767, 431, 0, 997, 434, 0, 741,
739, 0, 731, 0, 0, 0, 1014, 418, 846, 0,
0, 0, 0, 911, 0, 0, 0, 0, 0, 0,
0, 286, 291, 290, 0, 0, 0, 1004, 917, 918,
0, 842, 891, 891, 304, 1091, 1090, 1089, 1096, 1097,
1098, 1095, 1092, 1094, 1093, 1102, 1099, 1100, 1101, 0,
1086, 1130, 1129, 1131, 1132, 0, 1191, 1081, 1083, 1082,
0, 1085, 1084, 0, 1027, 1261, 1260, 0, 0, 0,
1282, 0, 1245, 45, 1246, 1248, 1292, 0, 796, 0,
172, 265, 0, 0, 227, 226, 0, 0, 766, 510,
0, 0, 0, 466, 1016, 823, 822, 0, 820, 862,
859, 0, 0, 0, 0, 909, 910, 0, 0, 0,
0, 0, 716, 922, 1010, 45, 0, 0, 0, 0,
0, 1128, 1185, 1080, 45, 0, 0, 894, 0, 1244,
45, 1241, 45, 1242, 1290, 0, 0, 251, 231, 495,
768, 757, 744, 737, 742, 0, 0, 819, 865, 860,
0, 0, 0, 0, 0, 0, 0, 848, 0, 854,
0, 467, 720, 0, 0, 841, 45, 45, 888, 1088,
1087, 0, 0, 895, 0, 1279, 0, 0, 799, 793,
797, 167, 0, 0, 465, 821, 0, 0, 0, 0,
857, 0, 840, 0, 908, 858, 0, 847, 0, 853,
0, 923, 0, 0, 0, 1127, 0, 0, 354, 0,
0, 0, 496, 0, 747, 0, 745, 748, 863, 864,
0, 866, 868, 0, 0, 0, 849, 855, 468, 919,
889, 887, 0, 896, 45, 45, 798, 750, 751, 0,
743, 0, 861, 0, 856, 839, 0, 0, 0, 0,
0, 0, 749, 752, 746, 867, 0, 0, 871, 912,
850, 1021, 1247, 1249, 753, 0, 0, 0, 869, 45,
1020, 754, 873, 872, 45, 0, 0, 0, 874, 879,
881, 882, 1022, 1023, 0, 0, 0, 45, 870, 45,
45, 598, 885, 884, 883, 875, 0, 877, 878, 0,
880, 0, 45, 886, 876
};
/* YYDEFGOTO[NTERM-NUM]. */
static const yytype_int16 yydefgoto[] =
{
-1, 1, 6, 7, 208, 384, 209, 840, 751, 210,
903, 619, 804, 689, 569, 901, 902, 441, 2234, 1220,
1506, 211, 212, 620, 1124, 1125, 213, 214, 215, 579,
1286, 1287, 1128, 1288, 216, 217, 218, 219, 1153, 220,
221, 1154, 222, 582, 223, 224, 225, 226, 1578, 1579,
918, 1590, 937, 1864, 227, 228, 229, 230, 231, 232,
785, 1164, 1165, 233, 234, 235, 746, 1076, 1077, 236,
237, 710, 453, 930, 931, 1606, 932, 933, 1902, 1616,
1621, 1622, 1903, 1904, 1617, 1618, 1619, 1608, 1609, 1610,
1611, 1876, 1613, 1614, 1615, 1878, 2119, 1906, 1907, 1908,
1166, 1167, 1478, 1479, 1993, 1727, 1145, 1146, 238, 458,
239, 850, 2010, 2011, 1759, 2012, 1027, 718, 719, 1050,
1051, 1039, 1040, 240, 756, 757, 758, 759, 1092, 1439,
1440, 1441, 397, 374, 404, 1331, 1630, 1332, 885, 999,
622, 641, 623, 624, 625, 626, 2055, 1079, 970, 1916,
823, 627, 628, 629, 630, 631, 1336, 1632, 632, 1306,
1913, 1404, 1385, 1405, 1020, 1137, 241, 242, 1954, 243,
244, 692, 1032, 1033, 709, 423, 245, 246, 247, 248,
1083, 1084, 1433, 1923, 1924, 1070, 249, 250, 251, 252,
1202, 253, 973, 1344, 254, 376, 727, 1422, 255, 256,
257, 258, 259, 260, 652, 644, 979, 980, 981, 261,
262, 263, 996, 997, 1002, 1003, 1004, 1333, 769, 645,
801, 564, 264, 265, 266, 713, 267, 729, 730, 268,
767, 768, 269, 499, 835, 836, 838, 270, 271, 765,
272, 820, 273, 814, 274, 701, 1067, 275, 276, 2169,
2170, 2171, 2172, 1713, 1064, 407, 721, 722, 1063, 1678,
1742, 1945, 1946, 2423, 2424, 2495, 2496, 2518, 2532, 2533,
1747, 1943, 277, 278, 1729, 673, 809, 810, 1931, 2272,
2273, 1932, 670, 671, 279, 280, 281, 282, 2083, 2084,
2459, 2460, 283, 754, 755, 284, 706, 707, 285, 685,
686, 286, 287, 1143, 1719, 2159, 2377, 2378, 1975, 1976,
1977, 1978, 1979, 703, 1980, 1981, 1982, 2438, 1227, 1983,
2440, 1984, 1985, 1986, 2380, 2428, 2468, 2500, 2501, 2537,
2538, 2557, 2558, 2559, 2560, 2561, 2572, 1987, 2181, 2397,
816, 2060, 2220, 2221, 2222, 1988, 828, 1493, 1494, 2005,
1160, 2394, 288, 289, 290, 291, 292, 293, 294, 295,
797, 1162, 1163, 1735, 1736, 296, 844, 297, 780, 298,
781, 299, 1140, 300, 301, 302, 303, 304, 1100, 1101,
305, 762, 306, 307, 308, 681, 682, 309, 310, 1407,
1668, 715, 311, 312, 776, 313, 314, 315, 316, 317,
318, 319, 1234, 1235, 320, 1170, 1743, 1744, 2307, 321,
1706, 2151, 2152, 1745, 322, 2550, 323, 324, 325, 326,
1243, 327, 328, 329, 330, 331, 332, 1203, 1790, 862,
1768, 1769, 1770, 1794, 1795, 1796, 2340, 1797, 1798, 1771,
2187, 2450, 2329, 333, 1209, 1818, 334, 335, 336, 337,
1193, 1772, 1773, 1774, 2335, 338, 1211, 1822, 339, 1199,
1777, 1778, 1779, 340, 341, 342, 1205, 1812, 343, 344,
345, 346, 347, 348, 349, 350, 351, 352, 353, 354,
355, 356, 357, 1783, 1784, 863, 1515, 358, 359, 360,
361, 362, 873, 874, 875, 1221, 1222, 1223, 1228, 1828,
1829, 363, 364, 365, 879, 366, 367, 368, 369, 370,
2235, 2236, 2411, 2413, 371, 1246, 1247, 1248, 1249, 1250,
2056, 2057, 1252, 1253, 1254, 1255, 1256, 1258, 1259, 2069,
893, 2067, 372, 1262, 1263, 2073, 2074, 2079, 557
};
/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
STATE-NUM. */
#define YYPACT_NINF -2208
static const yytype_int16 yypact[] =
{
-2208, 77, -2208, -2208, -2208, -2208, 35, 4734, -2208, -2208,
-2208, 146, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, 792, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, 40, -2208, -2208, 810, 148, -2208, -2208, -2208, 40,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, 44, 44, -2208, -2208, -2208, -2208, -2208, 44,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
242, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, 44, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, 460, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
509, 560, -2208, -2208, -2208, -2208, -2208, 40, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, 40, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, 354, 1632,
623, 354, -2208, -2208, -2208, 654, 709, 758, 788, -2208,
-2208, -2208, 513, 808, 44, -2208, -2208, 814, 847, 880,
882, 154, 572, 905, 911, 920, -2208, 258, -2208, -2208,
-2208, 354, -2208, -2208, -2208, 946, -5, 1977, 2354, -2208,
-2208, 1787, -2208, 866, -2208, -2208, 2654, -2208, 960, -2208,
-2208, 1562, 960, 951, -2208, -2208, 987, -2208, -2208, -2208,
989, 993, 1039, 1049, 1067, -2208, -2208, -2208, -2208, 1069,
889, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, 1083, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, 135, 44, 1091, 1087, 1103, 961, 44,
44, 125, 44, -2208, 44, 44, 1115, -2208, 175, 1120,
44, 44, 44, 44, -2208, -2208, 44, -2208, 1124, 44,
997, 44, 1142, -2208, -2208, -2208, 44, -2208, 1140, 44,
-2208, 44, 1156, 178, -2208, 997, -2208, 44, 44, 44,
44, -2208, -2208, -2208, -2208, -2208, 44, -2208, 44, 44,
623, 44, 1158, 1091, 44, 1160, -2208, 44, 44, -2208,
-2208, -2208, 1184, 1181, 44, 44, -2208, 1183, 1185, 44,
1091, 1203, 1787, -2208, 1205, 1219, 44, -2208, 1234, 44,
1212, -2208, 1236, 44, 1091, 1248, 1250, -2208, 961, 1091,
44, 44, 2638, 69, 44, 107, -2208, -2208, 199, -2208,
301, 44, 44, 44, 1277, 44, 44, 1787, 109, -2208,
-2208, 1279, 44, 44, 44, 44, 44, 2870, 44, -2208,
1091, 44, 1091, 44, 44, -2208, -2208, 44, -2208, 1091,
44, 1322, 1325, -2208, 44, -2208, -2208, 1336, -2208, -2208,
1343, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, 1348, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, 44, -2208, -2208, 1351, 1359, -2208, 1375,
1787, 1787, 1787, 1787, 1787, 1382, 1385, 1405, 1407, 1417,
44, -2208, 1424, -2208, -2208, -2208, -2208, 1136, 174, -2208,
-2208, 44, 44, 44, 44, 1408, -2208, -2208, 1310, 44,
44, -2208, 637, 44, 44, 44, 44, 44, 500, 44,
1212, 44, 44, 1158, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, 1220, -2208, -2208, -2208, -2208, -2208, -2208, 1787,
1787, 1787, -2208, 1787, -2208, -2208, -2208, -2208, -2208, -2208,
1787, 877, -2208, 124, 1466, -2208, 1429, -2208, 1224, 1230,
1463, -2208, -2208, 1458, 1787, -2208, -2208, 2630, -2208, -2208,
1454, 2068, 1466, -2208, -2208, 833, 3, -2208, 2630, -2208,
-2208, -2208, 1474, 305, 181, 3422, 3422, 44, 44, 44,
44, 44, 44, 44, 1478, -2208, 44, -2208, -2208, -2208,
627, -2208, -2208, 1475, 44, -2208, 1787, -2208, 1251, 703,
-2208, 1477, -2208, -2208, 1482, 1493, -2208, -2208, -2208, -2208,
-2208, 2930, 44, 1488, -2208, 44, 1482, 44, -2208, 961,
-2208, -2208, -2208, -2208, -2208, -2208, 1496, -2208, -2208, -2208,
-2208, -2208, 1482, -2208, -2208, 1494, -2208, -2208, 668, 1479,
44, 698, 116, -2208, 1495, 1341, 1787, 1368, -2208, 1513,
-2208, -2208, 1787, 1787, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, 44, -2208, 44, 1508, 629,
44, 623, -2208, -2208, 1517, -2208, 1530, -2208, 1526, 1595,
-2208, 1536, -2208, 44, -2208, -2208, -2208, 1537, -2208, 960,
1485, 3488, -2208, 44, -2208, 5761, -2208, 44, 1787, -2208,
1535, -2208, 44, -2208, 44, 44, 44, 1466, 167, 44,
44, 44, 1368, -2208, 44, 312, -2208, -2208, -2208, 2068,
833, -2208, -2208, -2208, -2208, -2208, -2208, 135, -2208, 1475,
1544, 1495, -2208, -2208, -2208, -2208, -2208, -2208, 44, -2208,
-2208, -2208, 5761, -2208, 175, 1491, 44, -2208, 1539, -2208,
-2208, -2208, -2208, 1540, 3567, 706, -2208, -2208, 460, 44,
623, -2208, 44, 1482, -2208, 1548, 1542, -2208, 44, -2208,
1549, 1787, 1787, -2208, 1482, 44, 184, 44, 1273, 1273,
189, 1273, -2208, 1546, 222, 224, 232, 233, 261, 310,
-2208, 1482, 449, -2208, 1556, -2208, 120, 173, 1258, -2208,
-2208, 3609, 5761, 3648, 3723, 1566, 5761, 44, 44, -2208,
-2208, -2208, -2208, 1567, -2208, 44, 44, -2208, -2208, -2208,
-2208, 708, -2208, -2208, 1363, 1482, -2208, -2208, -2208, -2208,
3026, 44, -2208, -2208, -2208, -2208, -2208, -2208, -2208, 1482,
-2208, -2208, -2208, -2208, 1572, -2208, 1572, -2208, -2208, -2208,
-2208, 575, -2208, 455, -2208, 1568, -2208, -2208, 3764, 1573,
1575, 1575, 2712, -2208, 1787, 1787, 1787, 1787, 1787, 1787,
1787, 1787, 1787, 1787, 1787, 1787, 1787, 1787, 1787, 1787,
1787, 1787, 1787, -2208, 1522, 1459, 1569, 514, 364, 1787,
-2208, -2208, -2208, 712, 1532, -2208, -2208, -2208, -2208, 729,
-2208, 1633, 1080, 1787, 1585, 2068, 2068, 2068, 2068, 2068,
-2208, 1437, -2208, 305, 305, 1466, 1587, -2208, 3422, 5761,
100, 140, -2208, 1589, 1591, -2208, -2208, 1482, -2208, -2208,
-2208, -2208, 1482, -2208, 661, -2208, 135, -2208, -2208, -2208,
44, 3795, 44, 1588, 1787, 1533, -2208, -2208, 44, -2208,
1787, 3831, -2208, 731, -2208, -2208, 1565, -2208, -2208, 733,
-2208, 44, -2208, 44, -2208, -2208, 1479, -2208, -2208, -2208,
-2208, -2208, 3865, 1482, -2208, -2208, -2208, 1592, 1594, 1596,
1597, 1598, 1600, -2208, 1341, -2208, 44, -2208, 3896, -2208,
-2208, 44, 3956, 4036, -2208, 1601, 754, 1602, 1463, -2208,
-2208, 44, -2208, 1609, -2208, 1599, -2208, 44, -2208, 1489,
588, -2208, -2208, -32, -2208, -2208, 1613, -2208, 1606, 1625,
762, -2208, 44, 3422, 1612, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, 1614, -2208, -2208, 302, 1615, 1616,
4071, 3230, -62, -2208, 1604, -2208, -2208, 763, -2208, -2208,
-2208, -2208, -2208, 768, 1611, 785, -2208, -2208, -2208, 1787,
-2208, 1503, -2208, -2208, -2208, 800, -2208, 1637, -2208, 1341,
1624, 1638, 839, -2208, -2208, -2208, 1644, -2208, 1640, 1641,
1627, 44, 1787, 1787, 2870, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, 1649, 1654, -2208, 85, -2208, -2208, 4105, 4166,
-2208, 1643, -2208, 316, 1647, -2208, -2208, -2208, -2208, 319,
-2208, -2208, -2208, 337, -2208, 343, 423, 444, -2208, 479,
-2208, 483, -2208, 1650, 1655, 1657, 1658, -2208, 1659, 1660,
-2208, -2208, -2208, -2208, -2208, -2208, 1466, 1668, 1656, -2208,
1661, -2208, -2208, -67, 840, -2208, -2208, -2208, -2208, 1787,
681, 770, -2208, 843, 844, 475, 851, -2208, -2208, -2208,
-2208, 65, 883, -2208, -2208, -2208, -2208, 477, 903, -2208,
-2208, 300, 908, -2208, -2208, 623, 44, 129, -2208, 1663,
-2208, 1674, -2208, 1482, -2208, -2208, -2208, 1672, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, 1076, -2208, -2208, -2208,
44, 1482, 108, 1814, -2208, -2208, 44, 44, -2208, 1369,
455, -2208, 1673, -2208, 1621, 1787, 3422, -2208, 1787, 1575,
1575, 159, 159, 2712, 644, 1131, 2831, 5761, 2831, 2831,
2831, 2831, 2831, 1131, 1858, 1575, 1858, 3446, 1569, -2208,
-2208, 1669, 1684, 2759, -2208, -2208, -2208, -2208, -2208, 1686,
-2208, -2208, 961, 5761, -2208, 1787, -2208, -2208, -2208, -2208,
5761, 166, 5761, 1585, 1585, 945, 1585, 495, -2208, 1587,
1688, 305, 4207, 1691, 1694, 1695, 3422, 3422, 3422, -2208,
-2208, 44, 1679, -2208, -2208, 1689, 1495, -2208, 460, -2208,
-2208, -2208, -2208, 1450, -2208, 913, 961, -2208, 961, 919,
1699, 944, -2208, 5761, 1787, 2930, -2208, 947, -2208, 961,
1572, -2208, 799, 955, -2208, 948, 1541, 971, -2208, 2121,
-2208, 116, -2208, 1693, 44, 44, 1787, 44, -2208, -2208,
1482, -2208, -2208, -2208, 1470, 44, 1787, 44, -2208, 44,
-2208, 1466, 1787, 1692, 3230, -2208, -2208, -2208, -2208, 978,
-2208, 1696, -2208, 1701, 1702, 1709, 1502, 1787, 44, 44,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, 1091, 44,
-2208, 3266, 1916, 1705, 44, 44, -2208, 44, -2208, 1538,
44, -2208, 1787, 44, -2208, 1572, 5761, -2208, 1719, 88,
1719, -2208, 44, 1341, 1721, 3301, 44, 44, -2208, 175,
1787, 672, 1787, 983, -2208, 1715, 988, 5761, -2208, 51,
-2208, -2208, -2208, -2208, -2208, 1091, 43, -2208, 44, -2208,
497, -2208, -2208, -42, -2208, 194, 1110, -2208, 942, -2208,
321, -2208, -47, -2208, 44, 44, 44, -2208, 44, 44,
449, -2208, 44, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
1401, 1421, 1406, 5761, -2208, 1569, 44, -2208, -2208, 1717,
1723, 1725, -2208, -2208, 1726, 1730, 1731, -2208, -2208, -2208,
1732, 1733, 1735, 1736, -2208, -2208, 776, 1738, 1739, 1740,
1742, 1744, -2208, -2208, -2208, -2208, -2208, 44, 299, -2208,
-2208, 1746, -2208, 1727, -2208, -2208, 1674, -2208, -2208, -2208,
-2208, 5761, 2276, -2208, -2208, -2208, 573, 425, 425, 1518,
1519, -2208, -2208, 1520, 1523, 1524, 579, 44, -2208, -2208,
-2208, -2208, 1763, -2208, -2208, -2208, 1673, -2208, 1764, -2208,
469, 1756, -2208, 1759, 4238, -2208, 1754, 1758, 1463, -2208,
-2208, 4303, -2208, 1787, 1787, 1532, -2208, 5761, 2630, 305,
-2208, 147, 3422, 3422, 3422, 151, -2208, 170, -2208, 180,
-2208, 1482, 44, -2208, -2208, 1769, 990, -2208, 1773, -2208,
5761, -2208, -2208, -2208, 1787, -2208, -2208, 1787, -2208, -2208,
-2208, -2208, 5761, -2208, 1541, 1787, 1760, -2208, 1762, 1768,
4334, 1777, -2208, 75, 44, -2208, 992, -2208, -2208, 1765,
5761, -2208, -2208, 4303, -2208, 1489, -2208, 1489, 44, 44,
44, 998, 999, -2208, 44, 1778, 1779, 1787, 4379, 3360,
-2208, -2208, -2208, 1482, 1466, -2208, 1784, -2208, 1635, 1802,
5761, -2208, 44, -2208, 1797, 1798, -2208, -2208, 1560, 1809,
-2208, -2208, 1813, -2208, 5761, 1008, -2208, 1013, -2208, -2208,
4410, -2208, -2208, 1014, -2208, -2208, 5761, 1801, 44, -2208,
-2208, -2208, 1810, 1812, 1628, 1766, 44, 44, 1822, 1838,
-2208, 638, -2208, 1832, -2208, -2208, -2208, 1834, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, 497, -2208, -2208, -2208, -2208,
-42, 44, -2208, -2208, 1017, 1837, -2208, 1839, -2208, 1841,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
1110, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, 942, -2208, -2208, -2208, -2208, -2208, 321,
-2208, -2208, -2208, -47, 1836, 1845, 1847, 865, 1032, -2208,
1848, 1849, 1466, -2208, 1857, -2208, 1862, 1569, 1852, -2208,
44, 44, -2208, -2208, 44, 44, 44, -2208, 44, 44,
44, 1787, -2208, 1867, 1869, -2208, 44, 44, 1787, -2208,
-2208, 1864, 1787, 1787, -2208, -2208, 1870, -2208, 1177, 299,
2449, -2208, 1033, -2208, 5761, -2208, -2208, -2208, 1885, -2208,
-2208, -2208, -2208, 514, 514, 514, 514, 514, 1369, -2208,
1879, 1895, 1886, 1369, 1756, -2208, 455, 469, 172, 172,
-2208, -2208, -2208, 1034, 1846, 931, 294, -2208, 1896, 469,
-2208, 1787, -2208, 1884, -2208, 1463, -2208, 2759, 5761, 1887,
-2208, -2208, 833, 1881, 1889, 1040, 1890, 1891, 1892, -2208,
-2208, -2208, 1899, 17, 961, -2208, 44, 1091, 5761, 17,
5761, 1541, 1787, 1894, 4467, 1042, -2208, -2208, -2208, -2208,
-2208, 1787, -2208, 1902, -2208, -2208, -2208, -2208, -2208, 1057,
1066, 1074, -2208, -2208, -2208, 716, -2208, 5761, 1787, 1787,
4732, -2208, 44, 44, -2208, -2208, 1802, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, 1901,
88, 1903, 3488, -2208, 44, 44, 44, 3301, -2208, -2208,
-2208, 672, -2208, -2208, -2208, 2801, 44, -2208, -2208, 1822,
1914, -2208, -2208, 44, 44, 1787, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, 194, -2208, -2208,
-2208, 1787, -2208, 1787, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, 44, 44, 1907, 1028, 1904, 1078, -2208, 1085, 1169,
1092, 1111, 1116, 1130, 1144, 1149, -2208, 1159, 5067, 1910,
-2208, -2208, 290, 1164, -2208, 1168, 1193, 5107, 874, 1926,
-2208, 5761, 5761, 1195, 1928, -2208, -2208, -2208, 1921, 5138,
-2208, -2208, -2208, 573, -2208, -2208, -2208, -2208, -2208, -2208,
1369, -2208, 44, -2208, -2208, 1935, 1929, -2208, 901, 294,
294, 469, -2208, 469, 172, 172, 172, 172, 172, 1228,
5169, -2208, -2208, -2208, -2208, 1787, -2208, -2208, -2208, -2208,
1828, -2208, 44, 1954, 1493, 44, -2208, 44, -2208, 5200,
-2208, 1787, 1787, -2208, 5231, 1710, 1787, -2208, -2208, -2208,
-2208, 1198, -2208, -2208, 5761, 5761, 1787, 1217, 1950, -2208,
603, -2208, 1787, -2208, 1945, 1946, -2208, -2208, 1956, 1961,
-2208, -2208, -2208, -2208, -2208, 1840, 1952, 1218, 1967, 1971,
1229, 950, 44, -2208, -2208, 5761, 1286, 1960, -1, -2208,
-2208, 1947, -2208, -2208, -60, 5262, 5293, -2208, -2208, -2208,
-2208, -2208, 1235, 1962, 1036, 1787, 44, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, 1970, 1972, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
44, -2208, 1787, -2208, 1629, 1240, -2208, 1245, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, 1787, 1979, 1982,
-2208, -2208, -2208, 1814, 1973, -2208, 1569, -2208, 469, -2208,
1228, 1975, 294, 294, -2208, -2208, -2208, -2208, 5324, -2208,
4303, -2208, 1246, -2208, -2208, 961, 1668, -2208, 1541, 5761,
-2208, 1737, -2208, 1976, 5355, 716, -2208, 5761, -2208, 2560,
1983, 1984, 1985, 1987, 1988, 44, 44, 1989, 1990, 1991,
5386, -2208, -2208, -2208, 1787, 44, 44, -2208, -2208, 1994,
44, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, 2003,
-2208, -2208, -2208, -2208, -2208, 1285, -2208, -2208, -2208, -2208,
1992, -2208, -2208, 2004, -2208, 5761, -2208, 44, 44, 1169,
-2208, 5417, -2208, -2208, 2006, 2008, -2208, 5448, -2208, 2010,
-2208, -2208, 1997, 1291, 1228, -2208, 1787, 1828, -2208, -2208,
1787, 44, 1787, -2208, -2208, -2208, 5761, 1296, -2208, -2208,
1983, 44, 44, 44, 44, -2208, -2208, 1787, 1787, 44,
1787, 1305, -2208, -2208, 2011, -2208, 1317, 2013, 1324, 44,
1787, -2208, -2208, -2208, -2208, 665, 2019, -2208, 1787, -2208,
-2208, -2208, -2208, -2208, -2208, 44, 2000, -2208, -2208, 5479,
-2208, 5761, -2208, -2208, 1996, 5510, 2560, -2208, 427, -2208,
2021, 1326, 2025, 1327, 2022, 1328, 5541, 5572, 2015, -2208,
1331, 5603, -2208, 44, 1963, -2208, -2208, -2208, -2208, 1668,
-2208, 5634, 1711, -2208, 1787, 5761, 1682, 1697, -2208, 2034,
-2208, -2208, 1787, 2188, -2208, -2208, 2037, 2038, 44, 44,
-2208, 44, -2208, 2870, -2208, -2208, 1787, -2208, 44, -2208,
1787, -2208, 2026, 1338, 1346, -2208, 2036, 5665, 1073, 2040,
2044, 44, 5761, 44, 5761, 1357, -2208, -2208, -2208, -2208,
1362, -2208, 2045, 1380, 1396, 1400, 5696, -2208, 5761, -2208,
-2208, -2208, 1787, -2208, -2208, -2208, -2208, -2208, 2032, 2188,
-2208, 44, -2208, 1787, -2208, -2208, 2031, 1787, 1403, 1404,
1415, 1787, 2046, -2208, -2208, -2208, 5730, 1419, -2208, -2208,
5761, 2053, -2208, -2208, -2208, 1787, 1787, 1787, 2047, -2208,
-2208, -2208, 5761, -2208, -2208, -56, 453, 1422, -2208, 2058,
2062, -2208, -2208, -2208, 2057, 2057, 2057, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, 182, 2075, -2208, 1925,
-2208, 1441, -2208, -2208, -2208
};
/* YYPGOTO[NTERM-NUM]. */
static const yytype_int16 yypgoto[] =
{
-2208, -2208, -2208, -2208, -2208, -14, 1865, 1190, -2208, -2208,
-684, -38, -2208, -2208, -373, -2208, 822, -2208, -50, -720,
-2208, -2208, -2208, 2030, 98, -2208, -2208, -2208, -2208, -2208,
-2208, 223, 512, 914, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -173, -900, -2208, -2208, -2208, 1006, 515, 1516,
-2208, -151, -1555, 237, -2208, -2208, -2208, -2208, -2208, -2208,
1521, -290, -365, -2208, -2208, -2208, 1515, -2208, -682, -2208,
-2208, -2208, -2208, 1402, -2208, -2208, 812, -1254, -1559, 1180,
498, -1527, -143, 4, 1186, -2208, 225, 230, -1781, -2208,
-1553, -1238, -1523, -329, -2208, 27, -1583, -1803, -802, -2208,
-2208, 633, 969, 401, -36, 138, -2208, 652, -2208, -2208,
-2208, -2208, -2208, -52, -2208, -1448, -340, 1107, -2208, 1088,
730, 752, -376, -2208, -2208, 1053, -2208, -2208, -2208, -2208,
447, 448, 2071, 3050, -364, -1299, 234, -422, -1007, 326,
-499, -520, 1561, 542, 1703, -877, -873, -2208, -2208, -617,
-607, -228, -2208, -814, -2208, -576, -942, -1112, -2208, -2208,
-2208, 213, -2208, -2208, 1443, -2208, -2208, 1912, -2208, 1913,
-2208, -2208, 761, -2208, -379, -7, -2208, -2208, 1918, 1922,
-2208, 737, -2208, -735, -262, 1370, -2208, 1095, -2208, -2208,
6, -2208, 1135, 536, -2208, 4535, -423, -1072, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -191, -2208, 534, -909, -2208,
-2208, -2208, 296, -1274, -635, 1178, -952, -182, -395, -430,
873, 284, -2208, -2208, -2208, 1525, -2208, -2208, 1104, -2208,
-2208, 1077, -2208, 1340, -1967, 1009, -2208, -2208, -2208, 1527,
-2208, 1534, -2208, 1545, -2208, 1550, -1010, -2208, -2208, -2208,
-118, -254, -2208, -2208, -2208, -416, -2208, 586, 784, -572,
786, -2208, 58, -2208, -2208, -2208, -318, -2208, -2208, -2208,
-1918, -2208, -2208, -2208, -2208, -2208, -1433, -541, 214, -2208,
-160, -2208, 1411, 1194, -2208, -2208, 1197, -2208, -2208, -2208,
-2208, -272, -2208, -2208, 1134, -2208, -2208, 1182, -2208, 289,
1199, -2208, -2208, -868, -2208, -2207, -2208, -200, -2208, -2208,
253, -2208, -771, -384, 1789, 1444, -2208, -2208, -1571, -2208,
-2208, -2208, -2208, -2208, -146, -2208, -2208, -2208, -286, -2208,
-311, -2208, -328, -2208, -331, -1968, -1128, -757, -2208, -69,
-480, -991, -2077, -2208, -2208, -2208, -489, -1791, 499, -2208,
-754, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-485, -1456, 759, -2208, 248, -2208, 1582, -2208, 1745, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -1432, 802,
-2208, 1492, -2208, -2208, -2208, -2208, 1872, -2208, -2208, -2208,
314, 1844, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, 718, -2208, -2208, -2208, 259, -2208, -2208,
-2208, -2208, -24, -1902, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, 606, 462, -529,
-1312, -1231, -1317, -1437, -1428, -1427, -2208, -1421, -1419, -1228,
-2208, -2208, -2208, -2208, -2208, 445, -2208, -2208, -2208, -2208,
-2208, 488, -1417, -1415, -2208, -2208, -2208, 442, -2208, -2208,
486, -2208, -625, -2208, -2208, -2208, -2208, 458, -2208, -2208,
-2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2208, -2208, -2208, 245, -2208, 247, -61, -2208, -2208, -2208,
-2208, -2208, -2208, -2208, 1050, -2208, 1398, -2208, -826, -2208,
231, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208, -2208,
-2005, -74, -2208, -2208, -2208, -2208, 732, -2208, -2208, -2208,
-2208, 76, -2208, 726, -2208, -2208, -2208, -2208, 721, -2208,
-2208, -2208, -2208, -2208, 715, -2208, 48, -2208, 1260
};
/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If
positive, shift that token. If negative, reduce the rule which
number is the opposite. If zero, do what YYDEFACT says.
If YYTABLE_NINF, syntax error. */
#define YYTABLE_NINF -1191
static const yytype_int16 yytable[] =
{
410, 821, 678, 817, 829, 830, 831, 832, 704, 1098,
1241, 674, 870, 971, 1242, 1085, 1702, 1389, 1294, 1463,
1244, 1005, 716, 698, 422, 422, 1338, 975, 643, 1627,
1737, 430, 731, 643, 734, 1872, 567, 1905, 2177, 737,
738, 739, 800, 1875, 792, 1607, 1365, 740, 1891, 1730,
742, 1230, 744, 2061, 1418, 2063, 424, 743, 1760, 1074,
457, 1612, 437, 2153, 812, 1345, 2237, 649, 476, 747,
653, 655, 479, 1877, 1182, 1475, 402, 2, 3, 1001,
1001, 1804, 806, 1952, 46, 459, 773, 1640, 1183, 1895,
1805, 1806, 793, 2331, 1910, 2109, 2110, 1807, 697, 1808,
789, 1810, 474, 1811, 2313, 794, 1554, 1937, 1366, 802,
939, 805, 2103, 1464, 402, 1535, 402, 74, 853, -541,
-584, 1056, 1752, 1587, 824, 989, 2562, 1959, 1960, 1961,
501, 2337, 1018, 683, 898, 1724, 839, 1443, 842, 963,
667, 1225, 668, 1241, 1762, 848, 421, 1384, -593, 1484,
96, 8, 724, 1335, 1335, -594, 1000, 1000, 1231, -587,
-593, 373, 587, 405, 944, 1496, 1403, -594, 945, -339,
-384, -587, 421, 421, 1057, 1138, 1444, -527, -591, 898,
109, -565, 2439, 978, 1270, -137, 581, 1897, -589, -563,
-591, -527, 594, 733, 1229, 899, 960, 594, 694, 1793,
-589, 1803, 1058, 1816, 1791, 693, 1801, 982, 1814, 908,
1820, 984, 695, 598, 807, 1757, -584, 421, 991, 920,
921, 922, 923, -141, 1776, -61, 811, 4, 2338, 2332,
594, 1781, 594, 1196, 1197, 1764, 1200, 588, 590, 2339,
594, 594, 1059, 595, 643, 1195, 1838, 599, 1536, 421,
1445, 1537, 990, 1060, 421, 992, -593, 617, 421, 1753,
-541, 1465, 2563, -594, 421, 1725, 594, -587, 1156, 594,
2058, 2507, 2407, -527, 1555, -339, 1281, -339, 1099, 1282,
989, 1061, -565, 2333, 1504, 1792, -591, 1802, 1799, 1815,
1809, 1821, 1817, 1556, 2334, -565, -589, -563, 924, 2116,
-1115, 421, 421, 421, 421, -1140, 440, 421, 1065, 1019,
2564, 2262, 2263, 1034, 2108, 965, 405, 1862, 594, 2255,
994, 1900, 1694, 421, 594, 1863, -137, 594, 421, 1953,
1149, 2117, 1038, 1161, 5, 669, 672, 2106, -1062, 2565,
-1151, 679, 680, 684, 680, 594, 688, 690, -1167, -1170,
696, 594, 700, 702, 702, 705, 1037, -584, 708, 1879,
1881, 712, 1339, 708, -141, 1640, -61, 2104, 723, 1151,
964, 728, 1044, 708, 1062, 708, 1804, -1104, 1086, 422,
708, 708, 708, 2153, 1592, 1805, 1806, -527, 708, 2062,
741, 708, 1807, 708, 1808, 1158, 1810, -593, 1811, 752,
753, 2157, 1435, 1150, -594, 1152, 764, 766, -587, 643,
736, 772, 1503, 643, 1646, 1648, 1650, 1495, 779, 1686,
643, 783, 1001, -565, 1633, 1501, -1134, -591, 1337, 1148,
421, 594, -1114, 796, 421, -1139, 803, -589, -563, 825,
1701, -1115, 723, 813, 815, 815, -1140, 819, 796, 1455,
1456, 974, 594, -1061, 827, 827, 827, 827, 827, -1150,
837, 1430, 989, 841, 989, 843, 779, 1178, 1452, 846,
1300, 989, 849, 1731, 1177, 497, 854, 1179, 1588, -1062,
2202, -1151, 1457, 1793, 1897, 1898, 1899, 594, 1791, -1167,
-1170, 594, 1292, 421, 872, 570, 1803, 1667, 878, 1363,
985, 1801, 1816, 1180, 986, 871, 2505, 1814, 1029, 2529,
2530, 1820, 1762, 617, 1190, 1870, 1871, 1603, -1104, 904,
575, 576, 892, 694, 507, 596, 910, 1001, 2260, 1763,
900, 1212, 988, 905, 906, 907, 696, 695, 2053, -1166,
1875, 913, 914, 2257, 1567, 919, 696, 696, 696, 696,
2180, 895, 896, 927, 928, 1353, 1354, 1355, 1356, 1357,
-1169, 2497, 2167, 911, 2276, 1271, 2184, -1134, 508, 1792,
1877, 643, 1799, -1114, 1604, 2466, -1139, 621, 1103, 1295,
589, 2564, 1802, 1298, 421, 1809, 1091, 1888, 1815, 1597,
1598, 1817, 1821, 2435, -1061, -1103, 1213, 1214, 421, -1133,
-1150, 2578, 2580, 1764, 1000, 2238, 1765, 2467, 50, -527,
2565, 563, 1299, 2544, 2584, 1014, 1889, 2497, 1900, 712,
1007, 764, 819, 813, 700, 1012, 1605, 2551, 843, 1215,
1568, 989, 965, 1025, 1607, 1016, 696, 577, 568, 2102,
2239, 965, 915, 421, 2290, 1569, 1570, 1571, 1017, 944,
1612, 25, 916, 945, 708, 1081, 29, 1036, 1549, 696,
946, 947, 571, 617, 2015, 1603, 1550, 1369, 965, 1241,
2566, 1625, 1370, 1839, 1752, 2364, 1046, 1741, 47, 48,
-1166, 960, 1053, 1551, -382, 1023, 2453, 1675, 1762, 1047,
1646, 1648, 1650, 904, 1098, 1098, 1544, 1085, 1824, 1825,
1826, -1169, 1830, 1831, 1372, 1763, 1054, 1075, 118, 1080,
1093, 594, 1082, 1410, 1174, 122, 1267, 572, -527, 1055,
1340, 1741, 1604, 2150, 1127, 1096, 1345, 1175, 1373, 1268,
1001, 1132, 90, 1341, 1293, 1126, -1103, 1346, 2291, 1395,
-1133, 1399, 95, 1374, 1133, 1687, 1134, 1688, 1375, 1376,
1347, 1141, 1396, 1144, 1400, 1377, 696, 643, 643, 643,
643, 643, 1427, 1216, 1217, 1942, 573, 1218, 1219, 669,
1449, 1467, 1443, -383, 1605, 1428, 1470, 2406, 775, 1764,
1096, 1328, 1765, 1450, 1468, 1545, 696, 1766, 121, 1471,
1001, 1001, 1001, 1473, 1716, 1767, 574, 1185, 642, -792,
-792, 696, -382, 642, 696, 2416, 1474, 1000, 1016, 1626,
1186, 1753, 2292, 822, 963, 1559, 580, 402, 1560, 1561,
1562, 1481, 583, 834, 2293, 403, 2294, 2295, 2449, 2296,
1233, 1563, 2297, 989, 989, 989, 989, 989, 985, 1245,
1251, 1257, 986, 1679, 1261, 1681, 2102, 1487, 1538, 638,
639, 1546, 1470, 974, 2396, 584, 987, 1264, 841, 1552,
1488, 1539, 1192, 1406, 1547, 1548, 1198, 1645, 1647, 1649,
988, 1204, 1553, 1289, 1208, 1210, 881, 882, 883, 884,
886, 633, 944, 1266, 1304, 1445, 945, 607, 585, 1378,
586, 1557, 1574, 946, 947, 1301, 664, 665, 1290, 948,
949, 950, 951, 952, 1558, 953, 954, 955, 956, 957,
958, 1564, 959, 591, 960, 961, 1572, 2114, 2115, 592,
1379, 1653, 2259, 2298, 1565, 2299, 2433, 1239, 593, 1573,
1296, 1593, 1297, 1580, 1654, 938, 940, 941, -230, 942,
1657, 2094, 2095, 2096, 2097, 2098, 943, 2114, 2115, 2431,
985, 1586, 1046, 597, 986, 1340, 1665, 2362, -383, 656,
822, 638, 639, 1241, 1380, 1659, 1636, 1383, 1662, 1666,
966, 2090, 2209, 1241, 2210, 648, 749, 2066, 669, 1669,
2064, 2065, 988, 2211, 1387, 2212, 1695, 1989, 2075, 2076,
684, 1748, 1670, 725, 1495, 657, 1239, 658, 1399, 1696,
1239, 659, 1021, 705, 1749, 787, 1239, 1449, 1633, 1751,
1655, 1935, 795, 1956, 642, 2504, 1997, 1031, 2271, 1962,
1963, 1487, 2001, 1663, 2132, 2027, 1785, 1919, 1420, 1998,
2137, -387, 1667, 728, 1999, 2002, 904, 2503, 2028, -385,
2047, 2091, 2111, 969, 1446, 1052, 1685, 660, -587, 753,
2142, 969, 1068, 2048, 2092, 2112, 1241, 661, 1072, 1073,
2131, 1914, 1403, 2143, 766, 1532, 1001, 1001, 1001, 1335,
1335, 1335, 1335, 1335, 1532, 662, 965, 663, 2147, 421,
1682, -852, 1532, 1583, 1584, 985, 2206, 2148, 1469, 986,
1495, 666, 1495, 1532, 1704, 2149, 638, 639, 402, 2207,
2223, 1351, 675, 987, 1130, 856, 2208, 858, 2213, 2214,
677, 2215, 2216, 2224, 859, 860, 861, 988, 676, 1748,
864, 865, 866, 867, 1487, 868, 869, 1853, 1854, 646,
691, 1499, 2225, 1762, 654, 699, 944, 2226, 1748, 711,
945, 1756, 2217, 1925, 1647, 1649, 714, 946, 947, 717,
1763, 2227, 1470, 948, 949, 726, 951, 1470, 1635, 953,
954, 955, 956, 957, 1638, 2228, 959, 2230, 960, 961,
2229, 732, 2240, 745, 1530, 750, 1470, 1188, 1189, 642,
2231, 2045, 2046, 642, 2218, 2241, 1540, 1541, 1542, 2242,
642, 2209, 760, 2210, 1785, 995, 763, 2219, 770, 1511,
771, 1470, 2211, 2248, 2212, 1514, 2285, 1786, 1922, 1517,
1566, 1519, 1517, 1517, 2243, 1521, 2249, 1523, 774, 2286,
777, 1272, 2245, 2246, 1764, 1532, 1174, 1765, 1575, 900,
1674, 1787, 1766, 2016, 778, 2018, 2019, 1487, 2288, 2309,
1767, 1788, 782, 1532, 2114, 2115, 1789, 2023, 2353, 784,
2311, 786, 1585, 2353, 2367, 2271, 2343, 2030, 696, 2032,
897, 2354, 1301, 790, 1273, 791, 2355, 2368, 1880, 1882,
1309, 1310, 1311, 1312, 1313, 1314, 1315, 1316, 1317, 1318,
1319, 1320, 1321, 1322, 1323, 1324, 1325, 1326, 1327, 1359,
1360, 2315, 818, 2400, 826, 822, 1275, 2391, 2122, 2111,
1343, 1762, 2316, 2317, 2426, 1955, 2401, 1350, 2318, 1352,
2319, 1929, 2418, 1239, 2264, 2265, 2266, 2427, 1763, 2320,
1276, 2321, 1277, 2322, 1362, 1487, 2442, 2213, 2214, 1241,
2215, 2216, 2447, 1651, 1449, 1487, 1748, 851, 2445, 2478,
852, 642, 605, 606, 1592, 2448, 2223, 2470, 2472, 2474,
886, 855, 2479, 1241, 2223, 1278, 1393, 2350, 857, 2510,
1279, 2217, 1837, -1190, 1280, 2519, 876, 2511, 1281, 2370,
2521, 1282, 1052, 1971, 877, 1786, 1677, 1677, 2520, 1677,
1926, 1927, 1928, 2522, 1596, 1597, 1598, 708, 1449, 1075,
880, 1075, 1764, 1283, 1689, 1765, 1599, 887, 1159, 1787,
888, 2524, 989, 2218, 1487, 1600, 1664, 1284, 1174, 1788,
643, 1239, 2353, 1285, 1789, 909, 2219, 2525, 1226, 1226,
889, 2526, 890, 2353, 2541, 2542, 1712, 2547, 1601, 787,
2567, 1728, 891, 1602, 912, 1144, 2543, 2573, 2574, 894,
2548, 1726, 985, 2568, 966, 2323, 986, 1917, 2324, 1629,
1754, 696, 1755, 638, 639, 2483, 2484, 1462, 1358, 936,
987, 1603, 2583, 558, 559, 560, 561, 562, 1758, 965,
967, 1933, 1206, 1207, 988, 1476, 968, 1827, 969, 972,
983, 1722, 993, 1939, 1048, 1013, 1049, 1941, 1233, 607,
807, 1022, 1024, 608, 609, 610, 611, 1026, 886, 1497,
834, 1028, 1245, 1035, 1041, 2528, 612, 1251, 985, 1045,
405, 1104, 986, 613, 1257, 614, 1066, 1069, 1604, 638,
639, 1071, 1261, 963, 1477, 1087, 987, 642, 642, 642,
642, 642, 1127, 2325, 1868, 995, 995, 1342, 1088, 1861,
988, 1089, 607, 615, 1094, 1102, 608, 609, 610, 611,
1131, 1157, 2393, 1168, 1171, 1172, 1181, 1187, 2133, 612,
1195, 1201, 787, 1184, 1224, 1543, 613, 651, 614, 1890,
1605, 616, 1216, 2135, 1239, 1260, 1269, 637, 638, 639,
594, 1308, 1901, 1305, 945, 787, 1329, 2122, 1330, 612,
-342, 2326, 2327, 2328, 986, 1361, 615, 1367, 614, 1368,
1390, 1689, 1398, 1388, 1689, 1689, 1689, 1412, 421, 1413,
1429, 1414, 1415, 1416, 1930, 1417, 1426, 1432, 1438, 1591,
-935, 1447, 2179, 1431, 616, 1434, 615, 1098, 617, 2434,
1495, 1624, 1448, 1453, 1459, 1454, 1458, 1472, 1348, 1485,
1411, 1466, 1349, 607, 1482, 1486, 708, 608, 609, 610,
611, 1419, 1489, 1492, 616, 1490, 1491, 1500, 25, 1631,
612, 421, 1502, 29, 1509, 1524, 1964, 613, 1512, 614,
1525, 1637, 1526, 1527, 1528, 1529, 1532, 1533, 1577, 915,
618, 617, 1534, 1623, 1082, 47, 48, 1582, 1620, 2481,
1628, 640, 1629, 1634, 373, 25, 1639, 615, 978, 1642,
29, 2312, 1643, 1644, 403, 1652, 1658, 978, 1675, 1684,
1444, 617, 1697, 1692, 2502, 1098, 1698, 1699, 2008, 2009,
1660, 1031, 47, 48, 1700, 616, 1711, 1723, 1732, 1716,
1750, 1834, 1840, 618, 1867, 1672, 1835, 1836, 1841, 90,
1842, 1844, 1680, 2026, 1483, 1845, 1846, 1848, 1849, 95,
1850, 1851, 886, 1855, 1856, 1857, 565, 1858, 1690, 1859,
1693, 1865, 421, 618, 1883, 1884, 1885, 2502, 1893, 1886,
1887, 1909, 1896, 886, 1911, 1914, 90, 1934, 1510, 1915,
1936, 1947, 617, 1948, 1513, 1951, 95, 1708, 1516, 1949,
1518, -494, 2059, 1965, 1520, 121, 1522, 607, 1720, 1972,
1966, 608, 609, 610, 611, 2072, 2385, 2386, 1973, 2078,
1974, 1734, 1991, 1992, 612, 1994, 1740, 1995, 1746, 1589,
1996, 613, 2003, 614, 607, 2006, 1090, 2007, 608, 609,
610, 611, 121, 2269, 618, 1461, 1753, 1752, 607, 150,
2013, 612, 608, 609, 610, 611, 2014, 2017, 613, 2020,
614, 615, 2029, 2113, 2031, 612, 2033, 2042, 2105, 1901,
1901, 1901, 613, 944, 614, 566, 2043, 945, 2044, 2049,
2050, 1901, 2051, 2054, 946, 947, 150, 2052, 615, 616,
948, 949, 2070, 951, 2071, 2080, 953, 954, 955, 956,
957, 2085, 615, 2093, -381, 960, 2430, 2432, 684, 2369,
2100, 2101, 2145, 995, 2121, 2118, 616, 2125, 2124, 2253,
2126, 2127, 2128, 2129, 2130, 2140, 421, 2146, 1874, 2256,
616, 944, 2182, 1709, 2160, 945, 607, 2162, 2204, 2164,
2205, 2233, 946, 947, 2247, 2250, 617, 1710, 948, 949,
950, 951, 2251, 421, 953, 954, 955, 956, 957, 958,
-224, 959, 1726, 960, 961, 2258, 1930, 421, 2168, 1918,
822, 1343, 2275, 617, 2283, 2289, 2302, 2303, 2178, 2305,
2188, 2304, 2306, 2308, -843, 2183, 1758, 617, 2310, 2194,
978, 2330, 2352, 2344, 2336, 2347, 2358, 2348, 618, 2359,
1938, 2372, 2371, 1940, 2361, 748, 2365, 1827, 2379, 2381,
2382, 1944, 2383, 2384, 2387, 2388, 2389, 1714, 1683, 2395,
2399, 2463, 2404, 2403, 2410, 618, 2412, 2415, 2417, 2443,
2446, 2461, 13, 14, 748, 15, 16, 2454, 2469, 618,
20, 748, 2471, 1967, 2489, 1970, 2477, 2473, 23, 808,
2486, 2482, 2491, 27, 2498, 2499, 30, 2509, 2490, 2531,
1761, 2512, 2539, 2564, 37, 2514, 38, 1718, 40, 2515,
2523, 2549, 2554, 2545, 1890, 2569, 1226, 1226, 1226, 2570,
1226, 1226, 2571, 1901, 1832, 1901, 1901, 1901, 1901, 1901,
1901, 59, 2582, 799, 638, 639, 1265, 578, 787, 1576,
2165, 2086, 70, 2281, 1866, 612, 1442, 1775, 917, 1505,
1780, 1869, 2360, 1800, 614, 1813, 2087, 1819, 929, 1823,
1595, 926, 1042, 1302, 1894, 2363, 85, 2261, 2099, 1303,
2254, 2107, 1739, 1480, 1990, 1721, 1048, 2301, 2163, 93,
2314, 607, 615, 1391, 1408, 608, 609, 610, 611, 1671,
1656, 1437, 1957, 815, 2009, 1958, 436, 102, 612, 2581,
925, 2123, 2136, 104, 1043, 613, 1661, 614, 600, 601,
616, 108, 1147, 110, 602, 112, 788, 114, 603, 1691,
1397, 1920, 1921, 2349, 119, 1423, 1364, 2068, 1176, 1451,
642, 995, 1006, 1498, 2077, 615, 1008, 2392, 2081, 2082,
2072, 130, 131, 1741, 1009, 1673, 2089, 640, 607, 1676,
2280, 2534, 608, 609, 610, 611, 1010, 2420, 2166, 143,
1382, 1381, 1011, 616, 748, 612, 604, 617, 1155, 2516,
1901, 1436, 613, 1401, 614, 2134, 2465, 1392, 2493, 2161,
155, 761, 1139, 156, 2429, 2535, 2553, 2120, 2577, 2575,
1226, 1226, 1226, 1631, 2398, 2173, 1738, 2004, 1015, 845,
421, 1703, 615, 1095, 687, 2138, 1833, 827, 827, 735,
2174, 2374, 2035, 2022, 2039, 2041, 2025, 2168, 2139, 618,
617, 2037, 2193, 2191, 1531, 2402, 1232, 2144, 2201, 2409,
616, 1873, 2346, 1847, 1843, 1852, 607, 1860, 2356, 0,
608, 609, 610, 611, 2154, 2155, 0, 0, 0, 0,
0, 0, 0, 612, 0, 0, 1078, 0, 0, 0,
613, 0, 614, 0, 0, 0, 0, 421, 0, 0,
0, 0, 618, 1734, 1097, 0, 0, 0, 0, 0,
0, 834, 0, 2422, 0, 0, 0, 617, 1129, 0,
615, 2185, 0, 1096, 1096, 2444, 1135, 1136, 0, 0,
0, 1142, 0, 0, 2452, 0, 0, 2195, 2021, 2196,
2456, 0, 2457, 2024, 0, 0, 0, 0, 616, 0,
0, 0, 0, 0, 0, 0, 2034, 2458, 0, 1097,
0, 0, 787, 1226, 0, 0, 0, 1169, 0, 618,
0, 0, 787, 0, 0, 0, 2059, 2059, 2036, 13,
14, 0, 15, 16, 2038, 421, 0, 20, 2040, 0,
0, 0, 0, 0, 0, 23, 1191, 0, 1194, 0,
27, 0, 0, 30, 0, 617, 0, 0, 0, 0,
0, 37, 0, 38, 0, 40, 0, 748, 748, 0,
0, 0, 0, 0, 0, 0, 0, 0, 1240, 1142,
0, 2268, 0, 2458, 2088, 2517, 2270, 0, 59, 607,
0, 0, 0, 608, 609, 610, 611, 2279, 1944, 70,
0, 0, 2284, 0, 0, 787, 612, 618, 0, 0,
0, 787, 2287, 613, 0, 614, 0, 0, 2300, 0,
0, 0, 0, 85, 0, 0, 0, 0, 0, 2555,
0, 0, 0, 0, 2556, 0, 93, 0, 0, 0,
0, 0, 0, 615, 1226, 0, 0, 2556, 0, 2576,
2579, 0, 0, 0, 102, 0, 0, 0, 1334, 1334,
104, 2345, 2579, 0, 0, 0, 0, 0, 108, 0,
110, 616, 112, 0, 114, 0, 0, 0, 0, 0,
0, 119, 0, 0, 748, 748, 0, 0, 2351, 0,
0, 0, 0, 0, 0, 2375, 0, 0, 130, 131,
607, 0, 0, 2357, 608, 609, 610, 611, 421, 1591,
0, 1240, 0, 0, 0, 0, 143, 612, 0, 2175,
0, 0, 0, 1226, 613, 0, 614, 0, 617, 0,
0, 0, 0, 2186, 1402, 0, 0, 155, 2189, 0,
156, 2190, 0, 0, 0, 2376, 0, 0, 0, 0,
0, 2197, 0, 2198, 615, 2199, 0, 2200, 0, 0,
886, 0, 0, 0, 0, 976, 0, 0, 0, 977,
0, 0, 748, 798, 0, 799, 638, 639, 0, 0,
618, 962, 616, 799, 638, 639, 0, 612, 0, 635,
0, 0, 0, 636, 0, 612, 614, 0, 0, 637,
638, 639, 0, 0, 614, 0, 0, 1226, 0, 0,
0, 612, 0, 0, 0, 0, 0, 0, 0, 421,
614, 0, 2419, 2270, 615, 0, 2421, 0, 2425, 0,
0, 0, 615, 0, 0, 0, 0, 0, 0, 617,
0, 0, 0, 2436, 2437, 0, 2441, 944, 615, 0,
0, 945, 616, 0, 0, 0, 2451, 0, 946, 947,
616, 0, 1097, 0, 2455, 949, 0, 951, 0, 0,
953, 954, 955, 956, 957, 0, 616, 0, 787, 960,
0, 0, 2376, 0, 0, 0, 0, 0, 0, 640,
0, 618, 0, 0, 0, 0, 1461, 640, 0, 607,
0, 0, 787, 608, 609, 610, 611, 0, 0, 617,
2487, 0, 0, 640, 0, 0, 612, 617, 2492, 2494,
0, 0, 0, 613, 0, 614, 978, 0, 0, 834,
0, 1123, 2506, 617, 0, 962, 2508, 0, 833, 0,
0, 607, 0, 0, 0, 608, 609, 610, 611, 0,
0, 0, 0, 615, 0, 0, 0, 0, 612, 0,
0, 618, 0, 0, 0, 613, 944, 614, 886, 618,
945, 0, 0, 0, 0, 2494, 0, 946, 947, 2536,
0, 616, 962, 2540, 949, 618, -1191, 1746, 1594, -1191,
-1191, -1191, -1191, -1191, 962, 615, 0, 0, 960, 0,
0, 1746, 2552, 2536, 0, 0, 0, 833, 0, 2176,
607, 0, 0, 0, 608, 609, 610, 611, 421, 2405,
1226, 0, 0, 616, 0, 0, 0, 612, 0, 0,
0, 0, 0, 0, 613, 0, 614, 0, 617, 0,
0, 962, 962, 962, 962, 0, 962, 0, 0, 0,
0, 0, 748, 0, 0, 978, 0, 0, 0, 0,
421, 0, 0, 0, 615, 0, 0, 1030, 0, 0,
607, 1226, 0, 0, 608, 609, 610, 611, 0, 0,
617, 0, 0, 0, 0, 0, 0, 612, 0, 0,
618, 0, 616, 0, 613, 0, 614, 0, 962, 0,
962, 962, 962, 962, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 1078, 0,
1078, 0, 0, 0, 615, 0, 2488, 0, 0, 421,
0, 0, 618, 0, 0, 0, 0, 0, 0, 1097,
1097, 0, 0, 0, 0, 0, 0, 0, 0, 617,
1705, 0, 616, 0, 0, 0, 748, 0, 1715, 962,
0, 1717, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 808, 0, 0, 0, 1097, 1097, 0,
0, 962, 0, 0, 0, 0, 0, 0, 0, 421,
0, 962, 375, 0, 0, 0, 0, 0, 381, 748,
1272, 618, 0, 0, 0, 0, 1782, 0, 388, 617,
0, 390, 962, 0, 393, 748, 748, 748, 0, 748,
748, 399, 0, 748, 0, 406, 0, 0, 962, 409,
0, 0, 962, 962, 0, 0, 0, 1240, 0, 0,
0, 0, 0, 1273, 0, 0, 0, 428, 0, 1274,
0, 432, 433, 0, 0, 0, 0, 438, 439, 0,
0, 618, 0, 444, 445, 0, 447, 448, 449, 450,
0, 451, 0, 0, 0, 1275, 0, 0, 0, 0,
460, 0, 0, 0, 0, 464, 0, 466, 0, 0,
962, 469, 0, 0, 0, 473, 0, 475, 1892, 1276,
0, 1277, 0, 0, 481, 0, 0, 0, 485, 0,
0, 0, 488, 0, 490, 0, 0, 0, 0, 0,
0, 498, 500, 0, 0, 502, 503, 0, 0, 0,
748, 509, 0, 510, 1278, 0, 0, 514, 0, 1279,
0, 0, 0, 1280, 0, 0, 0, 1281, 962, 962,
1282, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 541, 0, 543, 1461, 0, 0,
607, 0, 1283, 548, 608, 609, 610, 611, 0, 0,
0, 0, 0, 0, 0, 0, 1284, 612, 0, 748,
748, 748, 1285, 0, 613, 0, 614, 0, 0, 0,
0, 0, 0, 1707, 0, 0, 607, 0, 0, 0,
608, 609, 610, 611, 0, 0, 0, 0, 0, 0,
0, 0, 0, 612, 615, 0, 0, 0, 0, 0,
613, 0, 614, 0, 0, 0, 0, 0, 1733, 1097,
0, 607, 0, 0, 0, 608, 609, 610, 611, 0,
0, 0, 616, 0, 0, 0, 0, 0, 612, 0,
615, 0, 0, 0, 0, 613, 0, 614, 0, 962,
962, 962, 962, 962, 962, 962, 962, 962, 962, 962,
962, 962, 962, 962, 962, 962, 962, 962, 616, 421,
0, 0, 0, 0, 0, 615, 0, 1969, 0, 0,
607, 0, 0, 962, 608, 609, 610, 611, 0, 617,
962, 0, 962, 0, 0, 0, 0, 612, 0, 0,
0, 0, 962, 616, 613, 421, 614, 0, 0, 0,
0, 1240, 748, 0, 0, 1097, 1097, 1097, 0, 1142,
1142, 1240, 0, 0, 0, 617, 0, 1142, 1142, 0,
0, 0, 0, 962, 615, 0, 0, 0, 0, 0,
421, 618, 607, 0, 0, 0, 608, 998, 610, 611,
0, 0, 0, 0, 1334, 1334, 1334, 1334, 1334, 612,
617, 944, 616, 0, 720, 945, 613, 0, 614, 0,
0, 0, 946, 947, 0, 0, 0, 618, 948, 949,
950, 951, 0, 0, 953, 954, 955, 956, 957, 958,
0, 959, 0, 960, 961, 0, 615, 0, 0, 421,
0, 0, 962, 1105, 1240, 0, 0, 1106, 607, 0,
1402, 0, 618, 0, 1107, 1108, 962, 0, 0, 617,
1109, 1110, 1111, 1112, 616, 0, 1113, 1114, 1115, 1116,
1117, 1118, 1119, 1120, 0, 1121, 1122, 962, 0, 0,
0, 0, 0, 748, 2158, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 421, 0, 0, 0, 0, 808, 0, 847, 0,
0, 618, 0, 0, 0, 0, 0, 1097, 0, 0,
0, 617, 944, 962, 1173, 0, 945, 607, 0, 0,
0, 0, 0, 946, 947, 0, 0, 0, 2192, 948,
949, 950, 951, 0, 0, 953, 954, 955, 956, 957,
958, 0, 959, 0, 960, 961, 0, 0, 0, 0,
0, 0, 748, 2203, 944, 0, 0, 1236, 945, 607,
0, 962, 0, 618, 0, 946, 947, 0, 0, 0,
0, 948, 949, 950, 951, 0, 0, 953, 954, 955,
956, 957, 958, 0, 959, 0, 960, 961, 0, 0,
0, 0, 0, 944, 962, 0, 1237, 945, 607, 0,
0, 962, 0, 1892, 946, 947, 0, 962, 0, 0,
948, 949, 950, 951, 0, 0, 953, 954, 955, 956,
957, 958, 0, 959, 0, 960, 961, 0, 0, 0,
962, 0, 0, 2274, 0, 0, 748, 0, 2277, 0,
0, 0, 962, 0, 0, 0, 0, 0, 0, 0,
962, 0, 0, 0, 0, 0, 0, 0, 0, 0,
962, 0, 0, 962, 0, 0, 0, 0, 944, 0,
0, 1238, 945, 607, 0, 0, 0, 0, 962, 946,
947, 0, 0, 0, 0, 948, 949, 950, 951, 0,
962, 953, 954, 955, 956, 957, 958, 0, 959, 0,
960, 961, 0, 0, 962, 0, 0, 1240, 0, 944,
962, 0, 0, 945, 607, 0, 962, 0, 0, 0,
946, 947, 0, 0, 0, 1307, 948, 949, 950, 951,
0, 1240, 953, 954, 955, 956, 957, 958, 0, 959,
944, 960, 961, 0, 945, 607, 0, 0, 0, 0,
0, 946, 947, 0, 0, 0, 1386, 948, 949, 950,
951, 0, 0, 953, 954, 955, 956, 957, 958, 0,
959, 0, 960, 961, 0, 0, 944, 0, 1394, 0,
945, 607, 0, 0, 0, 0, 0, 946, 947, 0,
0, 0, 0, 948, 949, 950, 951, 0, 0, 953,
954, 955, 956, 957, 958, 0, 959, 1097, 960, 961,
944, 1097, 1409, 0, 945, 607, 0, 0, 0, 0,
0, 946, 947, 0, 0, 0, 0, 948, 949, 950,
951, 0, 0, 953, 954, 955, 956, 957, 958, 0,
959, 944, 960, 961, 962, 945, 607, 0, 748, 748,
0, 0, 946, 947, 0, 0, 0, 1421, 948, 949,
950, 951, 0, 0, 953, 954, 955, 956, 957, 958,
0, 959, 0, 960, 961, 0, 0, 0, 0, 0,
0, 0, 1097, 1097, 1097, 1097, 0, 0, 962, 0,
2158, 0, 0, 0, 0, 0, 0, 0, 0, 0,
748, 944, 0, 1291, 0, 945, 607, 0, 962, 0,
962, 0, 946, 947, 962, 0, 0, 1424, 948, 949,
950, 951, 0, 0, 953, 954, 955, 956, 957, 958,
0, 959, 0, 960, 961, 0, 0, 962, 0, 0,
962, 0, 0, 0, 1097, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 1123, 0, 0, 0, 0, 0, 0, 1097,
1097, 0, 1097, 0, 0, 0, 0, 0, 0, 2158,
0, 944, 0, 0, 0, 945, 607, 0, 0, 0,
0, 0, 946, 947, 0, 0, 0, 1425, 948, 949,
950, 951, 0, 1371, 953, 954, 955, 956, 957, 958,
0, 959, 0, 960, 961, 0, 944, 0, 0, 0,
945, 607, 1097, 0, 0, 0, 0, 946, 947, 0,
0, 0, 1460, 948, 949, 950, 951, 0, 962, 953,
954, 955, 956, 957, 958, 0, 959, 962, 960, 961,
944, 962, 962, 0, 945, 607, 0, 0, 0, 962,
0, 946, 947, 0, 0, 0, 1507, 948, 949, 950,
951, 0, 0, 953, 954, 955, 956, 957, 958, 0,
959, 0, 960, 961, 0, 0, 0, 0, 0, 0,
962, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 962,
0, 944, 0, 0, 962, 945, 607, 0, 0, 0,
0, 0, 946, 947, 962, 962, 0, 1508, 948, 949,
950, 951, 0, 0, 953, 954, 955, 956, 957, 958,
0, 959, 0, 960, 961, 0, 0, 0, 0, 0,
0, 0, 944, 0, 0, 962, 945, 607, 0, 0,
0, 0, 0, 946, 947, 962, 962, 0, 1641, 948,
949, 950, 951, 0, 0, 953, 954, 955, 956, 957,
958, 0, 959, 944, 960, 961, 0, 945, 607, 0,
0, 0, 0, 0, 946, 947, 0, 0, 0, 1912,
948, 949, 950, 951, 0, 0, 953, 954, 955, 956,
957, 958, 0, 959, 0, 960, 961, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 962, 0,
962, 0, 0, 0, 0, 0, 0, 0, 944, 962,
1709, 0, 945, 607, 962, 0, 0, 962, 0, 946,
947, 0, 0, 0, 1581, 948, 949, 950, 951, 0,
962, 953, 954, 955, 956, 957, 958, 0, 959, 944,
960, 961, 0, 945, 607, 0, 0, 0, 0, 0,
946, 947, 0, 0, 0, 1950, 948, 949, 950, 951,
0, 0, 953, 954, 955, 956, 957, 958, 0, 959,
0, 960, 961, 0, 0, 962, 0, 0, 0, 0,
0, 962, 0, 0, 944, 0, 1968, 962, 945, 607,
0, 0, 0, 0, 0, 946, 947, 0, 0, 0,
0, 948, 949, 950, 951, 0, 962, 953, 954, 955,
956, 957, 958, 0, 959, 944, 960, 961, 0, 945,
607, 0, 0, 0, 0, 0, 946, 947, 0, 0,
0, 2000, 948, 949, 950, 951, 0, 0, 953, 954,
955, 956, 957, 958, 0, 959, 0, 960, 961, 962,
0, 962, 0, 0, 0, 962, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 962, 962, 0, 0,
0, 962, 944, 0, 2141, 0, 945, 607, 0, 0,
0, 962, 0, 946, 947, 962, 0, 0, 0, 948,
949, 950, 951, 0, 0, 953, 954, 955, 956, 957,
958, 0, 959, 0, 960, 961, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 962, 0, 0,
0, 0, 962, 0, 962, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 962, 0, 962, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 377,
378, 379, 380, 0, 382, 0, 383, 0, 385, 386,
0, 387, 0, 0, 0, 389, 962, 391, 392, 0,
962, 394, 395, 396, 0, 398, 0, 400, 401, 0,
0, 408, 962, 0, 0, 0, 411, 412, 413, 414,
415, 416, 417, 418, 0, 419, 420, 0, 0, 425,
426, 427, 0, 429, 0, 431, 0, 0, 434, 435,
0, 0, 0, 0, 0, 0, 442, 443, 0, 0,
446, 0, 0, 0, 0, 0, 0, 452, 0, 454,
0, 455, 456, 0, 0, 0, 461, 462, 463, 0,
0, 465, 0, 0, 467, 468, 0, 470, 471, 472,
0, 0, 0, 0, 477, 478, 0, 0, 480, 0,
482, 483, 484, 0, 486, 487, 0, 0, 489, 0,
491, 492, 493, 494, 495, 496, 0, 0, 0, 0,
0, 0, 504, 505, 506, 0, 0, 0, 0, 511,
512, 513, 0, 515, 516, 517, 518, 519, 520, 521,
522, 523, 524, 525, 526, 527, 528, 529, 530, 531,
532, 533, 534, 535, 536, 537, 538, 539, 540, 0,
542, 0, 544, 0, 545, 0, 546, 547, 0, 549,
550, 551, 552, 553, 554, 555, 556, 944, 0, 2156,
9, 945, 607, 0, 0, 0, 0, 10, 946, 947,
0, 0, 0, 0, 948, 949, 950, 951, 0, 0,
953, 954, 955, 956, 957, 958, 0, 959, 0, 960,
961, 0, 0, 0, 0, 0, 0, 11, 12, 13,
14, 0, 15, 16, 17, 18, 19, 20, 0, 634,
21, 22, 647, 0, 650, 23, 24, 25, 0, 26,
27, 28, 29, 30, 31, 0, 32, 33, 34, 35,
36, 37, 0, 38, 39, 40, 41, 42, 43, 0,
0, 44, 45, 46, 47, 48, 0, 0, 49, 50,
51, 52, 53, 54, 55, 56, 57, 58, 59, 60,
61, 62, 63, 64, 65, 66, 67, 68, 69, 70,
0, 71, 0, 72, 73, 0, 74, 75, 76, 0,
0, 77, 0, 0, 78, 79, 0, 80, 81, 82,
83, 0, 84, 85, 86, 87, 88, 89, 90, 91,
92, 0, 0, 0, 0, 0, 93, 94, 95, 96,
0, 0, 0, 0, 97, 0, 0, 98, 99, 0,
0, 100, 101, 0, 102, 0, 0, 0, 103, 0,
104, 0, 105, 0, 0, 0, 106, 107, 108, 109,
110, 111, 112, 113, 114, 115, 0, 116, 117, 118,
0, 119, 0, 120, 121, 0, 122, 0, 123, 124,
125, 126, 0, 0, 127, 128, 129, 0, 130, 131,
132, 0, 133, 134, 135, 0, 136, 0, 137, 138,
139, 140, 141, 0, 142, 0, 143, 144, 0, 0,
145, 146, 147, 0, 0, 148, 149, 0, 150, 151,
0, 152, 153, 0, 0, 0, 154, 155, 0, 0,
156, 0, 0, 157, 0, 0, 0, 158, 159, 0,
0, 160, 161, 162, 0, 163, 164, 165, 166, 167,
168, 169, 170, 171, 172, 173, 0, 174, 0, 0,
175, 0, 0, 0, 176, 177, 178, 179, 180, 0,
181, 182, 0, 0, 183, 184, 185, 186, 0, 0,
0, 0, 187, 188, 189, 190, 191, 192, 0, 0,
0, 0, 0, 0, 0, 193, 0, 0, 194, 195,
196, 197, 198, 0, 0, 0, 199, 200, 201, 202,
203, 204, 944, 205, 206, 2232, 945, 607, 207, 0,
0, 0, 0, 946, 947, 0, 0, 0, 0, 948,
949, 950, 951, 0, 0, 953, 954, 955, 956, 957,
958, 0, 959, 0, 960, 961, 0, 0, 0, 0,
0, 0, 944, 0, 0, 0, 945, 607, 0, 0,
0, 0, 0, 946, 947, 0, 0, 0, 2244, 948,
949, 950, 951, 934, 935, 953, 954, 955, 956, 957,
958, 0, 959, 944, 960, 961, 0, 945, 607, 0,
0, 0, 0, 0, 946, 947, 0, 0, 0, 2252,
948, 949, 950, 951, 0, 0, 953, 954, 955, 956,
957, 958, 0, 959, 944, 960, 961, 0, 945, 607,
0, 0, 0, 0, 0, 946, 947, 0, 0, 0,
2267, 948, 949, 950, 951, 0, 0, 953, 954, 955,
956, 957, 958, 0, 959, 944, 960, 961, 2278, 945,
607, 0, 0, 0, 0, 0, 946, 947, 0, 0,
0, 0, 948, 949, 950, 951, 0, 0, 953, 954,
955, 956, 957, 958, 0, 959, 944, 960, 961, 0,
945, 607, 0, 0, 0, 0, 0, 946, 947, 0,
0, 0, 2282, 948, 949, 950, 951, 0, 0, 953,
954, 955, 956, 957, 958, 0, 959, 944, 960, 961,
0, 945, 607, 0, 0, 0, 0, 0, 946, 947,
0, 0, 0, 2341, 948, 949, 950, 951, 0, 0,
953, 954, 955, 956, 957, 958, 0, 959, 944, 960,
961, 0, 945, 607, 0, 0, 0, 0, 0, 946,
947, 0, 0, 0, 2342, 948, 949, 950, 951, 0,
0, 953, 954, 955, 956, 957, 958, 0, 959, 944,
960, 961, 2366, 945, 607, 0, 0, 0, 0, 0,
946, 947, 0, 0, 0, 0, 948, 949, 950, 951,
0, 0, 953, 954, 955, 956, 957, 958, 0, 959,
944, 960, 961, 0, 945, 607, 0, 0, 0, 0,
0, 946, 947, 0, 0, 0, 2373, 948, 949, 950,
951, 0, 0, 953, 954, 955, 956, 957, 958, 0,
959, 944, 960, 961, 2390, 945, 607, 0, 0, 0,
0, 0, 946, 947, 0, 0, 0, 0, 948, 949,
950, 951, 0, 0, 953, 954, 955, 956, 957, 958,
0, 959, 944, 960, 961, 2408, 945, 607, 0, 0,
0, 0, 0, 946, 947, 0, 0, 0, 0, 948,
949, 950, 951, 0, 0, 953, 954, 955, 956, 957,
958, 0, 959, 944, 960, 961, 0, 945, 607, 0,
0, 0, 0, 0, 946, 947, 0, 0, 0, 2414,
948, 949, 950, 951, 0, 0, 953, 954, 955, 956,
957, 958, 0, 959, 944, 960, 961, 2462, 945, 607,
0, 0, 0, 0, 0, 946, 947, 0, 0, 0,
0, 948, 949, 950, 951, 0, 0, 953, 954, 955,
956, 957, 958, 0, 959, 944, 960, 961, 0, 945,
607, 0, 0, 0, 0, 0, 946, 947, 0, 0,
0, 2464, 948, 949, 950, 951, 0, 0, 953, 954,
955, 956, 957, 958, 0, 959, 944, 960, 961, 0,
945, 607, 0, 0, 0, 0, 0, 946, 947, 0,
0, 0, 2475, 948, 949, 950, 951, 0, 0, 953,
954, 955, 956, 957, 958, 0, 959, 944, 960, 961,
2476, 945, 607, 0, 0, 0, 0, 0, 946, 947,
0, 0, 0, 0, 948, 949, 950, 951, 0, 0,
953, 954, 955, 956, 957, 958, 0, 959, 944, 960,
961, 2480, 945, 607, 0, 0, 0, 0, 0, 946,
947, 0, 0, 0, 0, 948, 949, 950, 951, 0,
0, 953, 954, 955, 956, 957, 958, 0, 959, 944,
960, 961, 0, 945, 607, 0, 0, 0, 0, 0,
946, 947, 0, 0, 0, 2485, 948, 949, 950, 951,
0, 0, 953, 954, 955, 956, 957, 958, 0, 959,
944, 960, 961, 0, 945, 607, 0, 0, 0, 0,
0, 946, 947, 0, 0, 0, 2513, 948, 949, 950,
951, 0, 0, 953, 954, 955, 956, 957, 958, 0,
959, 944, 960, 961, 2527, 945, 607, 0, 0, 0,
0, 0, 946, 947, 0, 0, 0, 0, 948, 949,
950, 951, 0, 0, 953, 954, 955, 956, 957, 958,
0, 959, 0, 960, 961, 944, 0, 2546, 0, 945,
607, 0, 0, 0, 0, 0, 946, 947, 0, 0,
0, 0, 948, 949, 950, 951, 0, 0, 953, 954,
955, 956, 957, 958, 0, 959, 944, 960, 961, 0,
945, 607, 0, 0, 0, 0, 0, 946, 947, 0,
0, 0, 0, 948, 949, 950, 951, 0, 0, 953,
954, 955, 956, 957, 958, 0, 959, 0, 960, 961
};
static const yytype_int16 yycheck[] =
{
50, 486, 378, 483, 493, 494, 495, 496, 392, 763,
887, 375, 541, 630, 887, 750, 1448, 1024, 918, 1131,
888, 656, 401, 388, 62, 63, 968, 634, 256, 1328,
1486, 69, 411, 261, 413, 1590, 209, 1620, 2005, 418,
419, 420, 472, 1596, 467, 1299, 998, 426, 1607, 1482,
429, 877, 431, 1844, 1064, 1846, 63, 430, 1506, 743,
98, 1299, 76, 1965, 480, 974, 2071, 258, 118, 433,
261, 262, 122, 1596, 845, 1147, 7, 0, 1, 655,
656, 1518, 477, 8, 89, 99, 450, 1361, 845, 1616,
1518, 1518, 468, 94, 1621, 1898, 1899, 1518, 388, 1518,
464, 1518, 116, 1518, 2181, 469, 41, 1662, 8, 473,
609, 475, 1893, 175, 7, 182, 7, 122, 513, 116,
20, 5, 71, 15, 488, 645, 182, 1698, 1699, 1700,
144, 191, 673, 8, 5, 47, 500, 169, 502, 15,
5, 21, 7, 1020, 191, 509, 129, 1020, 8, 1159,
155, 116, 406, 967, 968, 8, 655, 656, 878, 8,
20, 15, 8, 15, 5, 1172, 1043, 20, 9, 129,
3, 20, 129, 129, 58, 8, 208, 23, 8, 5,
185, 15, 2389, 166, 904, 116, 224, 15, 8, 8,
20, 37, 8, 15, 21, 21, 37, 8, 23, 1516,
20, 1518, 86, 1520, 1516, 387, 1518, 637, 1520, 574,
1522, 641, 37, 218, 15, 172, 116, 129, 648, 584,
585, 586, 587, 116, 266, 116, 480, 150, 288, 230,
8, 37, 8, 858, 859, 282, 861, 231, 232, 299,
8, 8, 126, 237, 472, 287, 1545, 252, 315, 129,
282, 318, 647, 137, 129, 650, 116, 149, 129, 208,
257, 323, 318, 116, 129, 177, 8, 116, 809, 8,
1841, 2478, 2349, 15, 209, 129, 191, 129, 763, 194,
800, 165, 116, 284, 1184, 1516, 116, 1518, 1516, 1520,
1518, 1522, 1520, 228, 295, 129, 116, 116, 588, 5,
116, 129, 129, 129, 129, 116, 64, 129, 724, 674,
128, 2114, 2115, 692, 1897, 3, 15, 18, 8, 2100,
15, 149, 1434, 129, 8, 26, 257, 8, 129, 254,
18, 37, 697, 818, 257, 373, 374, 1896, 116, 157,
116, 379, 380, 381, 382, 8, 384, 385, 116, 116,
388, 8, 390, 391, 392, 393, 696, 257, 396, 1597,
1598, 399, 969, 401, 257, 1639, 257, 1894, 406, 799,
246, 409, 712, 411, 258, 413, 1813, 116, 751, 417,
418, 419, 420, 2285, 1293, 1813, 1813, 129, 426, 1845,
428, 429, 1813, 431, 1813, 811, 1813, 257, 1813, 437,
438, 1972, 1086, 798, 257, 800, 444, 445, 257, 637,
417, 449, 1183, 641, 1366, 1367, 1368, 1171, 456, 1426,
648, 459, 998, 257, 1333, 1182, 116, 257, 64, 794,
129, 8, 116, 471, 129, 116, 474, 257, 257, 489,
1447, 257, 480, 481, 482, 483, 257, 485, 486, 147,
148, 633, 8, 116, 492, 493, 494, 495, 496, 116,
498, 1078, 982, 501, 984, 503, 504, 840, 1103, 507,
15, 991, 510, 1483, 839, 15, 514, 842, 1292, 257,
2051, 257, 180, 1800, 15, 16, 17, 8, 1800, 257,
257, 8, 915, 129, 544, 211, 1813, 1406, 548, 998,
5, 1813, 1819, 843, 9, 543, 2473, 1819, 690, 2514,
2515, 1823, 191, 149, 854, 1587, 1588, 92, 257, 569,
7, 8, 560, 23, 15, 241, 576, 1103, 2111, 208,
568, 871, 37, 571, 572, 573, 574, 37, 1837, 116,
2093, 579, 580, 2102, 244, 583, 584, 585, 586, 587,
2006, 565, 566, 591, 592, 985, 986, 987, 988, 989,
116, 2463, 1995, 577, 2135, 905, 2014, 257, 8, 1800,
2093, 799, 1800, 257, 149, 148, 257, 251, 769, 919,
8, 128, 1813, 8, 129, 1813, 759, 8, 1819, 16,
17, 1819, 1823, 2384, 257, 116, 147, 148, 129, 116,
257, 2569, 2570, 282, 1103, 315, 285, 180, 95, 37,
157, 257, 37, 2531, 2582, 665, 37, 2519, 149, 657,
658, 659, 660, 661, 662, 663, 201, 2545, 666, 180,
330, 1151, 3, 683, 1888, 8, 674, 124, 15, 1893,
350, 3, 5, 129, 41, 345, 346, 347, 21, 5,
1888, 63, 15, 9, 692, 26, 68, 695, 183, 697,
16, 17, 8, 149, 26, 92, 191, 1007, 3, 1546,
217, 1306, 1012, 1546, 71, 2258, 8, 5, 90, 91,
257, 37, 720, 208, 3, 679, 21, 15, 191, 21,
1642, 1643, 1644, 743, 1448, 1449, 15, 1432, 1524, 1525,
1526, 257, 1528, 1529, 43, 208, 8, 745, 195, 747,
760, 8, 750, 1053, 8, 202, 8, 8, 15, 21,
8, 5, 149, 7, 774, 763, 1635, 21, 67, 21,
1306, 781, 144, 21, 916, 773, 257, 8, 135, 8,
257, 8, 154, 82, 782, 1427, 784, 1429, 87, 88,
21, 789, 21, 791, 21, 94, 794, 985, 986, 987,
988, 989, 8, 314, 315, 1674, 8, 318, 319, 807,
8, 8, 169, 3, 201, 21, 8, 2348, 452, 282,
818, 963, 285, 21, 21, 15, 824, 290, 200, 21,
1366, 1367, 1368, 8, 191, 298, 8, 847, 256, 7,
8, 839, 3, 261, 842, 2360, 21, 1306, 8, 1308,
848, 208, 209, 487, 15, 338, 8, 7, 341, 342,
343, 21, 8, 497, 221, 15, 223, 224, 2399, 226,
880, 354, 229, 1353, 1354, 1355, 1356, 1357, 5, 889,
890, 891, 9, 1415, 894, 1417, 2100, 8, 8, 16,
17, 8, 8, 1035, 2310, 8, 23, 895, 896, 8,
21, 21, 856, 1045, 21, 21, 860, 1366, 1367, 1368,
37, 865, 21, 911, 868, 869, 550, 551, 552, 553,
554, 15, 5, 897, 934, 282, 9, 10, 8, 228,
8, 8, 1265, 16, 17, 933, 7, 8, 912, 22,
23, 24, 25, 26, 21, 28, 29, 30, 31, 32,
33, 8, 35, 8, 37, 38, 8, 16, 17, 8,
259, 8, 21, 320, 21, 322, 2382, 8, 8, 21,
924, 1296, 926, 1273, 21, 609, 610, 611, 7, 613,
21, 1883, 1884, 1885, 1886, 1887, 620, 16, 17, 2381,
5, 1291, 8, 7, 9, 8, 8, 2256, 3, 8,
634, 16, 17, 1840, 303, 21, 1342, 1017, 21, 21,
15, 1871, 22, 1850, 24, 15, 434, 1850, 1016, 8,
1848, 1849, 37, 33, 1022, 35, 8, 1722, 1856, 1857,
1028, 8, 21, 407, 1748, 8, 8, 8, 8, 21,
8, 8, 676, 1041, 21, 463, 8, 8, 1917, 21,
1386, 21, 470, 21, 472, 2471, 8, 691, 2130, 21,
21, 8, 8, 1399, 1933, 8, 84, 1634, 1066, 21,
1939, 3, 1941, 1071, 21, 21, 1086, 2469, 21, 3,
8, 8, 8, 15, 1094, 719, 1425, 8, 8, 1087,
8, 15, 726, 21, 21, 21, 1933, 8, 732, 733,
1933, 21, 1939, 21, 1102, 8, 1642, 1643, 1644, 1883,
1884, 1885, 1886, 1887, 8, 8, 3, 8, 21, 129,
1420, 8, 8, 7, 8, 5, 8, 21, 1138, 9,
1844, 8, 1846, 8, 1458, 21, 16, 17, 7, 21,
8, 21, 15, 23, 778, 519, 21, 521, 158, 159,
149, 161, 162, 21, 528, 529, 530, 37, 15, 8,
534, 535, 536, 537, 8, 539, 540, 351, 352, 256,
15, 1181, 21, 191, 261, 15, 5, 21, 8, 15,
9, 1505, 192, 1642, 1643, 1644, 149, 16, 17, 7,
208, 21, 8, 22, 23, 15, 25, 8, 1340, 28,
29, 30, 31, 32, 1346, 21, 35, 8, 37, 38,
21, 15, 8, 15, 1224, 15, 8, 851, 852, 637,
21, 316, 317, 641, 234, 21, 1236, 1237, 1238, 21,
648, 22, 8, 24, 84, 653, 15, 247, 15, 1193,
15, 8, 33, 8, 35, 1199, 8, 265, 1638, 1203,
1260, 1205, 1206, 1207, 21, 1209, 21, 1211, 15, 21,
15, 44, 348, 349, 282, 8, 8, 285, 1266, 1267,
1412, 289, 290, 1762, 15, 1764, 1765, 8, 21, 21,
298, 299, 8, 8, 16, 17, 304, 1776, 8, 37,
21, 15, 1290, 8, 8, 2367, 21, 1786, 1296, 1788,
124, 21, 1300, 15, 87, 15, 21, 21, 1597, 1598,
944, 945, 946, 947, 948, 949, 950, 951, 952, 953,
954, 955, 956, 957, 958, 959, 960, 961, 962, 993,
994, 5, 15, 8, 15, 969, 119, 2304, 1915, 8,
974, 191, 16, 17, 8, 1684, 21, 981, 22, 983,
24, 1651, 21, 8, 2116, 2117, 2118, 21, 208, 33,
143, 35, 145, 37, 998, 8, 21, 158, 159, 2206,
161, 162, 8, 1371, 8, 8, 8, 15, 21, 8,
15, 799, 247, 248, 2253, 21, 8, 21, 21, 21,
1024, 15, 21, 2230, 8, 178, 1030, 2230, 15, 21,
183, 192, 1544, 15, 187, 8, 15, 21, 191, 2278,
8, 194, 1046, 1713, 15, 265, 1414, 1415, 21, 1417,
1642, 1643, 1644, 21, 15, 16, 17, 1425, 8, 1427,
15, 1429, 282, 216, 1432, 285, 27, 15, 812, 289,
15, 21, 1922, 234, 8, 36, 1400, 230, 8, 299,
1638, 8, 8, 236, 304, 7, 247, 21, 876, 877,
15, 21, 15, 8, 21, 21, 1464, 8, 59, 887,
8, 1481, 15, 64, 124, 1473, 21, 2565, 2566, 15,
21, 1479, 5, 21, 15, 159, 9, 1629, 162, 8,
1500, 1489, 1502, 16, 17, 2446, 2447, 1131, 21, 239,
23, 92, 21, 203, 204, 205, 206, 207, 1506, 3,
246, 1653, 866, 867, 37, 1149, 246, 1527, 15, 21,
26, 1475, 8, 1665, 5, 7, 7, 1669, 1538, 10,
15, 240, 15, 14, 15, 16, 17, 15, 1172, 1173,
1174, 8, 1552, 15, 8, 2512, 27, 1557, 5, 15,
15, 26, 9, 34, 1564, 36, 175, 149, 149, 16,
17, 8, 1572, 15, 21, 8, 23, 985, 986, 987,
988, 989, 1582, 247, 1584, 993, 994, 5, 8, 1577,
37, 15, 10, 64, 8, 8, 14, 15, 16, 17,
15, 7, 2306, 62, 15, 15, 8, 8, 1934, 27,
287, 15, 1020, 21, 8, 1239, 34, 5, 36, 1607,
201, 92, 314, 1937, 8, 8, 213, 15, 16, 17,
8, 8, 1620, 15, 9, 1043, 64, 2204, 129, 27,
21, 305, 306, 307, 9, 8, 64, 8, 36, 8,
67, 1639, 37, 15, 1642, 1643, 1644, 15, 129, 15,
8, 15, 15, 15, 1652, 15, 15, 8, 129, 1293,
7, 15, 2006, 1081, 92, 26, 64, 2381, 149, 2383,
2384, 1305, 7, 21, 18, 21, 21, 26, 5, 15,
1054, 37, 9, 10, 7, 7, 1684, 14, 15, 16,
17, 1065, 8, 26, 92, 15, 15, 8, 63, 1333,
27, 129, 8, 68, 21, 15, 1704, 34, 21, 36,
15, 1345, 15, 15, 15, 15, 8, 21, 15, 5,
201, 149, 21, 62, 1722, 90, 91, 15, 15, 2443,
21, 129, 8, 7, 15, 63, 8, 64, 166, 8,
68, 2181, 8, 8, 15, 255, 7, 166, 15, 239,
208, 149, 16, 21, 2468, 2469, 15, 15, 1756, 1757,
1394, 1395, 90, 91, 15, 92, 21, 8, 7, 191,
15, 330, 15, 201, 7, 1409, 315, 331, 15, 144,
15, 15, 1416, 1781, 1158, 15, 15, 15, 15, 154,
15, 15, 1426, 15, 15, 15, 124, 15, 1432, 15,
1434, 15, 129, 201, 246, 246, 246, 2521, 5, 246,
246, 15, 8, 1447, 15, 21, 144, 8, 1192, 21,
7, 21, 149, 21, 1198, 8, 154, 1461, 1202, 21,
1204, 26, 1842, 15, 1208, 200, 1210, 10, 1472, 15,
21, 14, 15, 16, 17, 1855, 2295, 2296, 173, 1859,
8, 1485, 15, 15, 27, 255, 1490, 8, 1492, 5,
7, 34, 21, 36, 10, 15, 231, 15, 14, 15,
16, 17, 200, 5, 201, 7, 208, 71, 10, 244,
18, 27, 14, 15, 16, 17, 8, 15, 34, 15,
36, 64, 15, 7, 15, 27, 15, 21, 1896, 1897,
1898, 1899, 34, 5, 36, 233, 21, 9, 21, 21,
21, 1909, 15, 21, 16, 17, 244, 15, 64, 92,
22, 23, 15, 25, 15, 21, 28, 29, 30, 31,
32, 21, 64, 8, 15, 37, 2381, 2382, 1936, 2275,
5, 15, 1952, 1361, 20, 9, 92, 26, 21, 2091,
21, 21, 21, 21, 15, 21, 129, 15, 1592, 2101,
92, 5, 8, 7, 1974, 9, 10, 26, 21, 26,
26, 21, 16, 17, 8, 7, 149, 21, 22, 23,
24, 25, 21, 129, 28, 29, 30, 31, 32, 33,
15, 35, 1990, 37, 38, 26, 1994, 129, 1996, 1633,
1634, 1635, 8, 149, 254, 15, 21, 21, 2006, 8,
2020, 15, 132, 21, 7, 2013, 2014, 149, 7, 2029,
166, 21, 353, 21, 37, 15, 7, 15, 201, 7,
1664, 15, 255, 1667, 21, 434, 21, 2047, 15, 15,
15, 1675, 15, 15, 15, 15, 15, 1465, 1422, 15,
7, 15, 8, 21, 8, 201, 8, 7, 21, 8,
7, 21, 45, 46, 463, 48, 49, 8, 7, 201,
53, 470, 7, 1707, 352, 1709, 21, 15, 61, 478,
329, 78, 8, 66, 7, 7, 69, 21, 351, 17,
1508, 15, 21, 128, 77, 15, 79, 1471, 81, 15,
15, 8, 15, 17, 2102, 7, 1524, 1525, 1526, 7,
1528, 1529, 15, 2111, 1532, 2113, 2114, 2115, 2116, 2117,
2118, 104, 7, 15, 16, 17, 896, 222, 1546, 1267,
1992, 1868, 115, 2143, 1582, 27, 1090, 1511, 582, 1185,
1514, 1586, 2253, 1517, 36, 1519, 1869, 1521, 593, 1523,
1298, 590, 710, 933, 1616, 2258, 139, 2113, 1888, 933,
2093, 1896, 1489, 1154, 1723, 1473, 5, 2163, 1990, 152,
2182, 10, 64, 1026, 1046, 14, 15, 16, 17, 1409,
1388, 1088, 1695, 2181, 2182, 1697, 75, 170, 27, 2571,
589, 1917, 1939, 176, 711, 34, 1395, 36, 246, 246,
92, 184, 792, 186, 246, 188, 463, 190, 246, 1432,
1035, 1635, 1638, 2223, 197, 1071, 998, 1851, 838, 1102,
1638, 1639, 657, 1174, 1858, 64, 659, 2305, 1862, 1863,
2240, 214, 215, 5, 660, 1411, 1870, 129, 10, 1413,
2142, 2519, 14, 15, 16, 17, 661, 2367, 1994, 232,
1016, 1014, 662, 92, 653, 27, 239, 149, 807, 2491,
2258, 1087, 34, 1041, 36, 1936, 2426, 1028, 40, 1976,
253, 442, 788, 256, 2380, 2521, 2547, 1911, 2569, 2567,
1698, 1699, 1700, 1917, 2313, 1997, 1487, 1748, 666, 504,
129, 1449, 64, 761, 382, 1941, 1538, 2295, 2296, 415,
2001, 2285, 1800, 1775, 1819, 1823, 1780, 2305, 1942, 201,
149, 1813, 2027, 2026, 1224, 2336, 878, 1951, 2047, 2353,
92, 5, 2206, 1557, 1552, 1564, 10, 1572, 2240, -1,
14, 15, 16, 17, 1968, 1969, -1, -1, -1, -1,
-1, -1, -1, 27, -1, -1, 745, -1, -1, -1,
34, -1, 36, -1, -1, -1, -1, 129, -1, -1,
-1, -1, 201, 1997, 763, -1, -1, -1, -1, -1,
-1, 2005, -1, 2371, -1, -1, -1, 149, 777, -1,
64, 2015, -1, 2381, 2382, 2395, 785, 786, -1, -1,
-1, 790, -1, -1, 2404, -1, -1, 2031, 1772, 2033,
2410, -1, 2412, 1777, -1, -1, -1, -1, 92, -1,
-1, -1, -1, -1, -1, -1, 1790, 2415, -1, 818,
-1, -1, 1840, 1841, -1, -1, -1, 826, -1, 201,
-1, -1, 1850, -1, -1, -1, 2446, 2447, 1812, 45,
46, -1, 48, 49, 1818, 129, -1, 53, 1822, -1,
-1, -1, -1, -1, -1, 61, 855, -1, 857, -1,
66, -1, -1, 69, -1, 149, -1, -1, -1, -1,
-1, 77, -1, 79, -1, 81, -1, 876, 877, -1,
-1, -1, -1, -1, -1, -1, -1, -1, 887, 888,
-1, 2125, -1, 2491, 5, 2493, 2130, -1, 104, 10,
-1, -1, -1, 14, 15, 16, 17, 2141, 2142, 115,
-1, -1, 2146, -1, -1, 1933, 27, 201, -1, -1,
-1, 1939, 2156, 34, -1, 36, -1, -1, 2162, -1,
-1, -1, -1, 139, -1, -1, -1, -1, -1, 2549,
-1, -1, -1, -1, 2554, -1, 152, -1, -1, -1,
-1, -1, -1, 64, 1972, -1, -1, 2567, -1, 2569,
2570, -1, -1, -1, 170, -1, -1, -1, 967, 968,
176, 2205, 2582, -1, -1, -1, -1, -1, 184, -1,
186, 92, 188, -1, 190, -1, -1, -1, -1, -1,
-1, 197, -1, -1, 993, 994, -1, -1, 2232, -1,
-1, -1, -1, -1, -1, 5, -1, -1, 214, 215,
10, -1, -1, 2247, 14, 15, 16, 17, 129, 2253,
-1, 1020, -1, -1, -1, -1, 232, 27, -1, 2003,
-1, -1, -1, 2051, 34, -1, 36, -1, 149, -1,
-1, -1, -1, 2017, 1043, -1, -1, 253, 2022, -1,
256, 2025, -1, -1, -1, 2289, -1, -1, -1, -1,
-1, 2035, -1, 2037, 64, 2039, -1, 2041, -1, -1,
2304, -1, -1, -1, -1, 5, -1, -1, -1, 9,
-1, -1, 1081, 5, -1, 15, 16, 17, -1, -1,
201, 621, 92, 15, 16, 17, -1, 27, -1, 5,
-1, -1, -1, 9, -1, 27, 36, -1, -1, 15,
16, 17, -1, -1, 36, -1, -1, 2135, -1, -1,
-1, 27, -1, -1, -1, -1, -1, -1, -1, 129,
36, -1, 2366, 2367, 64, -1, 2370, -1, 2372, -1,
-1, -1, 64, -1, -1, -1, -1, -1, -1, 149,
-1, -1, -1, 2387, 2388, -1, 2390, 5, 64, -1,
-1, 9, 92, -1, -1, -1, 2400, -1, 16, 17,
92, -1, 1171, -1, 2408, 23, -1, 25, -1, -1,
28, 29, 30, 31, 32, -1, 92, -1, 2206, 37,
-1, -1, 2426, -1, -1, -1, -1, -1, -1, 129,
-1, 201, -1, -1, -1, -1, 7, 129, -1, 10,
-1, -1, 2230, 14, 15, 16, 17, -1, -1, 149,
2454, -1, -1, 129, -1, -1, 27, 149, 2462, 2463,
-1, -1, -1, 34, -1, 36, 166, -1, -1, 2473,
-1, 771, 2476, 149, -1, 775, 2480, -1, 7, -1,
-1, 10, -1, -1, -1, 14, 15, 16, 17, -1,
-1, -1, -1, 64, -1, -1, -1, -1, 27, -1,
-1, 201, -1, -1, -1, 34, 5, 36, 2512, 201,
9, -1, -1, -1, -1, 2519, -1, 16, 17, 2523,
-1, 92, 822, 2527, 23, 201, 25, 2531, 1297, 28,
29, 30, 31, 32, 834, 64, -1, -1, 37, -1,
-1, 2545, 2546, 2547, -1, -1, -1, 7, -1, 78,
10, -1, -1, -1, 14, 15, 16, 17, 129, 2347,
2348, -1, -1, 92, -1, -1, -1, 27, -1, -1,
-1, -1, -1, -1, 34, -1, 36, -1, 149, -1,
-1, 881, 882, 883, 884, -1, 886, -1, -1, -1,
-1, -1, 1361, -1, -1, 166, -1, -1, -1, -1,
129, -1, -1, -1, 64, -1, -1, 7, -1, -1,
10, 2399, -1, -1, 14, 15, 16, 17, -1, -1,
149, -1, -1, -1, -1, -1, -1, 27, -1, -1,
201, -1, 92, -1, 34, -1, 36, -1, 938, -1,
940, 941, 942, 943, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, 1427, -1,
1429, -1, -1, -1, 64, -1, 2454, -1, -1, 129,
-1, -1, 201, -1, -1, -1, -1, -1, -1, 1448,
1449, -1, -1, -1, -1, -1, -1, -1, -1, 149,
1459, -1, 92, -1, -1, -1, 1465, -1, 1467, 999,
-1, 1470, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, 1482, -1, -1, -1, 1486, 1487, -1,
-1, 1021, -1, -1, -1, -1, -1, -1, -1, 129,
-1, 1031, 12, -1, -1, -1, -1, -1, 18, 1508,
44, 201, -1, -1, -1, -1, 1515, -1, 28, 149,
-1, 31, 1052, -1, 34, 1524, 1525, 1526, -1, 1528,
1529, 41, -1, 1532, -1, 45, -1, -1, 1068, 49,
-1, -1, 1072, 1073, -1, -1, -1, 1546, -1, -1,
-1, -1, -1, 87, -1, -1, -1, 67, -1, 93,
-1, 71, 72, -1, -1, -1, -1, 77, 78, -1,
-1, 201, -1, 83, 84, -1, 86, 87, 88, 89,
-1, 91, -1, -1, -1, 119, -1, -1, -1, -1,
100, -1, -1, -1, -1, 105, -1, 107, -1, -1,
1130, 111, -1, -1, -1, 115, -1, 117, 1607, 143,
-1, 145, -1, -1, 124, -1, -1, -1, 128, -1,
-1, -1, 132, -1, 134, -1, -1, -1, -1, -1,
-1, 141, 142, -1, -1, 145, 146, -1, -1, -1,
1639, 151, -1, 153, 178, -1, -1, 157, -1, 183,
-1, -1, -1, 187, -1, -1, -1, 191, 1188, 1189,
194, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, 184, -1, 186, 7, -1, -1,
10, -1, 216, 193, 14, 15, 16, 17, -1, -1,
-1, -1, -1, -1, -1, -1, 230, 27, -1, 1698,
1699, 1700, 236, -1, 34, -1, 36, -1, -1, -1,
-1, -1, -1, 7, -1, -1, 10, -1, -1, -1,
14, 15, 16, 17, -1, -1, -1, -1, -1, -1,
-1, -1, -1, 27, 64, -1, -1, -1, -1, -1,
34, -1, 36, -1, -1, -1, -1, -1, 7, 1748,
-1, 10, -1, -1, -1, 14, 15, 16, 17, -1,
-1, -1, 92, -1, -1, -1, -1, -1, 27, -1,
64, -1, -1, -1, -1, 34, -1, 36, -1, 1309,
1310, 1311, 1312, 1313, 1314, 1315, 1316, 1317, 1318, 1319,
1320, 1321, 1322, 1323, 1324, 1325, 1326, 1327, 92, 129,
-1, -1, -1, -1, -1, 64, -1, 7, -1, -1,
10, -1, -1, 1343, 14, 15, 16, 17, -1, 149,
1350, -1, 1352, -1, -1, -1, -1, 27, -1, -1,
-1, -1, 1362, 92, 34, 129, 36, -1, -1, -1,
-1, 1840, 1841, -1, -1, 1844, 1845, 1846, -1, 1848,
1849, 1850, -1, -1, -1, 149, -1, 1856, 1857, -1,
-1, -1, -1, 1393, 64, -1, -1, -1, -1, -1,
129, 201, 10, -1, -1, -1, 14, 15, 16, 17,
-1, -1, -1, -1, 1883, 1884, 1885, 1886, 1887, 27,
149, 5, 92, -1, 404, 9, 34, -1, 36, -1,
-1, -1, 16, 17, -1, -1, -1, 201, 22, 23,
24, 25, -1, -1, 28, 29, 30, 31, 32, 33,
-1, 35, -1, 37, 38, -1, 64, -1, -1, 129,
-1, -1, 1462, 5, 1933, -1, -1, 9, 10, -1,
1939, -1, 201, -1, 16, 17, 1476, -1, -1, 149,
22, 23, 24, 25, 92, -1, 28, 29, 30, 31,
32, 33, 34, 35, -1, 37, 38, 1497, -1, -1,
-1, -1, -1, 1972, 1973, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, 129, -1, -1, -1, -1, 1995, -1, 508, -1,
-1, 201, -1, -1, -1, -1, -1, 2006, -1, -1,
-1, 149, 5, 1543, 7, -1, 9, 10, -1, -1,
-1, -1, -1, 16, 17, -1, -1, -1, 2027, 22,
23, 24, 25, -1, -1, 28, 29, 30, 31, 32,
33, -1, 35, -1, 37, 38, -1, -1, -1, -1,
-1, -1, 2051, 2052, 5, -1, -1, 8, 9, 10,
-1, 1591, -1, 201, -1, 16, 17, -1, -1, -1,
-1, 22, 23, 24, 25, -1, -1, 28, 29, 30,
31, 32, 33, -1, 35, -1, 37, 38, -1, -1,
-1, -1, -1, 5, 1624, -1, 8, 9, 10, -1,
-1, 1631, -1, 2102, 16, 17, -1, 1637, -1, -1,
22, 23, 24, 25, -1, -1, 28, 29, 30, 31,
32, 33, -1, 35, -1, 37, 38, -1, -1, -1,
1660, -1, -1, 2132, -1, -1, 2135, -1, 2137, -1,
-1, -1, 1672, -1, -1, -1, -1, -1, -1, -1,
1680, -1, -1, -1, -1, -1, -1, -1, -1, -1,
1690, -1, -1, 1693, -1, -1, -1, -1, 5, -1,
-1, 8, 9, 10, -1, -1, -1, -1, 1708, 16,
17, -1, -1, -1, -1, 22, 23, 24, 25, -1,
1720, 28, 29, 30, 31, 32, 33, -1, 35, -1,
37, 38, -1, -1, 1734, -1, -1, 2206, -1, 5,
1740, -1, -1, 9, 10, -1, 1746, -1, -1, -1,
16, 17, -1, -1, -1, 21, 22, 23, 24, 25,
-1, 2230, 28, 29, 30, 31, 32, 33, -1, 35,
5, 37, 38, -1, 9, 10, -1, -1, -1, -1,
-1, 16, 17, -1, -1, -1, 21, 22, 23, 24,
25, -1, -1, 28, 29, 30, 31, 32, 33, -1,
35, -1, 37, 38, -1, -1, 5, -1, 7, -1,
9, 10, -1, -1, -1, -1, -1, 16, 17, -1,
-1, -1, -1, 22, 23, 24, 25, -1, -1, 28,
29, 30, 31, 32, 33, -1, 35, 2306, 37, 38,
5, 2310, 7, -1, 9, 10, -1, -1, -1, -1,
-1, 16, 17, -1, -1, -1, -1, 22, 23, 24,
25, -1, -1, 28, 29, 30, 31, 32, 33, -1,
35, 5, 37, 38, 1874, 9, 10, -1, 2347, 2348,
-1, -1, 16, 17, -1, -1, -1, 21, 22, 23,
24, 25, -1, -1, 28, 29, 30, 31, 32, 33,
-1, 35, -1, 37, 38, -1, -1, -1, -1, -1,
-1, -1, 2381, 2382, 2383, 2384, -1, -1, 1918, -1,
2389, -1, -1, -1, -1, -1, -1, -1, -1, -1,
2399, 5, -1, 913, -1, 9, 10, -1, 1938, -1,
1940, -1, 16, 17, 1944, -1, -1, 21, 22, 23,
24, 25, -1, -1, 28, 29, 30, 31, 32, 33,
-1, 35, -1, 37, 38, -1, -1, 1967, -1, -1,
1970, -1, -1, -1, 2443, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, 1992, -1, -1, -1, -1, -1, -1, 2468,
2469, -1, 2471, -1, -1, -1, -1, -1, -1, 2478,
-1, 5, -1, -1, -1, 9, 10, -1, -1, -1,
-1, -1, 16, 17, -1, -1, -1, 21, 22, 23,
24, 25, -1, 1013, 28, 29, 30, 31, 32, 33,
-1, 35, -1, 37, 38, -1, 5, -1, -1, -1,
9, 10, 2521, -1, -1, -1, -1, 16, 17, -1,
-1, -1, 21, 22, 23, 24, 25, -1, 2068, 28,
29, 30, 31, 32, 33, -1, 35, 2077, 37, 38,
5, 2081, 2082, -1, 9, 10, -1, -1, -1, 2089,
-1, 16, 17, -1, -1, -1, 21, 22, 23, 24,
25, -1, -1, 28, 29, 30, 31, 32, 33, -1,
35, -1, 37, 38, -1, -1, -1, -1, -1, -1,
2120, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 2139,
-1, 5, -1, -1, 2144, 9, 10, -1, -1, -1,
-1, -1, 16, 17, 2154, 2155, -1, 21, 22, 23,
24, 25, -1, -1, 28, 29, 30, 31, 32, 33,
-1, 35, -1, 37, 38, -1, -1, -1, -1, -1,
-1, -1, 5, -1, -1, 2185, 9, 10, -1, -1,
-1, -1, -1, 16, 17, 2195, 2196, -1, 21, 22,
23, 24, 25, -1, -1, 28, 29, 30, 31, 32,
33, -1, 35, 5, 37, 38, -1, 9, 10, -1,
-1, -1, -1, -1, 16, 17, -1, -1, -1, 21,
22, 23, 24, 25, -1, -1, 28, 29, 30, 31,
32, 33, -1, 35, -1, 37, 38, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, 2268, -1,
2270, -1, -1, -1, -1, -1, -1, -1, 5, 2279,
7, -1, 9, 10, 2284, -1, -1, 2287, -1, 16,
17, -1, -1, -1, 1274, 22, 23, 24, 25, -1,
2300, 28, 29, 30, 31, 32, 33, -1, 35, 5,
37, 38, -1, 9, 10, -1, -1, -1, -1, -1,
16, 17, -1, -1, -1, 21, 22, 23, 24, 25,
-1, -1, 28, 29, 30, 31, 32, 33, -1, 35,
-1, 37, 38, -1, -1, 2345, -1, -1, -1, -1,
-1, 2351, -1, -1, 5, -1, 7, 2357, 9, 10,
-1, -1, -1, -1, -1, 16, 17, -1, -1, -1,
-1, 22, 23, 24, 25, -1, 2376, 28, 29, 30,
31, 32, 33, -1, 35, 5, 37, 38, -1, 9,
10, -1, -1, -1, -1, -1, 16, 17, -1, -1,
-1, 21, 22, 23, 24, 25, -1, -1, 28, 29,
30, 31, 32, 33, -1, 35, -1, 37, 38, 2419,
-1, 2421, -1, -1, -1, 2425, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, 2436, 2437, -1, -1,
-1, 2441, 5, -1, 7, -1, 9, 10, -1, -1,
-1, 2451, -1, 16, 17, 2455, -1, -1, -1, 22,
23, 24, 25, -1, -1, 28, 29, 30, 31, 32,
33, -1, 35, -1, 37, 38, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, 2487, -1, -1,
-1, -1, 2492, -1, 2494, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, 2506, -1, 2508, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, 14,
15, 16, 17, -1, 19, -1, 21, -1, 23, 24,
-1, 26, -1, -1, -1, 30, 2536, 32, 33, -1,
2540, 36, 37, 38, -1, 40, -1, 42, 43, -1,
-1, 46, 2552, -1, -1, -1, 51, 52, 53, 54,
55, 56, 57, 58, -1, 60, 61, -1, -1, 64,
65, 66, -1, 68, -1, 70, -1, -1, 73, 74,
-1, -1, -1, -1, -1, -1, 81, 82, -1, -1,
85, -1, -1, -1, -1, -1, -1, 92, -1, 94,
-1, 96, 97, -1, -1, -1, 101, 102, 103, -1,
-1, 106, -1, -1, 109, 110, -1, 112, 113, 114,
-1, -1, -1, -1, 119, 120, -1, -1, 123, -1,
125, 126, 127, -1, 129, 130, -1, -1, 133, -1,
135, 136, 137, 138, 139, 140, -1, -1, -1, -1,
-1, -1, 147, 148, 149, -1, -1, -1, -1, 154,
155, 156, -1, 158, 159, 160, 161, 162, 163, 164,
165, 166, 167, 168, 169, 170, 171, 172, 173, 174,
175, 176, 177, 178, 179, 180, 181, 182, 183, -1,
185, -1, 187, -1, 189, -1, 191, 192, -1, 194,
195, 196, 197, 198, 199, 200, 201, 5, -1, 7,
6, 9, 10, -1, -1, -1, -1, 13, 16, 17,
-1, -1, -1, -1, 22, 23, 24, 25, -1, -1,
28, 29, 30, 31, 32, 33, -1, 35, -1, 37,
38, -1, -1, -1, -1, -1, -1, 43, 44, 45,
46, -1, 48, 49, 50, 51, 52, 53, -1, 254,
56, 57, 257, -1, 259, 61, 62, 63, -1, 65,
66, 67, 68, 69, 70, -1, 72, 73, 74, 75,
76, 77, -1, 79, 80, 81, 82, 83, 84, -1,
-1, 87, 88, 89, 90, 91, -1, -1, 94, 95,
96, 97, 98, 99, 100, 101, 102, 103, 104, 105,
106, 107, 108, 109, 110, 111, 112, 113, 114, 115,
-1, 117, -1, 119, 120, -1, 122, 123, 124, -1,
-1, 127, -1, -1, 130, 131, -1, 133, 134, 135,
136, -1, 138, 139, 140, 141, 142, 143, 144, 145,
146, -1, -1, -1, -1, -1, 152, 153, 154, 155,
-1, -1, -1, -1, 160, -1, -1, 163, 164, -1,
-1, 167, 168, -1, 170, -1, -1, -1, 174, -1,
176, -1, 178, -1, -1, -1, 182, 183, 184, 185,
186, 187, 188, 189, 190, 191, -1, 193, 194, 195,
-1, 197, -1, 199, 200, -1, 202, -1, 204, 205,
206, 207, -1, -1, 210, 211, 212, -1, 214, 215,
216, -1, 218, 219, 220, -1, 222, -1, 224, 225,
226, 227, 228, -1, 230, -1, 232, 233, -1, -1,
236, 237, 238, -1, -1, 241, 242, -1, 244, 245,
-1, 247, 248, -1, -1, -1, 252, 253, -1, -1,
256, -1, -1, 259, -1, -1, -1, 263, 264, -1,
-1, 267, 268, 269, -1, 271, 272, 273, 274, 275,
276, 277, 278, 279, 280, 281, -1, 283, -1, -1,
286, -1, -1, -1, 290, 291, 292, 293, 294, -1,
296, 297, -1, -1, 300, 301, 302, 303, -1, -1,
-1, -1, 308, 309, 310, 311, 312, 313, -1, -1,
-1, -1, -1, -1, -1, 321, -1, -1, 324, 325,
326, 327, 328, -1, -1, -1, 332, 333, 334, 335,
336, 337, 5, 339, 340, 8, 9, 10, 344, -1,
-1, -1, -1, 16, 17, -1, -1, -1, -1, 22,
23, 24, 25, -1, -1, 28, 29, 30, 31, 32,
33, -1, 35, -1, 37, 38, -1, -1, -1, -1,
-1, -1, 5, -1, -1, -1, 9, 10, -1, -1,
-1, -1, -1, 16, 17, -1, -1, -1, 21, 22,
23, 24, 25, 598, 599, 28, 29, 30, 31, 32,
33, -1, 35, 5, 37, 38, -1, 9, 10, -1,
-1, -1, -1, -1, 16, 17, -1, -1, -1, 21,
22, 23, 24, 25, -1, -1, 28, 29, 30, 31,
32, 33, -1, 35, 5, 37, 38, -1, 9, 10,
-1, -1, -1, -1, -1, 16, 17, -1, -1, -1,
21, 22, 23, 24, 25, -1, -1, 28, 29, 30,
31, 32, 33, -1, 35, 5, 37, 38, 8, 9,
10, -1, -1, -1, -1, -1, 16, 17, -1, -1,
-1, -1, 22, 23, 24, 25, -1, -1, 28, 29,
30, 31, 32, 33, -1, 35, 5, 37, 38, -1,
9, 10, -1, -1, -1, -1, -1, 16, 17, -1,
-1, -1, 21, 22, 23, 24, 25, -1, -1, 28,
29, 30, 31, 32, 33, -1, 35, 5, 37, 38,
-1, 9, 10, -1, -1, -1, -1, -1, 16, 17,
-1, -1, -1, 21, 22, 23, 24, 25, -1, -1,
28, 29, 30, 31, 32, 33, -1, 35, 5, 37,
38, -1, 9, 10, -1, -1, -1, -1, -1, 16,
17, -1, -1, -1, 21, 22, 23, 24, 25, -1,
-1, 28, 29, 30, 31, 32, 33, -1, 35, 5,
37, 38, 8, 9, 10, -1, -1, -1, -1, -1,
16, 17, -1, -1, -1, -1, 22, 23, 24, 25,
-1, -1, 28, 29, 30, 31, 32, 33, -1, 35,
5, 37, 38, -1, 9, 10, -1, -1, -1, -1,
-1, 16, 17, -1, -1, -1, 21, 22, 23, 24,
25, -1, -1, 28, 29, 30, 31, 32, 33, -1,
35, 5, 37, 38, 8, 9, 10, -1, -1, -1,
-1, -1, 16, 17, -1, -1, -1, -1, 22, 23,
24, 25, -1, -1, 28, 29, 30, 31, 32, 33,
-1, 35, 5, 37, 38, 8, 9, 10, -1, -1,
-1, -1, -1, 16, 17, -1, -1, -1, -1, 22,
23, 24, 25, -1, -1, 28, 29, 30, 31, 32,
33, -1, 35, 5, 37, 38, -1, 9, 10, -1,
-1, -1, -1, -1, 16, 17, -1, -1, -1, 21,
22, 23, 24, 25, -1, -1, 28, 29, 30, 31,
32, 33, -1, 35, 5, 37, 38, 8, 9, 10,
-1, -1, -1, -1, -1, 16, 17, -1, -1, -1,
-1, 22, 23, 24, 25, -1, -1, 28, 29, 30,
31, 32, 33, -1, 35, 5, 37, 38, -1, 9,
10, -1, -1, -1, -1, -1, 16, 17, -1, -1,
-1, 21, 22, 23, 24, 25, -1, -1, 28, 29,
30, 31, 32, 33, -1, 35, 5, 37, 38, -1,
9, 10, -1, -1, -1, -1, -1, 16, 17, -1,
-1, -1, 21, 22, 23, 24, 25, -1, -1, 28,
29, 30, 31, 32, 33, -1, 35, 5, 37, 38,
8, 9, 10, -1, -1, -1, -1, -1, 16, 17,
-1, -1, -1, -1, 22, 23, 24, 25, -1, -1,
28, 29, 30, 31, 32, 33, -1, 35, 5, 37,
38, 8, 9, 10, -1, -1, -1, -1, -1, 16,
17, -1, -1, -1, -1, 22, 23, 24, 25, -1,
-1, 28, 29, 30, 31, 32, 33, -1, 35, 5,
37, 38, -1, 9, 10, -1, -1, -1, -1, -1,
16, 17, -1, -1, -1, 21, 22, 23, 24, 25,
-1, -1, 28, 29, 30, 31, 32, 33, -1, 35,
5, 37, 38, -1, 9, 10, -1, -1, -1, -1,
-1, 16, 17, -1, -1, -1, 21, 22, 23, 24,
25, -1, -1, 28, 29, 30, 31, 32, 33, -1,
35, 5, 37, 38, 8, 9, 10, -1, -1, -1,
-1, -1, 16, 17, -1, -1, -1, -1, 22, 23,
24, 25, -1, -1, 28, 29, 30, 31, 32, 33,
-1, 35, -1, 37, 38, 5, -1, 7, -1, 9,
10, -1, -1, -1, -1, -1, 16, 17, -1, -1,
-1, -1, 22, 23, 24, 25, -1, -1, 28, 29,
30, 31, 32, 33, -1, 35, 5, 37, 38, -1,
9, 10, -1, -1, -1, -1, -1, 16, 17, -1,
-1, -1, -1, 22, 23, 24, 25, -1, -1, 28,
29, 30, 31, 32, 33, -1, 35, -1, 37, 38
};
/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
symbol of state STATE-NUM. */
static const yytype_uint16 yystos[] =
{
0, 358, 0, 1, 150, 257, 359, 360, 116, 6,
13, 43, 44, 45, 46, 48, 49, 50, 51, 52,
53, 56, 57, 61, 62, 63, 65, 66, 67, 68,
69, 70, 72, 73, 74, 75, 76, 77, 79, 80,
81, 82, 83, 84, 87, 88, 89, 90, 91, 94,
95, 96, 97, 98, 99, 100, 101, 102, 103, 104,
105, 106, 107, 108, 109, 110, 111, 112, 113, 114,
115, 117, 119, 120, 122, 123, 124, 127, 130, 131,
133, 134, 135, 136, 138, 139, 140, 141, 142, 143,
144, 145, 146, 152, 153, 154, 155, 160, 163, 164,
167, 168, 170, 174, 176, 178, 182, 183, 184, 185,
186, 187, 188, 189, 190, 191, 193, 194, 195, 197,
199, 200, 202, 204, 205, 206, 207, 210, 211, 212,
214, 215, 216, 218, 219, 220, 222, 224, 225, 226,
227, 228, 230, 232, 233, 236, 237, 238, 241, 242,
244, 245, 247, 248, 252, 253, 256, 259, 263, 264,
267, 268, 269, 271, 272, 273, 274, 275, 276, 277,
278, 279, 280, 281, 283, 286, 290, 291, 292, 293,
294, 296, 297, 300, 301, 302, 303, 308, 309, 310,
311, 312, 313, 321, 324, 325, 326, 327, 328, 332,
333, 334, 335, 336, 337, 339, 340, 344, 361, 363,
366, 378, 379, 383, 384, 385, 391, 392, 393, 394,
396, 397, 399, 401, 402, 403, 404, 411, 412, 413,
414, 415, 416, 420, 421, 422, 426, 427, 465, 467,
480, 523, 524, 526, 527, 533, 534, 535, 536, 543,
544, 545, 546, 548, 551, 555, 556, 557, 558, 559,
560, 566, 567, 568, 579, 580, 581, 583, 586, 589,
594, 595, 597, 599, 601, 604, 605, 629, 630, 641,
642, 643, 644, 649, 652, 655, 658, 659, 709, 710,
711, 712, 713, 714, 715, 716, 722, 724, 726, 728,
730, 731, 732, 733, 734, 737, 739, 740, 741, 744,
745, 749, 750, 752, 753, 754, 755, 756, 757, 758,
761, 766, 771, 773, 774, 775, 776, 778, 779, 780,
781, 782, 783, 800, 803, 804, 805, 806, 812, 815,
820, 821, 822, 825, 826, 827, 828, 829, 830, 831,
832, 833, 834, 835, 836, 837, 838, 839, 844, 845,
846, 847, 848, 858, 859, 860, 862, 863, 864, 865,
866, 871, 889, 15, 490, 490, 552, 552, 552, 552,
552, 490, 552, 552, 362, 552, 552, 552, 490, 552,
490, 552, 552, 490, 552, 552, 552, 489, 552, 490,
552, 552, 7, 15, 491, 15, 490, 612, 552, 490,
375, 552, 552, 552, 552, 552, 552, 552, 552, 552,
552, 129, 368, 532, 532, 552, 552, 552, 490, 552,
368, 552, 490, 490, 552, 552, 489, 362, 490, 490,
64, 374, 552, 552, 490, 490, 552, 490, 490, 490,
490, 490, 552, 429, 552, 552, 552, 368, 466, 362,
490, 552, 552, 552, 490, 552, 490, 552, 552, 490,
552, 552, 552, 490, 362, 490, 375, 552, 552, 375,
552, 490, 552, 552, 552, 490, 552, 552, 490, 552,
490, 552, 552, 552, 552, 552, 552, 15, 490, 590,
490, 362, 490, 490, 552, 552, 552, 15, 8, 490,
490, 552, 552, 552, 490, 552, 552, 552, 552, 552,
552, 552, 552, 552, 552, 552, 552, 552, 552, 552,
552, 552, 552, 552, 552, 552, 552, 552, 552, 552,
552, 490, 552, 490, 552, 552, 552, 552, 490, 552,
552, 552, 552, 552, 552, 552, 552, 895, 895, 895,
895, 895, 895, 257, 578, 124, 233, 399, 15, 371,
578, 8, 8, 8, 8, 7, 8, 124, 363, 386,
8, 368, 400, 8, 8, 8, 8, 8, 547, 8,
547, 8, 8, 8, 8, 547, 578, 7, 218, 252,
524, 526, 535, 536, 239, 544, 544, 10, 14, 15,
16, 17, 27, 34, 36, 64, 92, 149, 201, 368,
380, 496, 497, 499, 500, 501, 502, 508, 509, 510,
511, 512, 515, 15, 552, 5, 9, 15, 16, 17,
129, 498, 500, 508, 562, 576, 577, 552, 15, 562,
552, 5, 561, 562, 577, 562, 8, 8, 8, 8,
8, 8, 8, 8, 7, 8, 8, 5, 7, 368,
639, 640, 368, 632, 491, 15, 15, 149, 479, 368,
368, 742, 743, 8, 368, 656, 657, 743, 368, 370,
368, 15, 528, 574, 23, 37, 368, 418, 419, 15,
368, 602, 368, 670, 670, 368, 653, 654, 368, 531,
428, 15, 368, 582, 149, 748, 531, 7, 474, 475,
490, 613, 614, 368, 608, 614, 15, 553, 368, 584,
585, 531, 15, 15, 531, 748, 532, 531, 531, 531,
531, 368, 531, 371, 531, 15, 423, 491, 499, 500,
15, 365, 368, 368, 650, 651, 481, 482, 483, 484,
8, 671, 738, 15, 368, 596, 368, 587, 588, 575,
15, 15, 368, 491, 15, 496, 751, 15, 15, 368,
725, 727, 8, 368, 37, 417, 15, 500, 501, 491,
15, 15, 553, 479, 491, 500, 368, 717, 5, 15,
576, 577, 491, 368, 369, 491, 575, 15, 499, 633,
634, 608, 612, 368, 600, 368, 697, 697, 15, 368,
598, 717, 496, 507, 491, 375, 15, 368, 703, 703,
703, 703, 703, 7, 496, 591, 592, 368, 593, 491,
364, 368, 491, 368, 723, 725, 368, 490, 491, 368,
468, 15, 15, 575, 368, 15, 614, 15, 614, 614,
614, 614, 786, 842, 614, 614, 614, 614, 614, 614,
786, 368, 375, 849, 850, 851, 15, 15, 375, 861,
15, 496, 496, 496, 496, 495, 496, 15, 15, 15,
15, 15, 368, 887, 15, 362, 362, 124, 5, 21,
368, 372, 373, 367, 375, 368, 368, 368, 419, 7,
375, 362, 124, 368, 368, 5, 15, 406, 407, 368,
419, 419, 419, 419, 418, 499, 417, 368, 368, 423,
430, 431, 433, 434, 552, 552, 239, 409, 496, 497,
496, 496, 496, 496, 5, 9, 16, 17, 22, 23,
24, 25, 26, 28, 29, 30, 31, 32, 33, 35,
37, 38, 380, 15, 246, 3, 15, 246, 246, 15,
505, 506, 21, 549, 574, 507, 5, 9, 166, 563,
564, 565, 576, 26, 576, 5, 9, 23, 37, 498,
575, 576, 575, 8, 15, 500, 569, 570, 15, 496,
497, 512, 571, 572, 573, 571, 582, 368, 596, 598,
600, 602, 368, 7, 375, 723, 8, 21, 634, 419,
521, 496, 240, 547, 15, 375, 15, 473, 8, 574,
7, 496, 529, 530, 531, 15, 368, 473, 419, 478,
479, 8, 430, 521, 473, 15, 8, 21, 5, 7,
476, 477, 496, 368, 8, 21, 5, 58, 86, 126,
137, 165, 258, 615, 611, 612, 175, 603, 496, 149,
542, 8, 496, 496, 367, 368, 424, 425, 499, 504,
368, 26, 368, 537, 538, 540, 371, 8, 8, 15,
231, 399, 485, 375, 8, 738, 368, 499, 707, 717,
735, 736, 8, 562, 26, 5, 9, 16, 17, 22,
23, 24, 25, 28, 29, 30, 31, 32, 33, 34,
35, 37, 38, 380, 381, 382, 368, 375, 389, 499,
496, 15, 375, 368, 368, 499, 499, 522, 8, 672,
729, 368, 499, 660, 368, 463, 464, 542, 419, 18,
575, 576, 575, 395, 398, 639, 634, 7, 612, 614,
707, 717, 718, 719, 418, 419, 457, 458, 62, 499,
762, 15, 15, 7, 8, 21, 590, 419, 371, 419,
473, 8, 669, 694, 21, 375, 368, 8, 496, 496,
473, 499, 547, 807, 499, 287, 819, 819, 547, 816,
819, 15, 547, 784, 547, 823, 784, 784, 547, 801,
547, 813, 473, 147, 148, 180, 314, 315, 318, 319,
376, 852, 853, 854, 8, 21, 500, 675, 855, 21,
855, 376, 853, 375, 759, 760, 8, 8, 8, 8,
499, 502, 503, 777, 660, 375, 872, 873, 874, 875,
876, 375, 879, 880, 881, 882, 883, 375, 884, 885,
8, 375, 890, 891, 368, 364, 362, 8, 21, 213,
376, 473, 44, 87, 93, 119, 143, 145, 178, 183,
187, 191, 194, 216, 230, 236, 387, 388, 390, 368,
362, 490, 553, 574, 400, 473, 547, 547, 8, 37,
15, 368, 436, 441, 375, 15, 516, 21, 8, 496,
496, 496, 496, 496, 496, 496, 496, 496, 496, 496,
496, 496, 496, 496, 496, 496, 496, 496, 574, 64,
129, 492, 494, 574, 499, 510, 513, 64, 513, 507,
8, 21, 5, 496, 550, 565, 8, 21, 5, 9,
496, 21, 496, 576, 576, 576, 576, 576, 21, 569,
569, 8, 496, 497, 572, 573, 8, 8, 8, 473,
473, 490, 43, 67, 82, 87, 88, 94, 228, 259,
303, 643, 640, 375, 503, 519, 21, 368, 15, 495,
67, 474, 657, 496, 7, 8, 21, 549, 37, 8,
21, 654, 499, 502, 518, 520, 574, 746, 476, 7,
473, 614, 15, 15, 15, 15, 15, 15, 603, 614,
368, 21, 554, 585, 21, 21, 15, 8, 21, 8,
506, 500, 8, 539, 26, 367, 651, 482, 129, 486,
487, 488, 404, 169, 208, 282, 375, 15, 7, 8,
21, 588, 571, 21, 21, 147, 148, 180, 21, 18,
21, 7, 496, 514, 175, 323, 37, 8, 21, 375,
8, 21, 26, 8, 21, 554, 496, 21, 459, 460,
459, 21, 7, 614, 603, 15, 7, 8, 21, 8,
15, 15, 26, 704, 705, 707, 495, 496, 592, 375,
8, 694, 8, 669, 400, 390, 377, 21, 21, 21,
614, 547, 21, 614, 547, 843, 614, 547, 614, 547,
614, 547, 614, 547, 15, 15, 15, 15, 15, 15,
375, 851, 8, 21, 21, 182, 315, 318, 8, 21,
375, 375, 375, 496, 15, 15, 8, 21, 21, 183,
191, 208, 8, 21, 41, 209, 228, 8, 21, 338,
341, 342, 343, 354, 8, 21, 375, 244, 330, 345,
346, 347, 8, 21, 371, 368, 373, 15, 405, 406,
473, 490, 15, 7, 8, 368, 473, 15, 510, 5,
408, 496, 565, 419, 499, 433, 15, 16, 17, 27,
36, 59, 64, 92, 149, 201, 432, 434, 444, 445,
446, 447, 448, 449, 450, 451, 436, 441, 442, 443,
15, 437, 438, 62, 496, 571, 497, 492, 21, 8,
493, 496, 514, 565, 7, 574, 479, 496, 574, 8,
570, 21, 8, 8, 8, 497, 573, 497, 573, 497,
573, 368, 255, 8, 21, 479, 478, 21, 7, 21,
496, 529, 21, 479, 547, 8, 21, 565, 747, 8,
21, 477, 496, 615, 574, 15, 617, 368, 616, 616,
496, 616, 473, 614, 239, 531, 495, 425, 425, 368,
496, 538, 21, 496, 514, 8, 21, 16, 15, 15,
15, 495, 735, 736, 491, 499, 767, 7, 496, 7,
21, 21, 368, 610, 500, 499, 191, 499, 614, 661,
496, 464, 547, 8, 47, 177, 368, 462, 375, 631,
633, 603, 7, 7, 496, 720, 721, 718, 719, 458,
496, 5, 617, 763, 764, 770, 496, 627, 8, 21,
15, 21, 71, 208, 375, 375, 491, 172, 368, 471,
472, 500, 191, 208, 282, 285, 290, 298, 787, 788,
789, 796, 808, 809, 810, 614, 266, 817, 818, 819,
614, 37, 499, 840, 841, 84, 265, 289, 299, 304,
785, 787, 788, 789, 790, 791, 792, 794, 795, 796,
614, 787, 788, 789, 790, 791, 792, 794, 795, 796,
809, 810, 824, 614, 787, 788, 789, 796, 802, 614,
787, 788, 814, 614, 855, 855, 855, 375, 856, 857,
855, 855, 500, 760, 330, 315, 331, 574, 492, 503,
15, 15, 15, 873, 15, 15, 15, 880, 15, 15,
15, 15, 885, 351, 352, 15, 15, 15, 15, 15,
891, 368, 18, 26, 410, 15, 389, 7, 375, 405,
554, 554, 409, 5, 496, 447, 448, 449, 452, 448,
450, 448, 450, 246, 246, 246, 246, 246, 8, 37,
368, 435, 499, 5, 437, 438, 8, 15, 16, 17,
149, 368, 435, 439, 440, 453, 454, 455, 456, 15,
438, 15, 21, 517, 21, 21, 506, 574, 496, 507,
550, 564, 576, 540, 541, 497, 541, 541, 541, 473,
368, 635, 638, 574, 8, 21, 7, 409, 496, 574,
496, 574, 565, 628, 496, 618, 619, 21, 21, 21,
21, 8, 8, 254, 525, 531, 21, 487, 488, 675,
675, 675, 21, 21, 368, 15, 21, 496, 7, 7,
496, 473, 15, 173, 8, 665, 666, 667, 668, 669,
671, 672, 673, 676, 678, 679, 680, 694, 702, 540,
460, 15, 15, 461, 255, 8, 7, 8, 21, 21,
21, 8, 21, 21, 705, 706, 15, 15, 368, 368,
469, 470, 472, 18, 8, 26, 786, 15, 786, 786,
15, 614, 808, 786, 614, 817, 368, 8, 21, 15,
786, 15, 786, 15, 614, 785, 614, 824, 614, 802,
614, 814, 21, 21, 21, 316, 317, 8, 21, 21,
21, 15, 15, 492, 21, 503, 877, 878, 675, 375,
698, 704, 718, 704, 660, 660, 503, 888, 496, 886,
15, 15, 375, 892, 893, 660, 660, 496, 375, 894,
21, 496, 496, 645, 646, 21, 388, 410, 5, 496,
400, 8, 21, 8, 513, 513, 513, 513, 513, 444,
5, 15, 434, 445, 438, 368, 435, 443, 453, 454,
454, 8, 21, 7, 16, 17, 5, 37, 9, 453,
496, 20, 506, 493, 21, 26, 21, 21, 21, 21,
15, 503, 565, 479, 656, 491, 518, 565, 747, 496,
21, 7, 8, 21, 496, 375, 15, 21, 21, 21,
7, 768, 769, 770, 496, 496, 7, 675, 499, 662,
375, 667, 26, 462, 26, 381, 635, 633, 368, 606,
607, 608, 609, 721, 764, 614, 78, 591, 368, 670,
718, 695, 8, 368, 472, 496, 614, 797, 375, 614,
614, 842, 499, 840, 375, 496, 496, 614, 614, 614,
614, 857, 675, 499, 21, 26, 8, 21, 21, 22,
24, 33, 35, 158, 159, 161, 162, 192, 234, 247,
699, 700, 701, 8, 21, 21, 21, 21, 21, 21,
8, 21, 8, 21, 375, 867, 868, 867, 315, 350,
8, 21, 21, 21, 21, 348, 349, 8, 8, 21,
7, 21, 21, 574, 452, 445, 574, 435, 26, 21,
453, 440, 454, 454, 455, 455, 455, 21, 496, 5,
496, 514, 636, 637, 499, 8, 675, 499, 8, 496,
619, 375, 21, 254, 496, 8, 21, 496, 21, 15,
41, 135, 209, 221, 223, 224, 226, 229, 320, 322,
496, 461, 21, 21, 15, 8, 132, 765, 21, 21,
7, 21, 697, 699, 470, 5, 16, 17, 22, 24,
33, 35, 37, 159, 162, 247, 305, 306, 307, 799,
21, 94, 230, 284, 295, 811, 37, 191, 288, 299,
793, 21, 21, 21, 21, 496, 878, 15, 15, 375,
503, 496, 353, 8, 21, 21, 893, 496, 7, 7,
408, 21, 492, 439, 453, 21, 8, 8, 21, 479,
565, 255, 15, 21, 769, 5, 496, 663, 664, 15,
681, 15, 15, 15, 15, 703, 703, 15, 15, 15,
8, 495, 607, 707, 708, 15, 718, 696, 696, 7,
8, 21, 843, 21, 8, 500, 675, 699, 8, 868,
8, 869, 8, 870, 21, 7, 409, 21, 21, 496,
637, 496, 368, 620, 621, 496, 8, 21, 682, 681,
717, 735, 717, 718, 707, 704, 496, 496, 674, 662,
677, 496, 21, 8, 375, 21, 7, 8, 21, 675,
798, 496, 375, 21, 8, 496, 375, 375, 368, 647,
648, 21, 8, 15, 21, 664, 148, 180, 683, 7,
21, 7, 21, 15, 21, 21, 8, 21, 8, 21,
8, 707, 78, 698, 698, 21, 329, 496, 500, 352,
351, 8, 496, 40, 496, 622, 623, 770, 7, 7,
684, 685, 707, 735, 718, 591, 496, 662, 496, 21,
21, 21, 15, 21, 15, 15, 648, 368, 624, 8,
21, 8, 21, 15, 21, 21, 21, 8, 495, 867,
867, 17, 625, 626, 623, 685, 496, 686, 687, 21,
496, 21, 21, 21, 627, 17, 7, 8, 21, 8,
772, 627, 496, 687, 15, 375, 375, 688, 689, 690,
691, 692, 182, 318, 128, 157, 217, 8, 21, 7,
7, 15, 693, 693, 693, 689, 375, 691, 692, 375,
692, 494, 7, 21, 692
};
#define yyerrok (yyerrstatus = 0)
#define yyclearin (yychar = YYEMPTY)
#define YYEMPTY (-2)
#define YYEOF 0
#define YYACCEPT goto yyacceptlab
#define YYABORT goto yyabortlab
#define YYERROR goto yyerrorlab
/* Like YYERROR except do call yyerror. This remains here temporarily
to ease the transition to the new meaning of YYERROR, for GCC.
Once GCC version 2 has supplanted version 1, this can go. */
#define YYFAIL goto yyerrlab
#define YYRECOVERING() (!!yyerrstatus)
#define YYBACKUP(Token, Value) \
do \
if (yychar == YYEMPTY && yylen == 1) \
{ \
yychar = (Token); \
yylval = (Value); \
yytoken = YYTRANSLATE (yychar); \
YYPOPSTACK (1); \
goto yybackup; \
} \
else \
{ \
yyerror (YY_("syntax error: cannot back up")); \
YYERROR; \
} \
while (YYID (0))
#define YYTERROR 1
#define YYERRCODE 256
/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N].
If N is 0, then set CURRENT to the empty location which ends
the previous symbol: RHS[0] (always defined). */
#define YYRHSLOC(Rhs, K) ((Rhs)[K])
#ifndef YYLLOC_DEFAULT
# define YYLLOC_DEFAULT(Current, Rhs, N) \
do \
if (YYID (N)) \
{ \
(Current).first_line = YYRHSLOC (Rhs, 1).first_line; \
(Current).first_column = YYRHSLOC (Rhs, 1).first_column; \
(Current).last_line = YYRHSLOC (Rhs, N).last_line; \
(Current).last_column = YYRHSLOC (Rhs, N).last_column; \
} \
else \
{ \
(Current).first_line = (Current).last_line = \
YYRHSLOC (Rhs, 0).last_line; \
(Current).first_column = (Current).last_column = \
YYRHSLOC (Rhs, 0).last_column; \
} \
while (YYID (0))
#endif
/* YY_LOCATION_PRINT -- Print the location on the stream.
This macro was not mandated originally: define only if we know
we won't break user code: when these are the locations we know. */
#ifndef YY_LOCATION_PRINT
# if YYLTYPE_IS_TRIVIAL
# define YY_LOCATION_PRINT(File, Loc) \
fprintf (File, "%d.%d-%d.%d", \
(Loc).first_line, (Loc).first_column, \
(Loc).last_line, (Loc).last_column)
# else
# define YY_LOCATION_PRINT(File, Loc) ((void) 0)
# endif
#endif
/* YYLEX -- calling `yylex' with the right arguments. */
#ifdef YYLEX_PARAM
# define YYLEX yylex (YYLEX_PARAM)
#else
# define YYLEX yylex ()
#endif
/* Enable debugging if requested. */
#if YYDEBUG
# ifndef YYFPRINTF
# include <stdio.h> /* INFRINGES ON USER NAME SPACE */
# define YYFPRINTF fprintf
# endif
# define YYDPRINTF(Args) \
do { \
if (yydebug) \
YYFPRINTF Args; \
} while (YYID (0))
# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
do { \
if (yydebug) \
{ \
YYFPRINTF (stderr, "%s ", Title); \
yy_symbol_print (stderr, \
Type, Value); \
YYFPRINTF (stderr, "\n"); \
} \
} while (YYID (0))
/*--------------------------------.
| Print this symbol on YYOUTPUT. |
`--------------------------------*/
/*ARGSUSED*/
#if (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
static void
yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
#else
static void
yy_symbol_value_print (yyoutput, yytype, yyvaluep)
FILE *yyoutput;
int yytype;
YYSTYPE const * const yyvaluep;
#endif
{
if (!yyvaluep)
return;
# ifdef YYPRINT
if (yytype < YYNTOKENS)
YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
# else
YYUSE (yyoutput);
# endif
switch (yytype)
{
default:
break;
}
}
/*--------------------------------.
| Print this symbol on YYOUTPUT. |
`--------------------------------*/
#if (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
static void
yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
#else
static void
yy_symbol_print (yyoutput, yytype, yyvaluep)
FILE *yyoutput;
int yytype;
YYSTYPE const * const yyvaluep;
#endif
{
if (yytype < YYNTOKENS)
YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
else
YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]);
yy_symbol_value_print (yyoutput, yytype, yyvaluep);
YYFPRINTF (yyoutput, ")");
}
/*------------------------------------------------------------------.
| yy_stack_print -- Print the state stack from its BOTTOM up to its |
| TOP (included). |
`------------------------------------------------------------------*/
#if (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
static void
yy_stack_print (yytype_int16 *bottom, yytype_int16 *top)
#else
static void
yy_stack_print (bottom, top)
yytype_int16 *bottom;
yytype_int16 *top;
#endif
{
YYFPRINTF (stderr, "Stack now");
for (; bottom <= top; ++bottom)
YYFPRINTF (stderr, " %d", *bottom);
YYFPRINTF (stderr, "\n");
}
# define YY_STACK_PRINT(Bottom, Top) \
do { \
if (yydebug) \
yy_stack_print ((Bottom), (Top)); \
} while (YYID (0))
/*------------------------------------------------.
| Report that the YYRULE is going to be reduced. |
`------------------------------------------------*/
#if (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
static void
yy_reduce_print (YYSTYPE *yyvsp, int yyrule)
#else
static void
yy_reduce_print (yyvsp, yyrule)
YYSTYPE *yyvsp;
int yyrule;
#endif
{
int yynrhs = yyr2[yyrule];
int yyi;
unsigned long int yylno = yyrline[yyrule];
YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n",
yyrule - 1, yylno);
/* The symbols being reduced. */
for (yyi = 0; yyi < yynrhs; yyi++)
{
fprintf (stderr, " $%d = ", yyi + 1);
yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi],
&(yyvsp[(yyi + 1) - (yynrhs)])
);
fprintf (stderr, "\n");
}
}
# define YY_REDUCE_PRINT(Rule) \
do { \
if (yydebug) \
yy_reduce_print (yyvsp, Rule); \
} while (YYID (0))
/* Nonzero means print parse trace. It is left uninitialized so that
multiple parsers can coexist. */
int yydebug;
#else /* !YYDEBUG */
# define YYDPRINTF(Args)
# define YY_SYMBOL_PRINT(Title, Type, Value, Location)
# define YY_STACK_PRINT(Bottom, Top)
# define YY_REDUCE_PRINT(Rule)
#endif /* !YYDEBUG */
/* YYINITDEPTH -- initial size of the parser's stacks. */
#ifndef YYINITDEPTH
# define YYINITDEPTH 200
#endif
/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
if the built-in stack extension method is used).
Do not make this value too large; the results are undefined if
YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
evaluated with infinite-precision integer arithmetic. */
#ifndef YYMAXDEPTH
# define YYMAXDEPTH 10000
#endif
#if YYERROR_VERBOSE
# ifndef yystrlen
# if defined __GLIBC__ && defined _STRING_H
# define yystrlen strlen
# else
/* Return the length of YYSTR. */
#if (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
static YYSIZE_T
yystrlen (const char *yystr)
#else
static YYSIZE_T
yystrlen (yystr)
const char *yystr;
#endif
{
YYSIZE_T yylen;
for (yylen = 0; yystr[yylen]; yylen++)
continue;
return yylen;
}
# endif
# endif
# ifndef yystpcpy
# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
# define yystpcpy stpcpy
# else
/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
YYDEST. */
#if (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
static char *
yystpcpy (char *yydest, const char *yysrc)
#else
static char *
yystpcpy (yydest, yysrc)
char *yydest;
const char *yysrc;
#endif
{
char *yyd = yydest;
const char *yys = yysrc;
while ((*yyd++ = *yys++) != '\0')
continue;
return yyd - 1;
}
# endif
# endif
# ifndef yytnamerr
/* Copy to YYRES the contents of YYSTR after stripping away unnecessary
quotes and backslashes, so that it's suitable for yyerror. The
heuristic is that double-quoting is unnecessary unless the string
contains an apostrophe, a comma, or backslash (other than
backslash-backslash). YYSTR is taken from yytname. If YYRES is
null, do not copy; instead, return the length of what the result
would have been. */
static YYSIZE_T
yytnamerr (char *yyres, const char *yystr)
{
if (*yystr == '"')
{
YYSIZE_T yyn = 0;
char const *yyp = yystr;
for (;;)
switch (*++yyp)
{
case '\'':
case ',':
goto do_not_strip_quotes;
case '\\':
if (*++yyp != '\\')
goto do_not_strip_quotes;
/* Fall through. */
default:
if (yyres)
yyres[yyn] = *yyp;
yyn++;
break;
case '"':
if (yyres)
yyres[yyn] = '\0';
return yyn;
}
do_not_strip_quotes: ;
}
if (! yyres)
return yystrlen (yystr);
return yystpcpy (yyres, yystr) - yyres;
}
# endif
/* Copy into YYRESULT an error message about the unexpected token
YYCHAR while in state YYSTATE. Return the number of bytes copied,
including the terminating null byte. If YYRESULT is null, do not
copy anything; just return the number of bytes that would be
copied. As a special case, return 0 if an ordinary "syntax error"
message will do. Return YYSIZE_MAXIMUM if overflow occurs during
size calculation. */
static YYSIZE_T
yysyntax_error (char *yyresult, int yystate, int yychar)
{
int yyn = yypact[yystate];
if (! (YYPACT_NINF < yyn && yyn <= YYLAST))
return 0;
else
{
int yytype = YYTRANSLATE (yychar);
YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]);
YYSIZE_T yysize = yysize0;
YYSIZE_T yysize1;
int yysize_overflow = 0;
enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
int yyx;
# if 0
/* This is so xgettext sees the translatable formats that are
constructed on the fly. */
YY_("syntax error, unexpected %s");
YY_("syntax error, unexpected %s, expecting %s");
YY_("syntax error, unexpected %s, expecting %s or %s");
YY_("syntax error, unexpected %s, expecting %s or %s or %s");
YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s");
# endif
char *yyfmt;
char const *yyf;
static char const yyunexpected[] = "syntax error, unexpected %s";
static char const yyexpecting[] = ", expecting %s";
static char const yyor[] = " or %s";
char yyformat[sizeof yyunexpected
+ sizeof yyexpecting - 1
+ ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2)
* (sizeof yyor - 1))];
char const *yyprefix = yyexpecting;
/* Start YYX at -YYN if negative to avoid negative indexes in
YYCHECK. */
int yyxbegin = yyn < 0 ? -yyn : 0;
/* Stay within bounds of both yycheck and yytname. */
int yychecklim = YYLAST - yyn + 1;
int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
int yycount = 1;
yyarg[0] = yytname[yytype];
yyfmt = yystpcpy (yyformat, yyunexpected);
for (yyx = yyxbegin; yyx < yyxend; ++yyx)
if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
{
if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
{
yycount = 1;
yysize = yysize0;
yyformat[sizeof yyunexpected - 1] = '\0';
break;
}
yyarg[yycount++] = yytname[yyx];
yysize1 = yysize + yytnamerr (0, yytname[yyx]);
yysize_overflow |= (yysize1 < yysize);
yysize = yysize1;
yyfmt = yystpcpy (yyfmt, yyprefix);
yyprefix = yyor;
}
yyf = YY_(yyformat);
yysize1 = yysize + yystrlen (yyf);
yysize_overflow |= (yysize1 < yysize);
yysize = yysize1;
if (yysize_overflow)
return YYSIZE_MAXIMUM;
if (yyresult)
{
/* Avoid sprintf, as that infringes on the user's name space.
Don't have undefined behavior even if the translation
produced a string with the wrong number of "%s"s. */
char *yyp = yyresult;
int yyi = 0;
while ((*yyp = *yyf) != '\0')
{
if (*yyp == '%' && yyf[1] == 's' && yyi < yycount)
{
yyp += yytnamerr (yyp, yyarg[yyi++]);
yyf += 2;
}
else
{
yyp++;
yyf++;
}
}
}
return yysize;
}
}
#endif /* YYERROR_VERBOSE */
/*-----------------------------------------------.
| Release the memory associated to this symbol. |
`-----------------------------------------------*/
/*ARGSUSED*/
#if (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
static void
yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
#else
static void
yydestruct (yymsg, yytype, yyvaluep)
const char *yymsg;
int yytype;
YYSTYPE *yyvaluep;
#endif
{
YYUSE (yyvaluep);
if (!yymsg)
yymsg = "Deleting";
YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);
switch (yytype)
{
default:
break;
}
}
/* Prevent warnings from -Wmissing-prototypes. */
#ifdef YYPARSE_PARAM
#if defined __STDC__ || defined __cplusplus
int yyparse (void *YYPARSE_PARAM);
#else
int yyparse ();
#endif
#else /* ! YYPARSE_PARAM */
#if defined __STDC__ || defined __cplusplus
int yyparse (void);
#else
int yyparse ();
#endif
#endif /* ! YYPARSE_PARAM */
/* The look-ahead symbol. */
int yychar;
/* The semantic value of the look-ahead symbol. */
YYSTYPE yylval;
/* Number of syntax errors so far. */
int yynerrs;
/*----------.
| yyparse. |
`----------*/
#ifdef YYPARSE_PARAM
#if (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
int
yyparse (void *YYPARSE_PARAM)
#else
int
yyparse (YYPARSE_PARAM)
void *YYPARSE_PARAM;
#endif
#else /* ! YYPARSE_PARAM */
#if (defined __STDC__ || defined __C99__FUNC__ \
|| defined __cplusplus || defined _MSC_VER)
int
yyparse (void)
#else
int
yyparse ()
#endif
#endif
{
int yystate;
int yyn;
int yyresult;
/* Number of tokens to shift before error messages enabled. */
int yyerrstatus;
/* Look-ahead token as an internal (translated) token number. */
int yytoken = 0;
#if YYERROR_VERBOSE
/* Buffer for error messages, and its allocated size. */
char yymsgbuf[128];
char *yymsg = yymsgbuf;
YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
#endif
/* Three stacks and their tools:
`yyss': related to states,
`yyvs': related to semantic values,
`yyls': related to locations.
Refer to the stacks thru separate pointers, to allow yyoverflow
to reallocate them elsewhere. */
/* The state stack. */
yytype_int16 yyssa[YYINITDEPTH];
yytype_int16 *yyss = yyssa;
yytype_int16 *yyssp;
/* The semantic value stack. */
YYSTYPE yyvsa[YYINITDEPTH];
YYSTYPE *yyvs = yyvsa;
YYSTYPE *yyvsp;
#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
YYSIZE_T yystacksize = YYINITDEPTH;
/* The variables used to return semantic value and location from the
action routines. */
YYSTYPE yyval;
/* The number of symbols on the RHS of the reduced rule.
Keep to zero when no symbol should be popped. */
int yylen = 0;
YYDPRINTF ((stderr, "Starting parse\n"));
yystate = 0;
yyerrstatus = 0;
yynerrs = 0;
yychar = YYEMPTY; /* Cause a token to be read. */
/* Initialize stack pointers.
Waste one element of value and location stack
so that they stay on the same level as the state stack.
The wasted elements are never initialized. */
yyssp = yyss;
yyvsp = yyvs;
goto yysetstate;
/*------------------------------------------------------------.
| yynewstate -- Push a new state, which is found in yystate. |
`------------------------------------------------------------*/
yynewstate:
/* In all cases, when you get here, the value and location stacks
have just been pushed. So pushing a state here evens the stacks. */
yyssp++;
yysetstate:
*yyssp = yystate;
if (yyss + yystacksize - 1 <= yyssp)
{
/* Get the current used size of the three stacks, in elements. */
YYSIZE_T yysize = yyssp - yyss + 1;
#ifdef yyoverflow
{
/* Give user a chance to reallocate the stack. Use copies of
these so that the &'s don't force the real ones into
memory. */
YYSTYPE *yyvs1 = yyvs;
yytype_int16 *yyss1 = yyss;
/* Each stack pointer address is followed by the size of the
data in use in that stack, in bytes. This used to be a
conditional around just the two extra args, but that might
be undefined if yyoverflow is a macro. */
yyoverflow (YY_("memory exhausted"),
&yyss1, yysize * sizeof (*yyssp),
&yyvs1, yysize * sizeof (*yyvsp),
&yystacksize);
yyss = yyss1;
yyvs = yyvs1;
}
#else /* no yyoverflow */
# ifndef YYSTACK_RELOCATE
goto yyexhaustedlab;
# else
/* Extend the stack our own way. */
if (YYMAXDEPTH <= yystacksize)
goto yyexhaustedlab;
yystacksize *= 2;
if (YYMAXDEPTH < yystacksize)
yystacksize = YYMAXDEPTH;
{
yytype_int16 *yyss1 = yyss;
union yyalloc *yyptr =
(union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
if (! yyptr)
goto yyexhaustedlab;
YYSTACK_RELOCATE (yyss);
YYSTACK_RELOCATE (yyvs);
# undef YYSTACK_RELOCATE
if (yyss1 != yyssa)
YYSTACK_FREE (yyss1);
}
# endif
#endif /* no yyoverflow */
yyssp = yyss + yysize - 1;
yyvsp = yyvs + yysize - 1;
YYDPRINTF ((stderr, "Stack size increased to %lu\n",
(unsigned long int) yystacksize));
if (yyss + yystacksize - 1 <= yyssp)
YYABORT;
}
YYDPRINTF ((stderr, "Entering state %d\n", yystate));
goto yybackup;
/*-----------.
| yybackup. |
`-----------*/
yybackup:
/* Do appropriate processing given the current state. Read a
look-ahead token if we need one and don't already have one. */
/* First try to decide what to do without reference to look-ahead token. */
yyn = yypact[yystate];
if (yyn == YYPACT_NINF)
goto yydefault;
/* Not known => get a look-ahead token if don't already have one. */
/* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol. */
if (yychar == YYEMPTY)
{
YYDPRINTF ((stderr, "Reading a token: "));
yychar = YYLEX;
}
if (yychar <= YYEOF)
{
yychar = yytoken = YYEOF;
YYDPRINTF ((stderr, "Now at end of input.\n"));
}
else
{
yytoken = YYTRANSLATE (yychar);
YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
}
/* If the proper action on seeing token YYTOKEN is to reduce or to
detect an error, take that action. */
yyn += yytoken;
if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
goto yydefault;
yyn = yytable[yyn];
if (yyn <= 0)
{
if (yyn == 0 || yyn == YYTABLE_NINF)
goto yyerrlab;
yyn = -yyn;
goto yyreduce;
}
if (yyn == YYFINAL)
YYACCEPT;
/* Count tokens shifted since error; after three, turn off error
status. */
if (yyerrstatus)
yyerrstatus--;
/* Shift the look-ahead token. */
YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
/* Discard the shifted token unless it is eof. */
if (yychar != YYEOF)
yychar = YYEMPTY;
yystate = yyn;
*++yyvsp = yylval;
goto yynewstate;
/*-----------------------------------------------------------.
| yydefault -- do the default action for the current state. |
`-----------------------------------------------------------*/
yydefault:
yyn = yydefact[yystate];
if (yyn == 0)
goto yyerrlab;
goto yyreduce;
/*-----------------------------.
| yyreduce -- Do a reduction. |
`-----------------------------*/
yyreduce:
/* yyn is the number of a rule to reduce with. */
yylen = yyr2[yyn];
/* If YYLEN is nonzero, implement the default value of the action:
`$$ = $1'.
Otherwise, the following line sets YYVAL to garbage.
This behavior is undocumented and Bison
users should not rely upon it. Assigning to YYVAL
unconditionally makes the parser a bit smaller, and it avoids a
GCC warning that YYVAL may be used uninitialized. */
yyval = yyvsp[1-yylen];
YY_REDUCE_PRINT (yyn);
switch (yyn)
{
case 2:
#line 789 "gram1.y"
{ (yyval.bf_node) = BFNULL; ;}
break;
case 3:
#line 791 "gram1.y"
{ (yyval.bf_node) = set_stat_list((yyvsp[(1) - (3)].bf_node),(yyvsp[(2) - (3)].bf_node)); ;}
break;
case 4:
#line 795 "gram1.y"
{ lastwasbranch = NO; (yyval.bf_node) = BFNULL; ;}
break;
case 5:
#line 797 "gram1.y"
{
if ((yyvsp[(2) - (3)].bf_node) != BFNULL)
{
(yyvsp[(2) - (3)].bf_node)->label = (yyvsp[(1) - (3)].label);
(yyval.bf_node) = (yyvsp[(2) - (3)].bf_node);
if (is_openmp_stmt) { /*OMP*/
is_openmp_stmt = 0;
if((yyvsp[(2) - (3)].bf_node)) { /*OMP*/
if ((yyvsp[(2) - (3)].bf_node)->decl_specs != -BIT_OPENMP) (yyvsp[(2) - (3)].bf_node)->decl_specs = BIT_OPENMP; /*OMP*/
} /*OMP*/
} /*OMP*/
}
;}
break;
case 6:
#line 811 "gram1.y"
{ PTR_BFND p;
if(lastwasbranch && ! thislabel)
/*if (warn_all)
warn("statement cannot be reached", 36);*/
lastwasbranch = thiswasbranch;
thiswasbranch = NO;
if((yyvsp[(2) - (3)].bf_node)) (yyvsp[(2) - (3)].bf_node)->label = (yyvsp[(1) - (3)].label);
if((yyvsp[(1) - (3)].label) && (yyvsp[(2) - (3)].bf_node)) (yyvsp[(1) - (3)].label)->statbody = (yyvsp[(2) - (3)].bf_node); /*8.11.06 podd*/
if((yyvsp[(1) - (3)].label)) {
/*$1->statbody = $2;*/ /*8.11.06 podd*/
if((yyvsp[(1) - (3)].label)->labtype == LABFORMAT)
err("label already that of a format",39);
else
(yyvsp[(1) - (3)].label)->labtype = LABEXEC;
}
if (is_openmp_stmt) { /*OMP*/
is_openmp_stmt = 0;
if((yyvsp[(2) - (3)].bf_node)) { /*OMP*/
if ((yyvsp[(2) - (3)].bf_node)->decl_specs != -BIT_OPENMP) (yyvsp[(2) - (3)].bf_node)->decl_specs = BIT_OPENMP; /*OMP*/
} /*OMP*/
} /*OMP*/
for (p = pred_bfnd; (yyvsp[(1) - (3)].label) &&
((p->variant == FOR_NODE)||(p->variant == WHILE_NODE)) &&
(p->entry.for_node.doend) &&
(p->entry.for_node.doend->stateno == (yyvsp[(1) - (3)].label)->stateno);
p = p->control_parent)
++end_group;
(yyval.bf_node) = (yyvsp[(2) - (3)].bf_node);
;}
break;
case 7:
#line 842 "gram1.y"
{ /* PTR_LLND p; */
doinclude( (yyvsp[(3) - (3)].charp) );
/* p = make_llnd(fi, STRING_VAL, LLNULL, LLNULL, SMNULL);
p->entry.string_val = $3;
p->type = global_string;
$$ = get_bfnd(fi, INCLUDE_STAT, SMNULL, p, LLNULL); */
(yyval.bf_node) = BFNULL;
;}
break;
case 8:
#line 851 "gram1.y"
{
err("Unclassifiable statement", 10);
flline();
(yyval.bf_node) = BFNULL;
;}
break;
case 9:
#line 857 "gram1.y"
{ PTR_CMNT p;
PTR_BFND bif;
if (last_bfnd && last_bfnd->control_parent &&((last_bfnd->control_parent->variant == LOGIF_NODE)
||(last_bfnd->control_parent->variant == FORALL_STAT)))
bif = last_bfnd->control_parent;
else
bif = last_bfnd;
p=bif->entry.Template.cmnt_ptr;
if(p)
p->string = StringConcatenation(p->string,commentbuf);
else
{
p = make_comment(fi,commentbuf, FULL);
bif->entry.Template.cmnt_ptr = p;
}
(yyval.bf_node) = BFNULL;
;}
break;
case 10:
#line 877 "gram1.y"
{
flline(); needkwd = NO; inioctl = NO;
/*!!!*/
opt_kwd_ = NO; intonly = NO; opt_kwd_hedr = NO; opt_kwd_r = NO; as_op_kwd_= NO; optcorner = NO;
yyerrok; yyclearin; (yyval.bf_node) = BFNULL;
;}
break;
case 11:
#line 886 "gram1.y"
{
if(yystno)
{
(yyval.label) = thislabel = make_label_node(fi,yystno);
thislabel->scope = cur_scope();
if (thislabel->labdefined && (thislabel->scope == cur_scope()))
errstr("Label %s already defined",convic(thislabel->stateno),40);
else
thislabel->labdefined = YES;
}
else
(yyval.label) = thislabel = LBNULL;
;}
break;
case 12:
#line 902 "gram1.y"
{ PTR_BFND p;
if (pred_bfnd != global_bfnd)
err("Misplaced PROGRAM statement", 33);
p = get_bfnd(fi,PROG_HEDR, (yyvsp[(3) - (3)].symbol), LLNULL, LLNULL, LLNULL);
(yyvsp[(3) - (3)].symbol)->entry.prog_decl.prog_hedr=p;
set_blobs(p, global_bfnd, NEW_GROUP1);
add_scope_level(p, NO);
position = IN_PROC;
;}
break;
case 13:
#line 914 "gram1.y"
{ PTR_BFND q = BFNULL;
(yyvsp[(3) - (3)].symbol)->variant = PROCEDURE_NAME;
(yyvsp[(3) - (3)].symbol)->decl = YES; /* variable declaration has been seen. */
q = get_bfnd(fi,BLOCK_DATA, (yyvsp[(3) - (3)].symbol), LLNULL, LLNULL, LLNULL);
set_blobs(q, global_bfnd, NEW_GROUP1);
add_scope_level(q, NO);
;}
break;
case 14:
#line 924 "gram1.y"
{
install_param_list((yyvsp[(3) - (4)].symbol), (yyvsp[(4) - (4)].symbol), LLNULL, PROCEDURE_NAME);
/* if there is only a control end the control parent is not set */
;}
break;
case 15:
#line 931 "gram1.y"
{ install_param_list((yyvsp[(4) - (5)].symbol), (yyvsp[(5) - (5)].symbol), LLNULL, PROCEDURE_NAME);
if((yyvsp[(1) - (5)].ll_node)->variant == RECURSIVE_OP)
(yyvsp[(4) - (5)].symbol)->attr = (yyvsp[(4) - (5)].symbol)->attr | RECURSIVE_BIT;
pred_bfnd->entry.Template.ll_ptr3 = (yyvsp[(1) - (5)].ll_node);
;}
break;
case 16:
#line 937 "gram1.y"
{
install_param_list((yyvsp[(3) - (5)].symbol), (yyvsp[(4) - (5)].symbol), (yyvsp[(5) - (5)].ll_node), FUNCTION_NAME);
pred_bfnd->entry.Template.ll_ptr1 = (yyvsp[(5) - (5)].ll_node);
;}
break;
case 17:
#line 942 "gram1.y"
{
install_param_list((yyvsp[(1) - (3)].symbol), (yyvsp[(2) - (3)].symbol), (yyvsp[(3) - (3)].ll_node), FUNCTION_NAME);
pred_bfnd->entry.Template.ll_ptr1 = (yyvsp[(3) - (3)].ll_node);
;}
break;
case 18:
#line 947 "gram1.y"
{PTR_BFND p, bif;
PTR_SYMB q = SMNULL;
PTR_LLND l = LLNULL;
if(parstate==OUTSIDE || procclass==CLMAIN || procclass==CLBLOCK)
err("Misplaced ENTRY statement", 35);
bif = cur_scope();
if (bif->variant == FUNC_HEDR) {
q = make_function((yyvsp[(2) - (4)].hash_entry), bif->entry.Template.symbol->type, LOCAL);
l = construct_entry_list(q, (yyvsp[(3) - (4)].symbol), FUNCTION_NAME);
}
else if ((bif->variant == PROC_HEDR) ||
(bif->variant == PROS_HEDR) || /* added for FORTRAN M */
(bif->variant == PROG_HEDR)) {
q = make_procedure((yyvsp[(2) - (4)].hash_entry),LOCAL);
l = construct_entry_list(q, (yyvsp[(3) - (4)].symbol), PROCEDURE_NAME);
}
p = get_bfnd(fi,ENTRY_STAT, q, l, (yyvsp[(4) - (4)].ll_node), LLNULL);
set_blobs(p, pred_bfnd, SAME_GROUP);
q->decl = YES; /*4.02.03*/
q->entry.proc_decl.proc_hedr = p; /*5.02.03*/
;}
break;
case 19:
#line 971 "gram1.y"
{ PTR_SYMB s;
PTR_BFND p;
/*
s = make_global_entity($3, MODULE_NAME, global_default, NO);
s->decl = YES;
p = get_bfnd(fi, MODULE_STMT, s, LLNULL, LLNULL, LLNULL);
s->entry.Template.func_hedr = p;
set_blobs(p, pred_bfnd, NEW_GROUP1);
add_scope_level(p, NO);
*/
/*position = IN_MODULE;*/
s = make_module((yyvsp[(3) - (3)].hash_entry));
s->decl = YES; /* variable declaration has been seen. */
if (pred_bfnd != global_bfnd)
err("Misplaced MODULE statement", 33);
p = get_bfnd(fi, MODULE_STMT, s, LLNULL, LLNULL, LLNULL);
s->entry.Template.func_hedr = p; /* !!!????*/
set_blobs(p, global_bfnd, NEW_GROUP1);
add_scope_level(p, NO);
position = IN_MODULE; /*IN_PROC*/
privateall = 0;
;}
break;
case 20:
#line 997 "gram1.y"
{ newprog();
if (position == IN_OUTSIDE)
position = IN_PROC;
else if (position != IN_INTERNAL_PROC){
if(!is_interface_stat(pred_bfnd))
position--;
}
else {
if(!is_interface_stat(pred_bfnd))
err("Internal procedures can not contain procedures",304);
}
;}
break;
case 21:
#line 1012 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, RECURSIVE_OP, LLNULL, LLNULL, SMNULL); ;}
break;
case 22:
#line 1014 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, PURE_OP, LLNULL, LLNULL, SMNULL); ;}
break;
case 23:
#line 1016 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, ELEMENTAL_OP, LLNULL, LLNULL, SMNULL); ;}
break;
case 24:
#line 1020 "gram1.y"
{ PTR_BFND p;
(yyval.symbol) = make_procedure((yyvsp[(1) - (1)].hash_entry), LOCAL);
(yyval.symbol)->decl = YES; /* variable declaration has been seen. */
/* if (pred_bfnd != global_bfnd)
{
err("Misplaced SUBROUTINE statement", 34);
}
*/
p = get_bfnd(fi,PROC_HEDR, (yyval.symbol), LLNULL, LLNULL, LLNULL);
(yyval.symbol)->entry.proc_decl.proc_hedr = p;
set_blobs(p, pred_bfnd, NEW_GROUP1);
add_scope_level(p, NO);
;}
break;
case 25:
#line 1037 "gram1.y"
{ PTR_BFND p;
(yyval.symbol) = make_function((yyvsp[(1) - (1)].hash_entry), TYNULL, LOCAL);
(yyval.symbol)->decl = YES; /* variable declaration has been seen. */
/* if (pred_bfnd != global_bfnd)
err("Misplaced FUNCTION statement", 34); */
p = get_bfnd(fi,FUNC_HEDR, (yyval.symbol), LLNULL, LLNULL, LLNULL);
(yyval.symbol)->entry.func_decl.func_hedr = p;
set_blobs(p, pred_bfnd, NEW_GROUP1);
add_scope_level(p, NO);
;}
break;
case 26:
#line 1051 "gram1.y"
{ PTR_BFND p;
PTR_LLND l;
(yyval.symbol) = make_function((yyvsp[(4) - (4)].hash_entry), (yyvsp[(1) - (4)].data_type), LOCAL);
(yyval.symbol)->decl = YES; /* variable declaration has been seen. */
l = make_llnd(fi, TYPE_OP, LLNULL, LLNULL, SMNULL);
l->type = (yyvsp[(1) - (4)].data_type);
p = get_bfnd(fi,FUNC_HEDR, (yyval.symbol), LLNULL, l, LLNULL);
(yyval.symbol)->entry.func_decl.func_hedr = p;
/* if (pred_bfnd != global_bfnd)
err("Misplaced FUNCTION statement", 34);*/
set_blobs(p, pred_bfnd, NEW_GROUP1);
add_scope_level(p, NO);
/*
$$ = make_function($4, $1, LOCAL);
$$->decl = YES;
p = get_bfnd(fi,FUNC_HEDR, $$, LLNULL, LLNULL, LLNULL);
if (pred_bfnd != global_bfnd)
errstr("cftn.gram: misplaced SUBROUTINE statement.");
set_blobs(p, pred_bfnd, NEW_GROUP1);
add_scope_level(p, NO);
*/
;}
break;
case 27:
#line 1075 "gram1.y"
{ PTR_BFND p;
PTR_LLND l;
(yyval.symbol) = make_function((yyvsp[(5) - (5)].hash_entry), (yyvsp[(1) - (5)].data_type), LOCAL);
(yyval.symbol)->decl = YES; /* variable declaration has been seen. */
if((yyvsp[(2) - (5)].ll_node)->variant == RECURSIVE_OP)
(yyval.symbol)->attr = (yyval.symbol)->attr | RECURSIVE_BIT;
l = make_llnd(fi, TYPE_OP, LLNULL, LLNULL, SMNULL);
l->type = (yyvsp[(1) - (5)].data_type);
/* if (pred_bfnd != global_bfnd)
err("Misplaced FUNCTION statement", 34);*/
p = get_bfnd(fi,FUNC_HEDR, (yyval.symbol), LLNULL, l, (yyvsp[(2) - (5)].ll_node));
(yyval.symbol)->entry.func_decl.func_hedr = p;
set_blobs(p, pred_bfnd, NEW_GROUP1);
add_scope_level(p, NO);
;}
break;
case 28:
#line 1091 "gram1.y"
{ PTR_BFND p;
(yyval.symbol) = make_function((yyvsp[(4) - (4)].hash_entry), TYNULL, LOCAL);
(yyval.symbol)->decl = YES; /* variable declaration has been seen. */
if((yyvsp[(1) - (4)].ll_node)->variant == RECURSIVE_OP)
(yyval.symbol)->attr = (yyval.symbol)->attr | RECURSIVE_BIT;
/*if (pred_bfnd != global_bfnd)
err("Misplaced FUNCTION statement",34);*/
p = get_bfnd(fi,FUNC_HEDR, (yyval.symbol), LLNULL, LLNULL, (yyvsp[(1) - (4)].ll_node));
(yyval.symbol)->entry.func_decl.func_hedr = p;
set_blobs(p, pred_bfnd, NEW_GROUP1);
add_scope_level(p, NO);
;}
break;
case 29:
#line 1105 "gram1.y"
{ PTR_BFND p;
PTR_LLND l;
(yyval.symbol) = make_function((yyvsp[(5) - (5)].hash_entry), (yyvsp[(2) - (5)].data_type), LOCAL);
(yyval.symbol)->decl = YES; /* variable declaration has been seen. */
if((yyvsp[(1) - (5)].ll_node)->variant == RECURSIVE_OP)
(yyval.symbol)->attr = (yyval.symbol)->attr | RECURSIVE_BIT;
l = make_llnd(fi, TYPE_OP, LLNULL, LLNULL, SMNULL);
l->type = (yyvsp[(2) - (5)].data_type);
/* if (pred_bfnd != global_bfnd)
err("Misplaced FUNCTION statement",34);*/
p = get_bfnd(fi,FUNC_HEDR, (yyval.symbol), LLNULL, l, (yyvsp[(1) - (5)].ll_node));
(yyval.symbol)->entry.func_decl.func_hedr = p;
set_blobs(p, pred_bfnd, NEW_GROUP1);
add_scope_level(p, NO);
;}
break;
case 30:
#line 1123 "gram1.y"
{ (yyval.ll_node) = LLNULL; ;}
break;
case 31:
#line 1125 "gram1.y"
{ PTR_SYMB s;
s = make_scalar((yyvsp[(4) - (5)].hash_entry), TYNULL, LOCAL);
(yyval.ll_node) = make_llnd(fi, VAR_REF, LLNULL, LLNULL, s);
;}
break;
case 32:
#line 1132 "gram1.y"
{ (yyval.hash_entry) = look_up_sym(yytext); ;}
break;
case 33:
#line 1135 "gram1.y"
{ (yyval.symbol) = make_program(look_up_sym("_MAIN")); ;}
break;
case 34:
#line 1137 "gram1.y"
{
(yyval.symbol) = make_program((yyvsp[(1) - (1)].hash_entry));
(yyval.symbol)->decl = YES; /* variable declaration has been seen. */
;}
break;
case 35:
#line 1143 "gram1.y"
{ (yyval.symbol) = make_program(look_up_sym("_BLOCK")); ;}
break;
case 36:
#line 1145 "gram1.y"
{
(yyval.symbol) = make_program((yyvsp[(1) - (1)].hash_entry));
(yyval.symbol)->decl = YES; /* variable declaration has been seen. */
;}
break;
case 37:
#line 1152 "gram1.y"
{ (yyval.symbol) = SMNULL; ;}
break;
case 38:
#line 1154 "gram1.y"
{ (yyval.symbol) = SMNULL; ;}
break;
case 39:
#line 1156 "gram1.y"
{ (yyval.symbol) = (yyvsp[(2) - (3)].symbol); ;}
break;
case 41:
#line 1161 "gram1.y"
{ (yyval.symbol) = set_id_list((yyvsp[(1) - (3)].symbol), (yyvsp[(3) - (3)].symbol)); ;}
break;
case 42:
#line 1165 "gram1.y"
{
(yyval.symbol) = make_scalar((yyvsp[(1) - (1)].hash_entry), TYNULL, IO);
;}
break;
case 43:
#line 1169 "gram1.y"
{ (yyval.symbol) = make_scalar(look_up_sym("*"), TYNULL, IO); ;}
break;
case 44:
#line 1175 "gram1.y"
{ char *s;
s = copyn(yyleng+1, yytext);
s[yyleng] = '\0';
(yyval.charp) = s;
;}
break;
case 45:
#line 1184 "gram1.y"
{ needkwd = 1; ;}
break;
case 46:
#line 1188 "gram1.y"
{ needkwd = NO; ;}
break;
case 47:
#line 1193 "gram1.y"
{ colon_flag = YES; ;}
break;
case 61:
#line 1214 "gram1.y"
{
saveall = YES;
(yyval.bf_node) = get_bfnd(fi,SAVE_DECL, SMNULL, LLNULL, LLNULL, LLNULL);
;}
break;
case 62:
#line 1219 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,SAVE_DECL, SMNULL, (yyvsp[(4) - (4)].ll_node), LLNULL, LLNULL);
;}
break;
case 63:
#line 1224 "gram1.y"
{ PTR_LLND p;
p = make_llnd(fi,STMT_STR, LLNULL, LLNULL, SMNULL);
p->entry.string_val = copys(stmtbuf);
(yyval.bf_node) = get_bfnd(fi,FORMAT_STAT, SMNULL, p, LLNULL, LLNULL);
;}
break;
case 64:
#line 1231 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,PARAM_DECL, SMNULL, (yyvsp[(4) - (5)].ll_node), LLNULL, LLNULL); ;}
break;
case 77:
#line 1247 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, INTERFACE_STMT, SMNULL, LLNULL, LLNULL, LLNULL);
add_scope_level((yyval.bf_node), NO);
;}
break;
case 78:
#line 1251 "gram1.y"
{ PTR_SYMB s;
s = make_procedure((yyvsp[(3) - (3)].hash_entry), LOCAL);
s->variant = INTERFACE_NAME;
(yyval.bf_node) = get_bfnd(fi, INTERFACE_STMT, s, LLNULL, LLNULL, LLNULL);
add_scope_level((yyval.bf_node), NO);
;}
break;
case 79:
#line 1259 "gram1.y"
{ PTR_SYMB s;
s = make_function((yyvsp[(4) - (5)].hash_entry), global_default, LOCAL);
s->variant = INTERFACE_NAME;
(yyval.bf_node) = get_bfnd(fi, INTERFACE_OPERATOR, s, LLNULL, LLNULL, LLNULL);
add_scope_level((yyval.bf_node), NO);
;}
break;
case 80:
#line 1267 "gram1.y"
{ PTR_SYMB s;
s = make_procedure(look_up_sym("="), LOCAL);
s->variant = INTERFACE_NAME;
(yyval.bf_node) = get_bfnd(fi, INTERFACE_ASSIGNMENT, s, LLNULL, LLNULL, LLNULL);
add_scope_level((yyval.bf_node), NO);
;}
break;
case 81:
#line 1276 "gram1.y"
{ parstate = INDCL;
(yyval.bf_node) = get_bfnd(fi, CONTROL_END, SMNULL, LLNULL, LLNULL, LLNULL);
/*process_interface($$);*/ /*podd 01.02.03*/
delete_beyond_scope_level(pred_bfnd);
;}
break;
case 82:
#line 1284 "gram1.y"
{ (yyval.hash_entry) = look_up_sym(yytext); ;}
break;
case 83:
#line 1288 "gram1.y"
{ (yyval.hash_entry) = (yyvsp[(1) - (1)].hash_entry); ;}
break;
case 84:
#line 1290 "gram1.y"
{ (yyval.hash_entry) = (yyvsp[(1) - (1)].hash_entry); ;}
break;
case 85:
#line 1294 "gram1.y"
{ (yyval.hash_entry) = look_up_op(PLUS); ;}
break;
case 86:
#line 1296 "gram1.y"
{ (yyval.hash_entry) = look_up_op(MINUS); ;}
break;
case 87:
#line 1298 "gram1.y"
{ (yyval.hash_entry) = look_up_op(ASTER); ;}
break;
case 88:
#line 1300 "gram1.y"
{ (yyval.hash_entry) = look_up_op(DASTER); ;}
break;
case 89:
#line 1302 "gram1.y"
{ (yyval.hash_entry) = look_up_op(SLASH); ;}
break;
case 90:
#line 1304 "gram1.y"
{ (yyval.hash_entry) = look_up_op(DSLASH); ;}
break;
case 91:
#line 1306 "gram1.y"
{ (yyval.hash_entry) = look_up_op(AND); ;}
break;
case 92:
#line 1308 "gram1.y"
{ (yyval.hash_entry) = look_up_op(OR); ;}
break;
case 93:
#line 1310 "gram1.y"
{ (yyval.hash_entry) = look_up_op(XOR); ;}
break;
case 94:
#line 1312 "gram1.y"
{ (yyval.hash_entry) = look_up_op(NOT); ;}
break;
case 95:
#line 1314 "gram1.y"
{ (yyval.hash_entry) = look_up_op(EQ); ;}
break;
case 96:
#line 1316 "gram1.y"
{ (yyval.hash_entry) = look_up_op(NE); ;}
break;
case 97:
#line 1318 "gram1.y"
{ (yyval.hash_entry) = look_up_op(GT); ;}
break;
case 98:
#line 1320 "gram1.y"
{ (yyval.hash_entry) = look_up_op(GE); ;}
break;
case 99:
#line 1322 "gram1.y"
{ (yyval.hash_entry) = look_up_op(LT); ;}
break;
case 100:
#line 1324 "gram1.y"
{ (yyval.hash_entry) = look_up_op(LE); ;}
break;
case 101:
#line 1326 "gram1.y"
{ (yyval.hash_entry) = look_up_op(NEQV); ;}
break;
case 102:
#line 1328 "gram1.y"
{ (yyval.hash_entry) = look_up_op(EQV); ;}
break;
case 103:
#line 1333 "gram1.y"
{
PTR_SYMB s;
type_var = s = make_derived_type((yyvsp[(4) - (4)].hash_entry), TYNULL, LOCAL);
(yyval.bf_node) = get_bfnd(fi, STRUCT_DECL, s, LLNULL, LLNULL, LLNULL);
add_scope_level((yyval.bf_node), NO);
;}
break;
case 104:
#line 1342 "gram1.y"
{ PTR_SYMB s;
type_var = s = make_derived_type((yyvsp[(7) - (7)].hash_entry), TYNULL, LOCAL);
s->attr = s->attr | type_opt;
(yyval.bf_node) = get_bfnd(fi, STRUCT_DECL, s, (yyvsp[(5) - (7)].ll_node), LLNULL, LLNULL);
add_scope_level((yyval.bf_node), NO);
;}
break;
case 105:
#line 1352 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi, CONTROL_END, SMNULL, LLNULL, LLNULL, LLNULL);
if (type_var != SMNULL)
process_type(type_var, (yyval.bf_node));
type_var = SMNULL;
delete_beyond_scope_level(pred_bfnd);
;}
break;
case 106:
#line 1360 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi, CONTROL_END, SMNULL, LLNULL, LLNULL, LLNULL);
if (type_var != SMNULL)
process_type(type_var, (yyval.bf_node));
type_var = SMNULL;
delete_beyond_scope_level(pred_bfnd);
;}
break;
case 107:
#line 1370 "gram1.y"
{
PTR_LLND q, r, l;
/* PTR_SYMB s;*/
PTR_TYPE t;
int type_opts;
vartype = (yyvsp[(1) - (7)].data_type);
if((yyvsp[(6) - (7)].ll_node) && vartype->variant != T_STRING)
errstr("Non character entity %s has length specification",(yyvsp[(3) - (7)].hash_entry)->ident,41);
t = make_type_node(vartype, (yyvsp[(6) - (7)].ll_node));
type_opts = type_options;
if ((yyvsp[(5) - (7)].ll_node)) type_opts = type_opts | DIMENSION_BIT;
if ((yyvsp[(5) - (7)].ll_node))
q = deal_with_options((yyvsp[(3) - (7)].hash_entry), t, type_opts, (yyvsp[(5) - (7)].ll_node), ndim, (yyvsp[(7) - (7)].ll_node), (yyvsp[(5) - (7)].ll_node));
else q = deal_with_options((yyvsp[(3) - (7)].hash_entry), t, type_opts, attr_dims, attr_ndim, (yyvsp[(7) - (7)].ll_node), (yyvsp[(5) - (7)].ll_node));
r = make_llnd(fi, EXPR_LIST, q, LLNULL, SMNULL);
l = make_llnd(fi, TYPE_OP, LLNULL, LLNULL, SMNULL);
l->type = vartype;
(yyval.bf_node) = get_bfnd(fi,VAR_DECL, SMNULL, r, l, (yyvsp[(2) - (7)].ll_node));
;}
break;
case 108:
#line 1391 "gram1.y"
{
PTR_LLND q, r;
/* PTR_SYMB s;*/
PTR_TYPE t;
int type_opts;
if((yyvsp[(5) - (6)].ll_node) && vartype->variant != T_STRING)
errstr("Non character entity %s has length specification",(yyvsp[(3) - (6)].hash_entry)->ident,41);
t = make_type_node(vartype, (yyvsp[(5) - (6)].ll_node));
type_opts = type_options;
if ((yyvsp[(4) - (6)].ll_node)) type_opts = type_opts | DIMENSION_BIT;
if ((yyvsp[(4) - (6)].ll_node))
q = deal_with_options((yyvsp[(3) - (6)].hash_entry), t, type_opts, (yyvsp[(4) - (6)].ll_node), ndim, (yyvsp[(6) - (6)].ll_node), (yyvsp[(4) - (6)].ll_node));
else q = deal_with_options((yyvsp[(3) - (6)].hash_entry), t, type_opts, attr_dims, attr_ndim, (yyvsp[(6) - (6)].ll_node), (yyvsp[(4) - (6)].ll_node));
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
add_to_lowLevelList(r, (yyvsp[(1) - (6)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 109:
#line 1410 "gram1.y"
{ (yyval.ll_node) = LLNULL; ;}
break;
case 110:
#line 1412 "gram1.y"
{ (yyval.ll_node) = LLNULL; ;}
break;
case 111:
#line 1414 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(3) - (5)].ll_node); ;}
break;
case 112:
#line 1418 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST); ;}
break;
case 113:
#line 1420 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (4)].ll_node), (yyvsp[(4) - (4)].ll_node), EXPR_LIST); ;}
break;
case 114:
#line 1424 "gram1.y"
{ type_options = type_options | PARAMETER_BIT;
(yyval.ll_node) = make_llnd(fi, PARAMETER_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 115:
#line 1428 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 116:
#line 1430 "gram1.y"
{ type_options = type_options | ALLOCATABLE_BIT;
(yyval.ll_node) = make_llnd(fi, ALLOCATABLE_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 117:
#line 1434 "gram1.y"
{ type_options = type_options | DIMENSION_BIT;
attr_ndim = ndim;
attr_dims = (yyvsp[(2) - (2)].ll_node);
(yyval.ll_node) = make_llnd(fi, DIMENSION_OP, (yyvsp[(2) - (2)].ll_node), LLNULL, SMNULL);
;}
break;
case 118:
#line 1440 "gram1.y"
{ type_options = type_options | EXTERNAL_BIT;
(yyval.ll_node) = make_llnd(fi, EXTERNAL_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 119:
#line 1444 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(3) - (4)].ll_node); ;}
break;
case 120:
#line 1446 "gram1.y"
{ type_options = type_options | INTRINSIC_BIT;
(yyval.ll_node) = make_llnd(fi, INTRINSIC_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 121:
#line 1450 "gram1.y"
{ type_options = type_options | OPTIONAL_BIT;
(yyval.ll_node) = make_llnd(fi, OPTIONAL_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 122:
#line 1454 "gram1.y"
{ type_options = type_options | POINTER_BIT;
(yyval.ll_node) = make_llnd(fi, POINTER_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 123:
#line 1458 "gram1.y"
{ type_options = type_options | SAVE_BIT;
(yyval.ll_node) = make_llnd(fi, SAVE_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 124:
#line 1462 "gram1.y"
{ type_options = type_options | SAVE_BIT;
(yyval.ll_node) = make_llnd(fi, STATIC_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 125:
#line 1466 "gram1.y"
{ type_options = type_options | TARGET_BIT;
(yyval.ll_node) = make_llnd(fi, TARGET_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 126:
#line 1472 "gram1.y"
{ type_options = type_options | IN_BIT; type_opt = IN_BIT;
(yyval.ll_node) = make_llnd(fi, IN_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 127:
#line 1476 "gram1.y"
{ type_options = type_options | OUT_BIT; type_opt = OUT_BIT;
(yyval.ll_node) = make_llnd(fi, OUT_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 128:
#line 1480 "gram1.y"
{ type_options = type_options | INOUT_BIT; type_opt = INOUT_BIT;
(yyval.ll_node) = make_llnd(fi, INOUT_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 129:
#line 1486 "gram1.y"
{ type_options = type_options | PUBLIC_BIT;
type_opt = PUBLIC_BIT;
(yyval.ll_node) = make_llnd(fi, PUBLIC_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 130:
#line 1491 "gram1.y"
{ type_options = type_options | PRIVATE_BIT;
type_opt = PRIVATE_BIT;
(yyval.ll_node) = make_llnd(fi, PRIVATE_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 131:
#line 1498 "gram1.y"
{
PTR_LLND q, r;
PTR_SYMB s;
s = make_scalar((yyvsp[(7) - (7)].hash_entry), TYNULL, LOCAL);
s->attr = s->attr | type_opt;
q = make_llnd(fi,VAR_REF, LLNULL, LLNULL, s);
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi, INTENT_STMT, SMNULL, r, (yyvsp[(4) - (7)].ll_node), LLNULL);
;}
break;
case 132:
#line 1509 "gram1.y"
{
PTR_LLND q, r;
PTR_SYMB s;
s = make_scalar((yyvsp[(3) - (3)].hash_entry), TYNULL, LOCAL);
s->attr = s->attr | type_opt;
q = make_llnd(fi,VAR_REF, LLNULL, LLNULL, s);
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
add_to_lowLevelList(r, (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 133:
#line 1522 "gram1.y"
{
PTR_LLND q, r;
PTR_SYMB s;
s = make_scalar((yyvsp[(4) - (4)].hash_entry), TYNULL, LOCAL);
s->attr = s->attr | OPTIONAL_BIT;
q = make_llnd(fi,VAR_REF, LLNULL, LLNULL, s);
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi, OPTIONAL_STMT, SMNULL, r, LLNULL, LLNULL);
;}
break;
case 134:
#line 1533 "gram1.y"
{
PTR_LLND q, r;
PTR_SYMB s;
s = make_scalar((yyvsp[(3) - (3)].hash_entry), TYNULL, LOCAL);
s->attr = s->attr | OPTIONAL_BIT;
q = make_llnd(fi,VAR_REF, LLNULL, LLNULL, s);
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
add_to_lowLevelList(r, (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 135:
#line 1546 "gram1.y"
{
PTR_LLND r;
PTR_SYMB s;
s = (yyvsp[(4) - (4)].ll_node)->entry.Template.symbol;
s->attr = s->attr | SAVE_BIT;
r = make_llnd(fi,EXPR_LIST, (yyvsp[(4) - (4)].ll_node), LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi, STATIC_STMT, SMNULL, r, LLNULL, LLNULL);
;}
break;
case 136:
#line 1556 "gram1.y"
{
PTR_LLND r;
PTR_SYMB s;
s = (yyvsp[(3) - (3)].ll_node)->entry.Template.symbol;
s->attr = s->attr | SAVE_BIT;
r = make_llnd(fi,EXPR_LIST, (yyvsp[(3) - (3)].ll_node), LLNULL, SMNULL);
add_to_lowLevelList(r, (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 137:
#line 1569 "gram1.y"
{
privateall = 1;
(yyval.bf_node) = get_bfnd(fi, PRIVATE_STMT, SMNULL, LLNULL, LLNULL, LLNULL);
;}
break;
case 138:
#line 1574 "gram1.y"
{
/*type_options = type_options | PRIVATE_BIT;*/
(yyval.bf_node) = get_bfnd(fi, PRIVATE_STMT, SMNULL, (yyvsp[(5) - (5)].ll_node), LLNULL, LLNULL);
;}
break;
case 139:
#line 1580 "gram1.y"
{type_opt = PRIVATE_BIT;;}
break;
case 140:
#line 1584 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi, SEQUENCE_STMT, SMNULL, LLNULL, LLNULL, LLNULL);
;}
break;
case 141:
#line 1589 "gram1.y"
{
/*saveall = YES;*/ /*14.03.03*/
(yyval.bf_node) = get_bfnd(fi, PUBLIC_STMT, SMNULL, LLNULL, LLNULL, LLNULL);
;}
break;
case 142:
#line 1594 "gram1.y"
{
/*type_options = type_options | PUBLIC_BIT;*/
(yyval.bf_node) = get_bfnd(fi, PUBLIC_STMT, SMNULL, (yyvsp[(5) - (5)].ll_node), LLNULL, LLNULL);
;}
break;
case 143:
#line 1600 "gram1.y"
{type_opt = PUBLIC_BIT;;}
break;
case 144:
#line 1604 "gram1.y"
{
type_options = 0;
/* following block added by dbg */
ndim = 0;
attr_ndim = 0;
attr_dims = LLNULL;
/* end section added by dbg */
(yyval.data_type) = make_type_node((yyvsp[(1) - (4)].data_type), (yyvsp[(3) - (4)].ll_node));
;}
break;
case 145:
#line 1614 "gram1.y"
{ PTR_TYPE t;
type_options = 0;
ndim = 0;
attr_ndim = 0;
attr_dims = LLNULL;
t = lookup_type((yyvsp[(3) - (5)].hash_entry));
vartype = t;
(yyval.data_type) = make_type_node(t, LLNULL);
;}
break;
case 146:
#line 1627 "gram1.y"
{opt_kwd_hedr = YES;;}
break;
case 147:
#line 1632 "gram1.y"
{ PTR_TYPE p;
PTR_LLND q;
PTR_SYMB s;
s = (yyvsp[(2) - (2)].hash_entry)->id_attr;
if (s)
s->attr = (yyvsp[(1) - (2)].token);
else {
p = undeftype ? global_unknown : impltype[*(yyvsp[(2) - (2)].hash_entry)->ident - 'a'];
s = install_entry((yyvsp[(2) - (2)].hash_entry), SOFT);
s->attr = (yyvsp[(1) - (2)].token);
set_type(s, p, LOCAL);
}
q = make_llnd(fi,VAR_REF, LLNULL, LLNULL, (yyvsp[(2) - (2)].hash_entry)->id_attr);
q = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi,ATTR_DECL, SMNULL, q, LLNULL, LLNULL);
;}
break;
case 148:
#line 1651 "gram1.y"
{ PTR_TYPE p;
PTR_LLND q, r;
PTR_SYMB s;
int att;
att = (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1->entry.Template.ll_ptr1->
entry.Template.symbol->attr;
s = (yyvsp[(3) - (3)].hash_entry)->id_attr;
if (s)
s->attr = att;
else {
p = undeftype ? global_unknown : impltype[*(yyvsp[(3) - (3)].hash_entry)->ident - 'a'];
s = install_entry((yyvsp[(3) - (3)].hash_entry), SOFT);
s->attr = att;
set_type(s, p, LOCAL);
}
q = make_llnd(fi,VAR_REF, LLNULL, LLNULL, (yyvsp[(3) - (3)].hash_entry)->id_attr);
for (r = (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1;
r->entry.list.next;
r = r->entry.list.next) ;
r->entry.list.next = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
;}
break;
case 149:
#line 1677 "gram1.y"
{ (yyval.token) = ATT_GLOBAL; ;}
break;
case 150:
#line 1679 "gram1.y"
{ (yyval.token) = ATT_CLUSTER; ;}
break;
case 151:
#line 1691 "gram1.y"
{
/* varleng = ($1<0 || $1==TYLONG ? 0 : typesize[$1]); */
vartype = (yyvsp[(1) - (1)].data_type);
;}
break;
case 152:
#line 1698 "gram1.y"
{ (yyval.data_type) = global_int; ;}
break;
case 153:
#line 1699 "gram1.y"
{ (yyval.data_type) = global_float; ;}
break;
case 154:
#line 1700 "gram1.y"
{ (yyval.data_type) = global_complex; ;}
break;
case 155:
#line 1701 "gram1.y"
{ (yyval.data_type) = global_double; ;}
break;
case 156:
#line 1702 "gram1.y"
{ (yyval.data_type) = global_dcomplex; ;}
break;
case 157:
#line 1703 "gram1.y"
{ (yyval.data_type) = global_bool; ;}
break;
case 158:
#line 1704 "gram1.y"
{ (yyval.data_type) = global_string; ;}
break;
case 159:
#line 1709 "gram1.y"
{ (yyval.ll_node) = LLNULL; ;}
break;
case 160:
#line 1711 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 161:
#line 1715 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, LEN_OP, (yyvsp[(3) - (5)].ll_node), LLNULL, SMNULL); ;}
break;
case 162:
#line 1717 "gram1.y"
{ PTR_LLND l;
l = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
l->entry.string_val = (char *)"*";
(yyval.ll_node) = make_llnd(fi, LEN_OP, l,l, SMNULL);
;}
break;
case 163:
#line 1724 "gram1.y"
{(yyval.ll_node) = make_llnd(fi, LEN_OP, (yyvsp[(5) - (6)].ll_node), (yyvsp[(5) - (6)].ll_node), SMNULL);;}
break;
case 164:
#line 1728 "gram1.y"
{ (yyval.ll_node) = LLNULL; ;}
break;
case 165:
#line 1730 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 166:
#line 1732 "gram1.y"
{ /*$$ = make_llnd(fi, PAREN_OP, $2, LLNULL, SMNULL);*/ (yyval.ll_node) = (yyvsp[(3) - (5)].ll_node); ;}
break;
case 167:
#line 1740 "gram1.y"
{ if((yyvsp[(7) - (9)].ll_node)->variant==LENGTH_OP && (yyvsp[(3) - (9)].ll_node)->variant==(yyvsp[(7) - (9)].ll_node)->variant)
(yyvsp[(7) - (9)].ll_node)->variant=KIND_OP;
(yyval.ll_node) = make_llnd(fi, CONS, (yyvsp[(3) - (9)].ll_node), (yyvsp[(7) - (9)].ll_node), SMNULL);
;}
break;
case 168:
#line 1747 "gram1.y"
{ if(vartype->variant == T_STRING)
(yyval.ll_node) = make_llnd(fi,LENGTH_OP,(yyvsp[(1) - (1)].ll_node),LLNULL,SMNULL);
else
(yyval.ll_node) = make_llnd(fi,KIND_OP,(yyvsp[(1) - (1)].ll_node),LLNULL,SMNULL);
;}
break;
case 169:
#line 1753 "gram1.y"
{ PTR_LLND l;
l = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
l->entry.string_val = (char *)"*";
(yyval.ll_node) = make_llnd(fi,LENGTH_OP,l,LLNULL,SMNULL);
;}
break;
case 170:
#line 1759 "gram1.y"
{ /* $$ = make_llnd(fi, SPEC_PAIR, $2, LLNULL, SMNULL); */
char *q;
q = (yyvsp[(1) - (2)].ll_node)->entry.string_val;
if (strcmp(q, "len") == 0)
(yyval.ll_node) = make_llnd(fi,LENGTH_OP,(yyvsp[(2) - (2)].ll_node),LLNULL,SMNULL);
else
(yyval.ll_node) = make_llnd(fi,KIND_OP,(yyvsp[(2) - (2)].ll_node),LLNULL,SMNULL);
;}
break;
case 171:
#line 1768 "gram1.y"
{ PTR_LLND l;
l = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
l->entry.string_val = (char *)"*";
(yyval.ll_node) = make_llnd(fi,LENGTH_OP,l,LLNULL,SMNULL);
;}
break;
case 172:
#line 1776 "gram1.y"
{endioctl();;}
break;
case 173:
#line 1789 "gram1.y"
{ (yyval.ll_node) = LLNULL; ;}
break;
case 174:
#line 1791 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(2) - (2)].ll_node); ;}
break;
case 175:
#line 1794 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, POINTST_OP, LLNULL, (yyvsp[(2) - (2)].ll_node), SMNULL); ;}
break;
case 176:
#line 1798 "gram1.y"
{ PTR_SYMB s;
PTR_LLND q, r;
if(! (yyvsp[(5) - (5)].ll_node)) {
err("No dimensions in DIMENSION statement", 42);
}
if(statement_kind == 1) /*DVM-directive*/
err("No shape specification", 65);
s = make_array((yyvsp[(4) - (5)].hash_entry), TYNULL, (yyvsp[(5) - (5)].ll_node), ndim, LOCAL);
s->attr = s->attr | DIMENSION_BIT;
q = make_llnd(fi,ARRAY_REF, (yyvsp[(5) - (5)].ll_node), LLNULL, s);
s->type->entry.ar_decl.ranges = (yyvsp[(5) - (5)].ll_node);
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi,DIM_STAT, SMNULL, r, LLNULL, LLNULL);
;}
break;
case 177:
#line 1813 "gram1.y"
{ PTR_SYMB s;
PTR_LLND q, r;
if(! (yyvsp[(4) - (4)].ll_node)) {
err("No dimensions in DIMENSION statement", 42);
}
s = make_array((yyvsp[(3) - (4)].hash_entry), TYNULL, (yyvsp[(4) - (4)].ll_node), ndim, LOCAL);
s->attr = s->attr | DIMENSION_BIT;
q = make_llnd(fi,ARRAY_REF, (yyvsp[(4) - (4)].ll_node), LLNULL, s);
s->type->entry.ar_decl.ranges = (yyvsp[(4) - (4)].ll_node);
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
add_to_lowLevelList(r, (yyvsp[(1) - (4)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 178:
#line 1829 "gram1.y"
{/* PTR_SYMB s;*/
PTR_LLND r;
/*if(!$5) {
err("No dimensions in ALLOCATABLE statement",305);
}
s = make_array($4, TYNULL, $5, ndim, LOCAL);
s->attr = s->attr | ALLOCATABLE_BIT;
q = make_llnd(fi,ARRAY_REF, $5, LLNULL, s);
s->type->entry.ar_decl.ranges = $5;
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
*/
(yyvsp[(4) - (4)].ll_node)->entry.Template.symbol->attr = (yyvsp[(4) - (4)].ll_node)->entry.Template.symbol->attr | ALLOCATABLE_BIT;
r = make_llnd(fi,EXPR_LIST, (yyvsp[(4) - (4)].ll_node), LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi, ALLOCATABLE_STMT, SMNULL, r, LLNULL, LLNULL);
;}
break;
case 179:
#line 1847 "gram1.y"
{ /*PTR_SYMB s;*/
PTR_LLND r;
/* if(! $4) {
err("No dimensions in ALLOCATABLE statement",305);
}
s = make_array($3, TYNULL, $4, ndim, LOCAL);
s->attr = s->attr | ALLOCATABLE_BIT;
q = make_llnd(fi,ARRAY_REF, $4, LLNULL, s);
s->type->entry.ar_decl.ranges = $4;
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
*/
(yyvsp[(3) - (3)].ll_node)->entry.Template.symbol->attr = (yyvsp[(3) - (3)].ll_node)->entry.Template.symbol->attr | ALLOCATABLE_BIT;
r = make_llnd(fi,EXPR_LIST, (yyvsp[(3) - (3)].ll_node), LLNULL, SMNULL);
add_to_lowLevelList(r, (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 180:
#line 1867 "gram1.y"
{ PTR_SYMB s;
PTR_LLND r;
/* if(! $5) {
err("No dimensions in POINTER statement",306);
}
s = make_array($4, TYNULL, $5, ndim, LOCAL);
s->attr = s->attr | POINTER_BIT;
q = make_llnd(fi,ARRAY_REF, $5, LLNULL, s);
s->type->entry.ar_decl.ranges = $5;
*/
/*s = make_pointer( $4->entry.Template.symbol->parent, TYNULL, LOCAL);*/ /*17.02.03*/
/*$4->entry.Template.symbol->attr = $4->entry.Template.symbol->attr | POINTER_BIT;*/
s = (yyvsp[(4) - (4)].ll_node)->entry.Template.symbol; /*17.02.03*/
s->attr = s->attr | POINTER_BIT;
r = make_llnd(fi,EXPR_LIST, (yyvsp[(4) - (4)].ll_node), LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi, POINTER_STMT, SMNULL, r, LLNULL, LLNULL);
;}
break;
case 181:
#line 1887 "gram1.y"
{ PTR_SYMB s;
PTR_LLND r;
/* if(! $4) {
err("No dimensions in POINTER statement",306);
}
s = make_array($3, TYNULL, $4, ndim, LOCAL);
s->attr = s->attr | POINTER_BIT;
q = make_llnd(fi,ARRAY_REF, $4, LLNULL, s);
s->type->entry.ar_decl.ranges = $4;
*/
/*s = make_pointer( $3->entry.Template.symbol->parent, TYNULL, LOCAL);*/ /*17.02.03*/
/*$3->entry.Template.symbol->attr = $3->entry.Template.symbol->attr | POINTER_BIT;*/
s = (yyvsp[(3) - (3)].ll_node)->entry.Template.symbol; /*17.02.03*/
s->attr = s->attr | POINTER_BIT;
r = make_llnd(fi,EXPR_LIST, (yyvsp[(3) - (3)].ll_node), LLNULL, SMNULL);
add_to_lowLevelList(r, (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 182:
#line 1909 "gram1.y"
{/* PTR_SYMB s;*/
PTR_LLND r;
/* if(! $5) {
err("No dimensions in TARGET statement",307);
}
s = make_array($4, TYNULL, $5, ndim, LOCAL);
s->attr = s->attr | TARGET_BIT;
q = make_llnd(fi,ARRAY_REF, $5, LLNULL, s);
s->type->entry.ar_decl.ranges = $5;
*/
(yyvsp[(4) - (4)].ll_node)->entry.Template.symbol->attr = (yyvsp[(4) - (4)].ll_node)->entry.Template.symbol->attr | TARGET_BIT;
r = make_llnd(fi,EXPR_LIST, (yyvsp[(4) - (4)].ll_node), LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi, TARGET_STMT, SMNULL, r, LLNULL, LLNULL);
;}
break;
case 183:
#line 1926 "gram1.y"
{ /*PTR_SYMB s;*/
PTR_LLND r;
/* if(! $4) {
err("No dimensions in TARGET statement",307);
}
s = make_array($3, TYNULL, $4, ndim, LOCAL);
s->attr = s->attr | TARGET_BIT;
q = make_llnd(fi,ARRAY_REF, $4, LLNULL, s);
s->type->entry.ar_decl.ranges = $4;
*/
(yyvsp[(3) - (3)].ll_node)->entry.Template.symbol->attr = (yyvsp[(3) - (3)].ll_node)->entry.Template.symbol->attr | TARGET_BIT;
r = make_llnd(fi,EXPR_LIST, (yyvsp[(3) - (3)].ll_node), LLNULL, SMNULL);
add_to_lowLevelList(r, (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 184:
#line 1944 "gram1.y"
{ PTR_LLND p, q;
p = make_llnd(fi,EXPR_LIST, (yyvsp[(3) - (3)].ll_node), LLNULL, SMNULL);
q = make_llnd(fi,COMM_LIST, p, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi,COMM_STAT, SMNULL, q, LLNULL, LLNULL);
;}
break;
case 185:
#line 1951 "gram1.y"
{ PTR_LLND p, q;
p = make_llnd(fi,EXPR_LIST, (yyvsp[(4) - (4)].ll_node), LLNULL, SMNULL);
q = make_llnd(fi,COMM_LIST, p, LLNULL, (yyvsp[(3) - (4)].symbol));
(yyval.bf_node) = get_bfnd(fi,COMM_STAT, SMNULL, q, LLNULL, LLNULL);
;}
break;
case 186:
#line 1958 "gram1.y"
{ PTR_LLND p, q;
p = make_llnd(fi,EXPR_LIST, (yyvsp[(5) - (5)].ll_node), LLNULL, SMNULL);
q = make_llnd(fi,COMM_LIST, p, LLNULL, (yyvsp[(3) - (5)].symbol));
add_to_lowList(q, (yyvsp[(1) - (5)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 187:
#line 1965 "gram1.y"
{ PTR_LLND p, r;
p = make_llnd(fi,EXPR_LIST, (yyvsp[(3) - (3)].ll_node), LLNULL, SMNULL);
/*q = make_llnd(fi,COMM_LIST, p, LLNULL, SMNULL);*/
for (r = (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1;
r->entry.list.next;
r = r->entry.list.next);
add_to_lowLevelList(p, r->entry.Template.ll_ptr1);
;}
break;
case 188:
#line 1978 "gram1.y"
{ PTR_LLND q, r;
q = make_llnd(fi,EXPR_LIST, (yyvsp[(4) - (4)].ll_node), LLNULL, SMNULL);
r = make_llnd(fi,NAMELIST_LIST, q, LLNULL, (yyvsp[(3) - (4)].symbol));
(yyval.bf_node) = get_bfnd(fi,NAMELIST_STAT, SMNULL, r, LLNULL, LLNULL);
;}
break;
case 189:
#line 1985 "gram1.y"
{ PTR_LLND q, r;
q = make_llnd(fi,EXPR_LIST, (yyvsp[(5) - (5)].ll_node), LLNULL, SMNULL);
r = make_llnd(fi,NAMELIST_LIST, q, LLNULL, (yyvsp[(3) - (5)].symbol));
add_to_lowList(r, (yyvsp[(1) - (5)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 190:
#line 1992 "gram1.y"
{ PTR_LLND q, r;
q = make_llnd(fi,EXPR_LIST, (yyvsp[(3) - (3)].ll_node), LLNULL, SMNULL);
for (r = (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1;
r->entry.list.next;
r = r->entry.list.next);
add_to_lowLevelList(q, r->entry.Template.ll_ptr1);
;}
break;
case 191:
#line 2003 "gram1.y"
{ (yyval.symbol) = make_local_entity((yyvsp[(2) - (3)].hash_entry), NAMELIST_NAME,global_default,LOCAL); ;}
break;
case 192:
#line 2007 "gram1.y"
{ (yyval.symbol) = NULL; /*make_common(look_up_sym("*"));*/ ;}
break;
case 193:
#line 2009 "gram1.y"
{ (yyval.symbol) = make_common((yyvsp[(2) - (3)].hash_entry)); ;}
break;
case 194:
#line 2014 "gram1.y"
{ PTR_SYMB s;
if((yyvsp[(2) - (2)].ll_node)) {
s = make_array((yyvsp[(1) - (2)].hash_entry), TYNULL, (yyvsp[(2) - (2)].ll_node), ndim, LOCAL);
s->attr = s->attr | DIMENSION_BIT;
s->type->entry.ar_decl.ranges = (yyvsp[(2) - (2)].ll_node);
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, (yyvsp[(2) - (2)].ll_node), LLNULL, s);
}
else {
s = make_scalar((yyvsp[(1) - (2)].hash_entry), TYNULL, LOCAL);
(yyval.ll_node) = make_llnd(fi,VAR_REF, LLNULL, LLNULL, s);
}
;}
break;
case 195:
#line 2032 "gram1.y"
{ PTR_LLND p, q;
PTR_SYMB s;
s = make_external((yyvsp[(4) - (4)].hash_entry), TYNULL);
s->attr = s->attr | EXTERNAL_BIT;
q = make_llnd(fi, VAR_REF, LLNULL, LLNULL, s);
p = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi,EXTERN_STAT, SMNULL, p, LLNULL, LLNULL);
;}
break;
case 196:
#line 2043 "gram1.y"
{ PTR_LLND p, q;
PTR_SYMB s;
s = make_external((yyvsp[(3) - (3)].hash_entry), TYNULL);
s->attr = s->attr | EXTERNAL_BIT;
p = make_llnd(fi, VAR_REF, LLNULL, LLNULL, s);
q = make_llnd(fi,EXPR_LIST, p, LLNULL, SMNULL);
add_to_lowLevelList(q, (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 197:
#line 2055 "gram1.y"
{ PTR_LLND p, q;
PTR_SYMB s;
s = make_intrinsic((yyvsp[(4) - (4)].hash_entry), TYNULL); /*make_function($3, TYNULL, NO);*/
s->attr = s->attr | INTRINSIC_BIT;
q = make_llnd(fi, VAR_REF, LLNULL, LLNULL, s);
p = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi,INTRIN_STAT, SMNULL, p,
LLNULL, LLNULL);
;}
break;
case 198:
#line 2067 "gram1.y"
{ PTR_LLND p, q;
PTR_SYMB s;
s = make_intrinsic((yyvsp[(3) - (3)].hash_entry), TYNULL); /* make_function($3, TYNULL, NO);*/
s->attr = s->attr | INTRINSIC_BIT;
p = make_llnd(fi, VAR_REF, LLNULL, LLNULL, s);
q = make_llnd(fi,EXPR_LIST, p, LLNULL, SMNULL);
add_to_lowLevelList(q, (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 199:
#line 2081 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,EQUI_STAT, SMNULL, (yyvsp[(3) - (3)].ll_node),
LLNULL, LLNULL);
;}
break;
case 200:
#line 2087 "gram1.y"
{
add_to_lowLevelList((yyvsp[(3) - (3)].ll_node), (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 201:
#line 2094 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,EQUI_LIST, (yyvsp[(2) - (3)].ll_node), LLNULL, SMNULL);
;}
break;
case 202:
#line 2100 "gram1.y"
{ PTR_LLND p;
p = make_llnd(fi,EXPR_LIST, (yyvsp[(3) - (3)].ll_node), LLNULL, SMNULL);
(yyval.ll_node) = make_llnd(fi,EXPR_LIST, (yyvsp[(1) - (3)].ll_node), p, SMNULL);
;}
break;
case 203:
#line 2106 "gram1.y"
{ PTR_LLND p;
p = make_llnd(fi,EXPR_LIST, (yyvsp[(3) - (3)].ll_node), LLNULL, SMNULL);
add_to_lowLevelList(p, (yyvsp[(1) - (3)].ll_node));
;}
break;
case 204:
#line 2114 "gram1.y"
{ PTR_SYMB s;
s=make_scalar((yyvsp[(1) - (1)].hash_entry),TYNULL,LOCAL);
(yyval.ll_node) = make_llnd(fi,VAR_REF, LLNULL, LLNULL, s);
s->attr = s->attr | EQUIVALENCE_BIT;
/*$$=$1; $$->entry.Template.symbol->attr = $$->entry.Template.symbol->attr | EQUIVALENCE_BIT; */
;}
break;
case 205:
#line 2121 "gram1.y"
{ PTR_SYMB s;
s=make_array((yyvsp[(1) - (4)].hash_entry),TYNULL,LLNULL,0,LOCAL);
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, (yyvsp[(3) - (4)].ll_node), LLNULL, s);
s->attr = s->attr | EQUIVALENCE_BIT;
/*$$->entry.Template.symbol->attr = $$->entry.Template.symbol->attr | EQUIVALENCE_BIT; */
;}
break;
case 207:
#line 2140 "gram1.y"
{ PTR_LLND p;
data_stat = NO;
p = make_llnd(fi,STMT_STR, LLNULL, LLNULL,
SMNULL);
p->entry.string_val = copys(stmtbuf);
(yyval.bf_node) = get_bfnd(fi,DATA_DECL, SMNULL, p, LLNULL, LLNULL);
;}
break;
case 210:
#line 2154 "gram1.y"
{data_stat = YES;;}
break;
case 211:
#line 2158 "gram1.y"
{
if (parstate == OUTSIDE)
{ PTR_BFND p;
p = get_bfnd(fi,PROG_HEDR,
make_program(look_up_sym("_MAIN")),
LLNULL, LLNULL, LLNULL);
set_blobs(p, global_bfnd, NEW_GROUP1);
add_scope_level(p, NO);
position = IN_PROC;
/*parstate = INDCL;*/
}
if(parstate < INDCL)
{
/* enddcl();*/
parstate = INDCL;
}
;}
break;
case 222:
#line 2203 "gram1.y"
{;;}
break;
case 223:
#line 2207 "gram1.y"
{ (yyval.symbol)= make_scalar((yyvsp[(1) - (1)].hash_entry), TYNULL, LOCAL);;}
break;
case 224:
#line 2211 "gram1.y"
{ (yyval.symbol)= make_scalar((yyvsp[(1) - (1)].hash_entry), TYNULL, LOCAL);
(yyval.symbol)->attr = (yyval.symbol)->attr | DATA_BIT;
;}
break;
case 225:
#line 2217 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, DATA_SUBS, (yyvsp[(2) - (3)].ll_node), LLNULL, SMNULL); ;}
break;
case 226:
#line 2221 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, DATA_RANGE, (yyvsp[(2) - (5)].ll_node), (yyvsp[(4) - (5)].ll_node), SMNULL); ;}
break;
case 227:
#line 2225 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 228:
#line 2227 "gram1.y"
{ (yyval.ll_node) = add_to_lowLevelList((yyvsp[(3) - (3)].ll_node), (yyvsp[(1) - (3)].ll_node)); ;}
break;
case 229:
#line 2231 "gram1.y"
{ (yyval.ll_node) = LLNULL; ;}
break;
case 230:
#line 2233 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 231:
#line 2237 "gram1.y"
{(yyval.ll_node)= make_llnd(fi, DATA_IMPL_DO, (yyvsp[(2) - (7)].ll_node), (yyvsp[(6) - (7)].ll_node), (yyvsp[(4) - (7)].symbol)); ;}
break;
case 232:
#line 2241 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 233:
#line 2243 "gram1.y"
{ (yyval.ll_node) = add_to_lowLevelList((yyvsp[(3) - (3)].ll_node), (yyvsp[(1) - (3)].ll_node)); ;}
break;
case 234:
#line 2247 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, DATA_ELT, (yyvsp[(2) - (2)].ll_node), LLNULL, (yyvsp[(1) - (2)].symbol)); ;}
break;
case 235:
#line 2249 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, DATA_ELT, (yyvsp[(2) - (2)].ll_node), LLNULL, (yyvsp[(1) - (2)].symbol)); ;}
break;
case 236:
#line 2251 "gram1.y"
{
(yyvsp[(2) - (3)].ll_node)->entry.Template.ll_ptr2 = (yyvsp[(3) - (3)].ll_node);
(yyval.ll_node) = make_llnd(fi, DATA_ELT, (yyvsp[(2) - (3)].ll_node), LLNULL, (yyvsp[(1) - (3)].symbol));
;}
break;
case 237:
#line 2256 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, DATA_ELT, (yyvsp[(1) - (1)].ll_node), LLNULL, SMNULL); ;}
break;
case 251:
#line 2280 "gram1.y"
{if((yyvsp[(2) - (6)].ll_node)->entry.Template.symbol->variant != TYPE_NAME)
errstr("Undefined type %s",(yyvsp[(2) - (6)].ll_node)->entry.Template.symbol->ident,319);
;}
break;
case 268:
#line 2325 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ICON_EXPR, (yyvsp[(1) - (1)].ll_node), LLNULL, SMNULL); ;}
break;
case 269:
#line 2327 "gram1.y"
{
PTR_LLND p;
p = intrinsic_op_node("+", UNARY_ADD_OP, (yyvsp[(2) - (2)].ll_node), LLNULL);
(yyval.ll_node) = make_llnd(fi,ICON_EXPR, p, LLNULL, SMNULL);
;}
break;
case 270:
#line 2334 "gram1.y"
{
PTR_LLND p;
p = intrinsic_op_node("-", MINUS_OP, (yyvsp[(2) - (2)].ll_node), LLNULL);
(yyval.ll_node) = make_llnd(fi,ICON_EXPR, p, LLNULL, SMNULL);
;}
break;
case 271:
#line 2341 "gram1.y"
{
PTR_LLND p;
p = intrinsic_op_node("+", ADD_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node));
(yyval.ll_node) = make_llnd(fi,ICON_EXPR, p, LLNULL, SMNULL);
;}
break;
case 272:
#line 2348 "gram1.y"
{
PTR_LLND p;
p = intrinsic_op_node("-", SUBT_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node));
(yyval.ll_node) = make_llnd(fi,ICON_EXPR, p, LLNULL, SMNULL);
;}
break;
case 273:
#line 2357 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 274:
#line 2359 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node("*", MULT_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 275:
#line 2361 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node("/", DIV_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 276:
#line 2365 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 277:
#line 2367 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node("**", EXP_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 278:
#line 2371 "gram1.y"
{
PTR_LLND p;
p = make_llnd(fi,INT_VAL, LLNULL, LLNULL, SMNULL);
p->entry.ival = atoi(yytext);
p->type = global_int;
(yyval.ll_node) = make_llnd(fi,EXPR_LIST, p, LLNULL, SMNULL);
;}
break;
case 279:
#line 2380 "gram1.y"
{
PTR_LLND p;
p = make_llnd(fi,VAR_REF, LLNULL, LLNULL, (yyvsp[(1) - (1)].symbol));
(yyval.ll_node) = make_llnd(fi,EXPR_LIST, p, LLNULL, SMNULL);
;}
break;
case 280:
#line 2387 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,EXPR_LIST, (yyvsp[(2) - (3)].ll_node), LLNULL, SMNULL);
;}
break;
case 281:
#line 2394 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,EXPR_LIST, (yyvsp[(1) - (1)].ll_node), LLNULL, SMNULL); ;}
break;
case 282:
#line 2396 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); ;}
break;
case 283:
#line 2400 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);
(yyval.ll_node)->entry.Template.symbol->attr = (yyval.ll_node)->entry.Template.symbol->attr | SAVE_BIT;
;}
break;
case 284:
#line 2404 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,COMM_LIST, LLNULL, LLNULL, (yyvsp[(1) - (1)].symbol));
(yyval.ll_node)->entry.Template.symbol->attr = (yyval.ll_node)->entry.Template.symbol->attr | SAVE_BIT;
;}
break;
case 285:
#line 2410 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(2) - (3)].ll_node), LLNULL, EXPR_LIST); ;}
break;
case 286:
#line 2412 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (5)].ll_node), (yyvsp[(4) - (5)].ll_node), EXPR_LIST); ;}
break;
case 287:
#line 2416 "gram1.y"
{ as_op_kwd_ = YES; ;}
break;
case 288:
#line 2420 "gram1.y"
{ as_op_kwd_ = NO; ;}
break;
case 289:
#line 2425 "gram1.y"
{
PTR_SYMB s;
s = make_scalar((yyvsp[(1) - (1)].hash_entry), TYNULL, LOCAL);
s->attr = s->attr | type_opt;
(yyval.ll_node) = make_llnd(fi,VAR_REF, LLNULL, LLNULL, s);
;}
break;
case 290:
#line 2432 "gram1.y"
{ PTR_SYMB s;
s = make_function((yyvsp[(3) - (4)].hash_entry), global_default, LOCAL);
s->variant = INTERFACE_NAME;
s->attr = s->attr | type_opt;
(yyval.ll_node) = make_llnd(fi,OPERATOR_OP, LLNULL, LLNULL, s);
;}
break;
case 291:
#line 2439 "gram1.y"
{ PTR_SYMB s;
s = make_procedure(look_up_sym("="), LOCAL);
s->variant = INTERFACE_NAME;
s->attr = s->attr | type_opt;
(yyval.ll_node) = make_llnd(fi,ASSIGNMENT_OP, LLNULL, LLNULL, s);
;}
break;
case 292:
#line 2449 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST); ;}
break;
case 293:
#line 2451 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); ;}
break;
case 294:
#line 2455 "gram1.y"
{ PTR_SYMB p;
/* The check if name and expr have compatible types has
not been done yet. */
p = make_constant((yyvsp[(1) - (3)].hash_entry), TYNULL);
p->attr = p->attr | PARAMETER_BIT;
p->entry.const_value = (yyvsp[(3) - (3)].ll_node);
(yyval.ll_node) = make_llnd(fi,CONST_REF, LLNULL, LLNULL, p);
;}
break;
case 295:
#line 2467 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, MODULE_PROC_STMT, SMNULL, (yyvsp[(2) - (2)].ll_node), LLNULL, LLNULL); ;}
break;
case 296:
#line 2470 "gram1.y"
{ PTR_SYMB s;
PTR_LLND q;
s = make_function((yyvsp[(1) - (1)].hash_entry), TYNULL, LOCAL);
s->variant = ROUTINE_NAME;
q = make_llnd(fi, VAR_REF, LLNULL, LLNULL, s);
(yyval.ll_node) = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
;}
break;
case 297:
#line 2479 "gram1.y"
{ PTR_LLND p, q;
PTR_SYMB s;
s = make_function((yyvsp[(3) - (3)].hash_entry), TYNULL, LOCAL);
s->variant = ROUTINE_NAME;
p = make_llnd(fi, VAR_REF, LLNULL, LLNULL, s);
q = make_llnd(fi,EXPR_LIST, p, LLNULL, SMNULL);
add_to_lowLevelList(q, (yyvsp[(1) - (3)].ll_node));
;}
break;
case 298:
#line 2492 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, USE_STMT, (yyvsp[(3) - (3)].symbol), LLNULL, LLNULL, LLNULL);
/*add_scope_level($3->entry.Template.func_hedr, YES);*/ /*17.06.01*/
copy_module_scope((yyvsp[(3) - (3)].symbol),LLNULL); /*17.03.03*/
colon_flag = NO;
;}
break;
case 299:
#line 2498 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, USE_STMT, (yyvsp[(3) - (6)].symbol), (yyvsp[(6) - (6)].ll_node), LLNULL, LLNULL);
/*add_scope_level(module_scope, YES); *//* 17.06.01*/
copy_module_scope((yyvsp[(3) - (6)].symbol),(yyvsp[(6) - (6)].ll_node)); /*17.03.03 */
colon_flag = NO;
;}
break;
case 300:
#line 2504 "gram1.y"
{ PTR_LLND l;
l = make_llnd(fi, ONLY_NODE, LLNULL, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi, USE_STMT, (yyvsp[(3) - (6)].symbol), l, LLNULL, LLNULL);
;}
break;
case 301:
#line 2510 "gram1.y"
{ PTR_LLND l;
l = make_llnd(fi, ONLY_NODE, (yyvsp[(7) - (7)].ll_node), LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi, USE_STMT, (yyvsp[(3) - (7)].symbol), l, LLNULL, LLNULL);
;}
break;
case 302:
#line 2518 "gram1.y"
{
if ((yyvsp[(1) - (1)].hash_entry)->id_attr == SMNULL)
warn1("Unknown module %s", (yyvsp[(1) - (1)].hash_entry)->ident,308);
(yyval.symbol) = make_global_entity((yyvsp[(1) - (1)].hash_entry), MODULE_NAME, global_default, NO);
module_scope = (yyval.symbol)->entry.Template.func_hedr;
;}
break;
case 303:
#line 2528 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST); ;}
break;
case 304:
#line 2530 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); ;}
break;
case 305:
#line 2534 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 306:
#line 2536 "gram1.y"
{ PTR_HASH oldhash,copyhash;
PTR_SYMB oldsym, newsym;
PTR_LLND m;
oldhash = just_look_up_sym_in_scope(module_scope, (yyvsp[(1) - (1)].hash_entry)->ident);
if (oldhash == HSNULL) {
errstr("Unknown identifier %s.", (yyvsp[(1) - (1)].hash_entry)->ident,309);
(yyval.ll_node)= LLNULL;
}
else {
oldsym = oldhash->id_attr;
copyhash=just_look_up_sym_in_scope(cur_scope(), (yyvsp[(1) - (1)].hash_entry)->ident);
if( copyhash && copyhash->id_attr && copyhash->id_attr->entry.Template.tag==module_scope->id)
{
newsym = copyhash->id_attr;
newsym->entry.Template.tag = 0;
}
else
{
newsym = make_local_entity((yyvsp[(1) - (1)].hash_entry), oldsym->variant, oldsym->type,LOCAL);
/* copies data in entry.Template structure and attr */
copy_sym_data(oldsym, newsym);
/*newsym->entry.Template.base_name = oldsym;*//*19.03.03*/
}
/* l = make_llnd(fi, VAR_REF, LLNULL, LLNULL, oldsym);*/
m = make_llnd(fi, VAR_REF, LLNULL, LLNULL, newsym);
(yyval.ll_node) = make_llnd(fi, RENAME_NODE, m, LLNULL, oldsym);
}
;}
break;
case 307:
#line 2569 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST); ;}
break;
case 308:
#line 2571 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); ;}
break;
case 309:
#line 2575 "gram1.y"
{ PTR_HASH oldhash,copyhash;
PTR_SYMB oldsym, newsym;
PTR_LLND l, m;
oldhash = just_look_up_sym_in_scope(module_scope, (yyvsp[(3) - (3)].hash_entry)->ident);
if (oldhash == HSNULL) {
errstr("Unknown identifier %s", (yyvsp[(3) - (3)].hash_entry)->ident,309);
(yyval.ll_node)= LLNULL;
}
else {
oldsym = oldhash->id_attr;
copyhash = just_look_up_sym_in_scope(cur_scope(), (yyvsp[(3) - (3)].hash_entry)->ident);
if(copyhash && copyhash->id_attr && copyhash->id_attr->entry.Template.tag==module_scope->id)
{
delete_symbol(copyhash->id_attr);
copyhash->id_attr = SMNULL;
}
newsym = make_local_entity((yyvsp[(1) - (3)].hash_entry), oldsym->variant, oldsym->type, LOCAL);
/* copies data in entry.Template structure and attr */
copy_sym_data(oldsym, newsym);
/*newsym->entry.Template.base_name = oldsym;*//*19.03.03*/
l = make_llnd(fi, VAR_REF, LLNULL, LLNULL, oldsym);
m = make_llnd(fi, VAR_REF, LLNULL, LLNULL, newsym);
(yyval.ll_node) = make_llnd(fi, RENAME_NODE, m, l, SMNULL);
}
;}
break;
case 310:
#line 2613 "gram1.y"
{ ndim = 0; explicit_shape = 1; (yyval.ll_node) = LLNULL; ;}
break;
case 311:
#line 2615 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(2) - (3)].ll_node); ;}
break;
case 312:
#line 2618 "gram1.y"
{ ndim = 0; explicit_shape = 1;;}
break;
case 313:
#line 2619 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,EXPR_LIST, (yyvsp[(2) - (2)].ll_node), LLNULL, SMNULL);
(yyval.ll_node)->type = global_default;
;}
break;
case 314:
#line 2624 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); ;}
break;
case 315:
#line 2628 "gram1.y"
{
if(ndim == maxdim)
err("Too many dimensions", 43);
else if(ndim < maxdim)
(yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);
++ndim;
;}
break;
case 316:
#line 2636 "gram1.y"
{
if(ndim == maxdim)
err("Too many dimensions", 43);
else if(ndim < maxdim)
(yyval.ll_node) = make_llnd(fi, DDOT, LLNULL, LLNULL, SMNULL);
++ndim;
explicit_shape = 0;
;}
break;
case 317:
#line 2645 "gram1.y"
{
if(ndim == maxdim)
err("Too many dimensions", 43);
else if(ndim < maxdim)
(yyval.ll_node) = make_llnd(fi,DDOT, (yyvsp[(1) - (2)].ll_node), LLNULL, SMNULL);
++ndim;
explicit_shape = 0;
;}
break;
case 318:
#line 2654 "gram1.y"
{
if(ndim == maxdim)
err("Too many dimensions", 43);
else if(ndim < maxdim)
(yyval.ll_node) = make_llnd(fi,DDOT, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), SMNULL);
++ndim;
;}
break;
case 319:
#line 2664 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,STAR_RANGE, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->type = global_default;
explicit_shape = 0;
;}
break;
case 321:
#line 2673 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST); ;}
break;
case 322:
#line 2675 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); ;}
break;
case 323:
#line 2679 "gram1.y"
{PTR_LABEL p;
p = make_label_node(fi,convci(yyleng, yytext));
p->scope = cur_scope();
(yyval.ll_node) = make_llnd_label(fi,LABEL_REF, p);
;}
break;
case 324:
#line 2687 "gram1.y"
{ /*PTR_LLND l;*/
/* l = make_llnd(fi, EXPR_LIST, $3, LLNULL, SMNULL);*/
(yyval.bf_node) = get_bfnd(fi,IMPL_DECL, SMNULL, (yyvsp[(3) - (3)].ll_node), LLNULL, LLNULL);
redefine_func_arg_type();
;}
break;
case 325:
#line 2702 "gram1.y"
{ /*undeftype = YES;
setimpl(TYNULL, (int)'a', (int)'z'); FB COMMENTED---> NOT QUITE RIGHT BUT AVOID PB WITH COMMON*/
(yyval.bf_node) = get_bfnd(fi,IMPL_DECL, SMNULL, LLNULL, LLNULL, LLNULL);
;}
break;
case 326:
#line 2709 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST); ;}
break;
case 327:
#line 2711 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); ;}
break;
case 328:
#line 2715 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi, IMPL_TYPE, (yyvsp[(3) - (4)].ll_node), LLNULL, SMNULL);
(yyval.ll_node)->type = vartype;
;}
break;
case 329:
#line 2730 "gram1.y"
{ implkwd = YES; ;}
break;
case 330:
#line 2731 "gram1.y"
{ vartype = (yyvsp[(2) - (2)].data_type); ;}
break;
case 331:
#line 2735 "gram1.y"
{ (yyval.data_type) = (yyvsp[(2) - (2)].data_type); ;}
break;
case 332:
#line 2737 "gram1.y"
{ (yyval.data_type) = (yyvsp[(1) - (1)].data_type);;}
break;
case 333:
#line 2749 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST); ;}
break;
case 334:
#line 2751 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); ;}
break;
case 335:
#line 2755 "gram1.y"
{
setimpl(vartype, (int)(yyvsp[(1) - (1)].charv), (int)(yyvsp[(1) - (1)].charv));
(yyval.ll_node) = make_llnd(fi,CHAR_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.cval = (yyvsp[(1) - (1)].charv);
;}
break;
case 336:
#line 2761 "gram1.y"
{ PTR_LLND p,q;
setimpl(vartype, (int)(yyvsp[(1) - (3)].charv), (int)(yyvsp[(3) - (3)].charv));
p = make_llnd(fi,CHAR_VAL, LLNULL, LLNULL, SMNULL);
p->entry.cval = (yyvsp[(1) - (3)].charv);
q = make_llnd(fi,CHAR_VAL, LLNULL, LLNULL, SMNULL);
q->entry.cval = (yyvsp[(3) - (3)].charv);
(yyval.ll_node)= make_llnd(fi,DDOT, p, q, SMNULL);
;}
break;
case 337:
#line 2773 "gram1.y"
{
if(yyleng!=1 || yytext[0]<'a' || yytext[0]>'z')
{
err("IMPLICIT item must be single letter", 37);
(yyval.charv) = '\0';
}
else (yyval.charv) = yytext[0];
;}
break;
case 338:
#line 2784 "gram1.y"
{
if (parstate == OUTSIDE)
{ PTR_BFND p;
p = get_bfnd(fi,PROG_HEDR,
make_program(look_up_sym("_MAIN")),
LLNULL, LLNULL, LLNULL);
set_blobs(p, global_bfnd, NEW_GROUP1);
add_scope_level(p, NO);
position = IN_PROC;
parstate = INSIDE;
}
;}
break;
case 339:
#line 2801 "gram1.y"
{ switch(parstate)
{
case OUTSIDE:
{ PTR_BFND p;
p = get_bfnd(fi,PROG_HEDR,
make_program(look_up_sym("_MAIN")),
LLNULL, LLNULL, LLNULL);
set_blobs(p, global_bfnd, NEW_GROUP1);
add_scope_level(p, NO);
position = IN_PROC;
parstate = INDCL; }
break;
case INSIDE: parstate = INDCL;
case INDCL: break;
case INDATA:
/* err(
"Statement order error: declaration after DATA or function statement",
29);*/
break;
default:
err("Declaration among executables", 30);
}
;}
break;
case 342:
#line 2839 "gram1.y"
{ (yyval.ll_node) = LLNULL; endioctl(); ;}
break;
case 343:
#line 2841 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); endioctl();;}
break;
case 344:
#line 2845 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 345:
#line 2847 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 346:
#line 2849 "gram1.y"
{ PTR_LLND l;
l = make_llnd(fi, KEYWORD_ARG, (yyvsp[(1) - (2)].ll_node), (yyvsp[(2) - (2)].ll_node), SMNULL);
l->type = (yyvsp[(2) - (2)].ll_node)->type;
(yyval.ll_node) = l;
;}
break;
case 347:
#line 2860 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(2) - (2)].ll_node), LLNULL, EXPR_LIST);
endioctl();
;}
break;
case 348:
#line 2864 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (4)].ll_node), (yyvsp[(4) - (4)].ll_node), EXPR_LIST);
endioctl();
;}
break;
case 349:
#line 2870 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST); ;}
break;
case 350:
#line 2872 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); ;}
break;
case 351:
#line 2876 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 352:
#line 2878 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(2) - (3)].ll_node); ;}
break;
case 353:
#line 2880 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 354:
#line 2884 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 355:
#line 2886 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 356:
#line 2890 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 357:
#line 2892 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node("+", ADD_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 358:
#line 2894 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node("-", SUBT_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 359:
#line 2896 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node("*", MULT_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 360:
#line 2898 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node("/", DIV_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 361:
#line 2900 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node("**", EXP_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 362:
#line 2902 "gram1.y"
{ (yyval.ll_node) = defined_op_node((yyvsp[(1) - (2)].hash_entry), (yyvsp[(2) - (2)].ll_node), LLNULL); ;}
break;
case 363:
#line 2904 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node("+", UNARY_ADD_OP, (yyvsp[(2) - (2)].ll_node), LLNULL); ;}
break;
case 364:
#line 2906 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node("-", MINUS_OP, (yyvsp[(2) - (2)].ll_node), LLNULL); ;}
break;
case 365:
#line 2908 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node(".eq.", EQ_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 366:
#line 2910 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node(".gt.", GT_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 367:
#line 2912 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node(".lt.", LT_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 368:
#line 2914 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node(".ge.", GTEQL_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 369:
#line 2916 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node(".ge.", LTEQL_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 370:
#line 2918 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node(".ne.", NOTEQL_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 371:
#line 2920 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node(".eqv.", EQV_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 372:
#line 2922 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node(".neqv.", NEQV_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 373:
#line 2924 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node(".xor.", XOR_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 374:
#line 2926 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node(".or.", OR_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 375:
#line 2928 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node(".and.", AND_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 376:
#line 2930 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node(".not.", NOT_OP, (yyvsp[(2) - (2)].ll_node), LLNULL); ;}
break;
case 377:
#line 2932 "gram1.y"
{ (yyval.ll_node) = intrinsic_op_node("//", CONCAT_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 378:
#line 2934 "gram1.y"
{ (yyval.ll_node) = defined_op_node((yyvsp[(2) - (3)].hash_entry), (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node)); ;}
break;
case 379:
#line 2937 "gram1.y"
{ (yyval.token) = ADD_OP; ;}
break;
case 380:
#line 2938 "gram1.y"
{ (yyval.token) = SUBT_OP; ;}
break;
case 381:
#line 2950 "gram1.y"
{ PTR_SYMB s;
PTR_TYPE t;
/* PTR_LLND l;*/
if (!(s = (yyvsp[(1) - (1)].hash_entry)->id_attr))
{
s = make_scalar((yyvsp[(1) - (1)].hash_entry), TYNULL, LOCAL);
s->decl = SOFT;
}
switch (s->variant)
{
case CONST_NAME:
(yyval.ll_node) = make_llnd(fi,CONST_REF,LLNULL,LLNULL, s);
t = s->type;
if ((t != TYNULL) &&
((t->variant == T_ARRAY) || (t->variant == T_STRING) ))
(yyval.ll_node)->variant = ARRAY_REF;
(yyval.ll_node)->type = t;
break;
case DEFAULT: /* if common region with same name has been
declared. */
s = make_scalar((yyvsp[(1) - (1)].hash_entry), TYNULL, LOCAL);
s->decl = SOFT;
case VARIABLE_NAME:
(yyval.ll_node) = make_llnd(fi,VAR_REF,LLNULL,LLNULL, s);
t = s->type;
if (t != TYNULL) {
if ((t->variant == T_ARRAY) || (t->variant == T_STRING) ||
((t->variant == T_POINTER) && (t->entry.Template.base_type->variant == T_ARRAY) ) )
(yyval.ll_node)->variant = ARRAY_REF;
/* if (t->variant == T_DERIVED_TYPE)
$$->variant = RECORD_REF; */
}
(yyval.ll_node)->type = t;
break;
case TYPE_NAME:
(yyval.ll_node) = make_llnd(fi,TYPE_REF,LLNULL,LLNULL, s);
(yyval.ll_node)->type = s->type;
break;
case INTERFACE_NAME:
(yyval.ll_node) = make_llnd(fi, INTERFACE_REF,LLNULL,LLNULL, s);
(yyval.ll_node)->type = s->type;
break;
case FUNCTION_NAME:
if(isResultVar(s)) {
(yyval.ll_node) = make_llnd(fi,VAR_REF,LLNULL,LLNULL, s);
t = s->type;
if (t != TYNULL) {
if ((t->variant == T_ARRAY) || (t->variant == T_STRING) ||
((t->variant == T_POINTER) && (t->entry.Template.base_type->variant == T_ARRAY) ) )
(yyval.ll_node)->variant = ARRAY_REF;
}
(yyval.ll_node)->type = t;
break;
}
default:
(yyval.ll_node) = make_llnd(fi,VAR_REF,LLNULL,LLNULL, s);
(yyval.ll_node)->type = s->type;
break;
}
/* if ($$->variant == T_POINTER) {
l = $$;
$$ = make_llnd(fi, DEREF_OP, l, LLNULL, SMNULL);
$$->type = l->type->entry.Template.base_type;
}
*/ /*11.02.03*/
;}
break;
case 382:
#line 3024 "gram1.y"
{ PTR_SYMB s;
(yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);
s= (yyval.ll_node)->entry.Template.symbol;
if ((((yyvsp[(1) - (1)].ll_node)->variant == VAR_REF) || ((yyvsp[(1) - (1)].ll_node)->variant == ARRAY_REF)) && (s->scope !=cur_scope())) /*global_bfnd*/
{
if(((s->variant == FUNCTION_NAME) && (!isResultVar(s))) || (s->variant == PROCEDURE_NAME) || (s->variant == ROUTINE_NAME))
{ s = (yyval.ll_node)->entry.Template.symbol = make_scalar(s->parent, TYNULL, LOCAL);
(yyval.ll_node)->type = s->type;
}
}
;}
break;
case 383:
#line 3036 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 384:
#line 3038 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 385:
#line 3042 "gram1.y"
{ int num_triplets;
PTR_SYMB s; /*, sym;*/
/* PTR_LLND l; */
PTR_TYPE tp;
/* l = $1; */
s = (yyvsp[(1) - (5)].ll_node)->entry.Template.symbol;
/* Handle variable to function conversion. */
if (((yyvsp[(1) - (5)].ll_node)->variant == VAR_REF) &&
(((s->variant == VARIABLE_NAME) && (s->type) &&
(s->type->variant != T_ARRAY)) ||
(s->variant == ROUTINE_NAME))) {
s = (yyvsp[(1) - (5)].ll_node)->entry.Template.symbol = make_function(s->parent, TYNULL, LOCAL);
(yyvsp[(1) - (5)].ll_node)->variant = FUNC_CALL;
}
if (((yyvsp[(1) - (5)].ll_node)->variant == VAR_REF) && (s->variant == FUNCTION_NAME)) {
if(isResultVar(s))
(yyvsp[(1) - (5)].ll_node)->variant = ARRAY_REF;
else
(yyvsp[(1) - (5)].ll_node)->variant = FUNC_CALL;
}
if (((yyvsp[(1) - (5)].ll_node)->variant == VAR_REF) && (s->variant == PROGRAM_NAME)) {
errstr("The name '%s' is invalid in this context",s->ident,285);
(yyvsp[(1) - (5)].ll_node)->variant = FUNC_CALL;
}
/* l = $1; */
num_triplets = is_array_section_ref((yyvsp[(4) - (5)].ll_node));
switch ((yyvsp[(1) - (5)].ll_node)->variant)
{
case TYPE_REF:
(yyvsp[(1) - (5)].ll_node)->variant = STRUCTURE_CONSTRUCTOR;
(yyvsp[(1) - (5)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (5)].ll_node);
(yyval.ll_node) = (yyvsp[(1) - (5)].ll_node);
(yyval.ll_node)->type = lookup_type(s->parent);
/* $$ = make_llnd(fi, STRUCTURE_CONSTRUCTOR, $1, $4, SMNULL);
$$->type = $1->type;*//*18.02.03*/
break;
case INTERFACE_REF:
/* sym = resolve_overloading(s, $4);
if (sym != SMNULL)
{
l = make_llnd(fi, FUNC_CALL, $4, LLNULL, sym);
l->type = sym->type;
$$ = $1; $$->variant = OVERLOADED_CALL;
$$->entry.Template.ll_ptr1 = l;
$$->type = sym->type;
}
else {
errstr("can't resolve call %s", s->ident,310);
}
break;
*/ /*podd 01.02.03*/
(yyvsp[(1) - (5)].ll_node)->variant = FUNC_CALL;
case FUNC_CALL:
(yyvsp[(1) - (5)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (5)].ll_node);
(yyval.ll_node) = (yyvsp[(1) - (5)].ll_node);
if(s->type)
(yyval.ll_node)->type = s->type;
else
(yyval.ll_node)->type = global_default;
/*late_bind_if_needed($$);*/ /*podd 02.02.23*/
break;
case DEREF_OP:
case ARRAY_REF:
/* array element */
if (num_triplets == 0) {
if ((yyvsp[(4) - (5)].ll_node) == LLNULL) {
s = (yyvsp[(1) - (5)].ll_node)->entry.Template.symbol = make_function(s->parent, TYNULL, LOCAL);
s->entry.func_decl.num_output = 1;
(yyvsp[(1) - (5)].ll_node)->variant = FUNC_CALL;
(yyval.ll_node) = (yyvsp[(1) - (5)].ll_node);
} else if ((yyvsp[(1) - (5)].ll_node)->type->variant == T_STRING) {
PTR_LLND temp = (yyvsp[(4) - (5)].ll_node);
int num_input = 0;
while (temp) {
++num_input;
temp = temp->entry.Template.ll_ptr2;
}
(yyvsp[(1) - (5)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (5)].ll_node);
s = (yyvsp[(1) - (5)].ll_node)->entry.Template.symbol = make_function(s->parent, TYNULL, LOCAL);
s->entry.func_decl.num_output = 1;
s->entry.func_decl.num_input = num_input;
(yyvsp[(1) - (5)].ll_node)->variant = FUNC_CALL;
(yyval.ll_node) = (yyvsp[(1) - (5)].ll_node);
} else {
(yyvsp[(1) - (5)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (5)].ll_node);
(yyval.ll_node) = (yyvsp[(1) - (5)].ll_node);
(yyval.ll_node)->type = (yyvsp[(1) - (5)].ll_node)->type->entry.ar_decl.base_type;
}
}
/* substring */
else if ((num_triplets == 1) &&
((yyvsp[(1) - (5)].ll_node)->type->variant == T_STRING)) {
/*
$1->entry.Template.ll_ptr1 = $4;
$$ = $1; $$->type = global_string;
*/
(yyval.ll_node) = make_llnd(fi,
ARRAY_OP, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.Template.ll_ptr1 = (yyvsp[(1) - (5)].ll_node);
(yyval.ll_node)->entry.Template.ll_ptr2 = (yyvsp[(4) - (5)].ll_node)->entry.Template.ll_ptr1;
(yyval.ll_node)->type = global_string;
}
/* array section */
else {
(yyvsp[(1) - (5)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (5)].ll_node);
(yyval.ll_node) = (yyvsp[(1) - (5)].ll_node); tp = make_type(fi, T_ARRAY); /**18.03.17*/
tp->entry.ar_decl.base_type = (yyvsp[(1) - (5)].ll_node)->type->entry.ar_decl.base_type; /**18.03.17 $1->type */
tp->entry.ar_decl.num_dimensions = num_triplets;
(yyval.ll_node)->type = tp;
}
break;
default:
if((yyvsp[(1) - (5)].ll_node)->entry.Template.symbol)
errstr("Can't subscript %s",(yyvsp[(1) - (5)].ll_node)->entry.Template.symbol->ident, 44);
else
err("Can't subscript",44);
}
/*if ($$->variant == T_POINTER) {
l = $$;
$$ = make_llnd(fi, DEREF_OP, l, LLNULL, SMNULL);
$$->type = l->type->entry.Template.base_type;
}
*/ /*11.02.03*/
endioctl();
;}
break;
case 386:
#line 3173 "gram1.y"
{ int num_triplets;
PTR_SYMB s;
PTR_LLND l;
s = (yyvsp[(1) - (6)].ll_node)->entry.Template.symbol;
/* if ($1->type->variant == T_POINTER) {
l = $1;
$1 = make_llnd(fi, DEREF_OP, l, LLNULL, SMNULL);
$1->type = l->type->entry.Template.base_type;
} */
if (((yyvsp[(1) - (6)].ll_node)->type->variant != T_ARRAY) ||
((yyvsp[(1) - (6)].ll_node)->type->entry.ar_decl.base_type->variant != T_STRING)) {
errstr("Can't take substring of %s", s->ident, 45);
}
else {
num_triplets = is_array_section_ref((yyvsp[(4) - (6)].ll_node));
/* array element */
if (num_triplets == 0) {
(yyvsp[(1) - (6)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (6)].ll_node);
/* $1->entry.Template.ll_ptr2 = $6;*/
/* $$ = $1;*/
l=(yyvsp[(1) - (6)].ll_node);
/*$$->type = $1->type->entry.ar_decl.base_type;*/
l->type = global_string; /**18.03.17* $1->type->entry.ar_decl.base_type;*/
}
/* array section */
else {
(yyvsp[(1) - (6)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (6)].ll_node);
/*$1->entry.Template.ll_ptr2 = $6;
$$ = $1; $$->type = make_type(fi, T_ARRAY);
$$->type->entry.ar_decl.base_type = $1->type;
$$->type->entry.ar_decl.num_dimensions = num_triplets;
*/
l = (yyvsp[(1) - (6)].ll_node); l->type = make_type(fi, T_ARRAY);
l->type->entry.ar_decl.base_type = global_string; /**18.03.17* $1->type*/
l->type->entry.ar_decl.num_dimensions = num_triplets;
}
(yyval.ll_node) = make_llnd(fi, ARRAY_OP, l, (yyvsp[(6) - (6)].ll_node), SMNULL);
(yyval.ll_node)->type = l->type;
/* if ($$->variant == T_POINTER) {
l = $$;
$$ = make_llnd(fi, DEREF_OP, l, LLNULL, SMNULL);
$$->type = l->type->entry.Template.base_type;
}
*/ /*11.02.03*/
}
endioctl();
;}
break;
case 387:
#line 3223 "gram1.y"
{ int num_triplets;
PTR_LLND l,l1,l2;
PTR_TYPE tp;
/* if ($1->variant == T_POINTER) {
l = $1;
$1 = make_llnd(fi, DEREF_OP, l, LLNULL, SMNULL);
$1->type = l->type->entry.Template.base_type;
} */
num_triplets = is_array_section_ref((yyvsp[(3) - (4)].ll_node));
(yyval.ll_node) = (yyvsp[(1) - (4)].ll_node);
l2 = (yyvsp[(1) - (4)].ll_node)->entry.Template.ll_ptr2;
l1 = (yyvsp[(1) - (4)].ll_node)->entry.Template.ll_ptr1;
if(l2 && l2->type->variant == T_STRING)/*substring*/
if(num_triplets == 1){
l = make_llnd(fi, ARRAY_OP, LLNULL, LLNULL, SMNULL);
l->entry.Template.ll_ptr1 = l2;
l->entry.Template.ll_ptr2 = (yyvsp[(3) - (4)].ll_node)->entry.Template.ll_ptr1;
l->type = global_string;
(yyval.ll_node)->entry.Template.ll_ptr2 = l;
} else
err("Can't subscript",44);
else if (l2 && l2->type->variant == T_ARRAY) {
if(num_triplets > 0) { /*array section*/
tp = make_type(fi,T_ARRAY);
tp->entry.ar_decl.base_type = (yyvsp[(1) - (4)].ll_node)->type->entry.ar_decl.base_type;
tp->entry.ar_decl.num_dimensions = num_triplets;
(yyval.ll_node)->type = tp;
l2->entry.Template.ll_ptr1 = (yyvsp[(3) - (4)].ll_node);
l2->type = (yyval.ll_node)->type;
}
else { /*array element*/
l2->type = l2->type->entry.ar_decl.base_type;
l2->entry.Template.ll_ptr1 = (yyvsp[(3) - (4)].ll_node);
if(l1->type->variant != T_ARRAY)
(yyval.ll_node)->type = l2->type;
}
} else
{err("Can't subscript",44); /*fprintf(stderr,"%d %d",$1->variant,l2);*/}
/*errstr("Can't subscript %s",l2->entry.Template.symbol->ident,441);*/
;}
break;
case 388:
#line 3267 "gram1.y"
{ int num_triplets;
PTR_LLND l,q;
/* if ($1->variant == T_POINTER) {
l = $1;
$1 = make_llnd(fi, DEREF_OP, l, LLNULL, SMNULL);
$1->type = l->type->entry.Template.base_type;
} */
(yyval.ll_node) = (yyvsp[(1) - (5)].ll_node);
if (((yyvsp[(1) - (5)].ll_node)->type->variant != T_ARRAY) &&
((yyvsp[(1) - (5)].ll_node)->type->entry.ar_decl.base_type->variant != T_STRING)) {
err("Can't take substring",45);
}
else {
num_triplets = is_array_section_ref((yyvsp[(3) - (5)].ll_node));
l = (yyvsp[(1) - (5)].ll_node)->entry.Template.ll_ptr2;
if(l) {
/* array element */
if (num_triplets == 0) {
l->entry.Template.ll_ptr1 = (yyvsp[(3) - (5)].ll_node);
l->type = global_string;
}
/* array section */
else {
l->entry.Template.ll_ptr1 = (yyvsp[(3) - (5)].ll_node);
l->type = make_type(fi, T_ARRAY);
l->type->entry.ar_decl.base_type = global_string;
l->type->entry.ar_decl.num_dimensions = num_triplets;
}
q = make_llnd(fi, ARRAY_OP, l, (yyvsp[(5) - (5)].ll_node), SMNULL);
q->type = l->type;
(yyval.ll_node)->entry.Template.ll_ptr2 = q;
if((yyvsp[(1) - (5)].ll_node)->entry.Template.ll_ptr1->type->variant != T_ARRAY)
(yyval.ll_node)->type = q->type;
}
}
;}
break;
case 389:
#line 3309 "gram1.y"
{ PTR_TYPE t;
PTR_SYMB field;
/* PTR_BFND at_scope;*/
PTR_LLND l;
/* if ($1->variant == T_POINTER) {
l = $1;
$1 = make_llnd(fi, DEREF_OP, l, LLNULL, SMNULL);
$1->type = l->type->entry.Template.base_type;
} */
t = (yyvsp[(1) - (3)].ll_node)->type;
if (( ( ((yyvsp[(1) - (3)].ll_node)->variant == VAR_REF)
|| ((yyvsp[(1) - (3)].ll_node)->variant == CONST_REF)
|| ((yyvsp[(1) - (3)].ll_node)->variant == ARRAY_REF)
|| ((yyvsp[(1) - (3)].ll_node)->variant == RECORD_REF)) && (t->variant == T_DERIVED_TYPE))
||((((yyvsp[(1) - (3)].ll_node)->variant == ARRAY_REF) || ((yyvsp[(1) - (3)].ll_node)->variant == RECORD_REF)) && (t->variant == T_ARRAY) &&
(t = t->entry.ar_decl.base_type) && (t->variant == T_DERIVED_TYPE)))
{
t->name = lookup_type_symbol(t->name);
if ((field = component(t->name, yytext))) {
l = make_llnd(fi, VAR_REF, LLNULL, LLNULL, field);
l->type = field->type;
if(field->type->variant == T_ARRAY || field->type->variant == T_STRING)
l->variant = ARRAY_REF;
(yyval.ll_node) = make_llnd(fi, RECORD_REF, (yyvsp[(1) - (3)].ll_node), l, SMNULL);
if((yyvsp[(1) - (3)].ll_node)->type->variant != T_ARRAY)
(yyval.ll_node)->type = field->type;
else {
(yyval.ll_node)->type = make_type(fi,T_ARRAY);
if(field->type->variant != T_ARRAY)
(yyval.ll_node)->type->entry.ar_decl.base_type = field->type;
else
(yyval.ll_node)->type->entry.ar_decl.base_type = field->type->entry.ar_decl.base_type;
(yyval.ll_node)->type->entry.ar_decl.num_dimensions = t->entry.ar_decl.num_dimensions;
}
}
else
errstr("Illegal component %s", yytext,311);
}
else
errstr("Can't take component %s", yytext,311);
;}
break;
case 390:
#line 3367 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 391:
#line 3369 "gram1.y"
{(yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 392:
#line 3371 "gram1.y"
{ int num_triplets;
PTR_TYPE tp;
/* PTR_LLND l;*/
if ((yyvsp[(1) - (5)].ll_node)->type->variant == T_ARRAY)
{
num_triplets = is_array_section_ref((yyvsp[(4) - (5)].ll_node));
/* array element */
if (num_triplets == 0) {
(yyvsp[(1) - (5)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (5)].ll_node);
(yyval.ll_node) = (yyvsp[(1) - (5)].ll_node);
(yyval.ll_node)->type = (yyvsp[(1) - (5)].ll_node)->type->entry.ar_decl.base_type;
}
/* substring */
/* else if ((num_triplets == 1) &&
($1->type->variant == T_STRING)) {
$1->entry.Template.ll_ptr1 = $4;
$$ = $1; $$->type = global_string;
} */ /*podd*/
/* array section */
else {
(yyvsp[(1) - (5)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (5)].ll_node);
(yyval.ll_node) = (yyvsp[(1) - (5)].ll_node); tp = make_type(fi, T_ARRAY);
tp->entry.ar_decl.base_type = (yyvsp[(1) - (5)].ll_node)->type->entry.ar_decl.base_type; /**18.03.17* $1->type */
tp->entry.ar_decl.num_dimensions = num_triplets;
(yyval.ll_node)->type = tp;
}
}
else err("can't subscript",44);
/* if ($$->variant == T_POINTER) {
l = $$;
$$ = make_llnd(fi, DEREF_OP, l, LLNULL, SMNULL);
$$->type = l->type->entry.Template.base_type;
}
*/ /*11.02.03*/
endioctl();
;}
break;
case 393:
#line 3411 "gram1.y"
{ int num_triplets;
PTR_LLND l,l1,l2;
/* if ($1->variant == T_POINTER) {
l = $1;
$1 = make_llnd(fi, DEREF_OP, l, LLNULL, SMNULL);
$1->type = l->type->entry.Template.base_type;
} */
num_triplets = is_array_section_ref((yyvsp[(3) - (4)].ll_node));
(yyval.ll_node) = (yyvsp[(1) - (4)].ll_node);
l2 = (yyvsp[(1) - (4)].ll_node)->entry.Template.ll_ptr2;
l1 = (yyvsp[(1) - (4)].ll_node)->entry.Template.ll_ptr1;
if(l2 && l2->type->variant == T_STRING)/*substring*/
if(num_triplets == 1){
l = make_llnd(fi, ARRAY_OP, LLNULL, LLNULL, SMNULL);
l->entry.Template.ll_ptr1 = l2;
l->entry.Template.ll_ptr2 = (yyvsp[(3) - (4)].ll_node)->entry.Template.ll_ptr1;
l->type = global_string;
(yyval.ll_node)->entry.Template.ll_ptr2 = l;
} else
err("Can't subscript",44);
else if (l2 && l2->type->variant == T_ARRAY) {
if(num_triplets > 0) { /*array section*/
(yyval.ll_node)->type = make_type(fi,T_ARRAY);
(yyval.ll_node)->type->entry.ar_decl.base_type = l2->type->entry.ar_decl.base_type;
(yyval.ll_node)->type->entry.ar_decl.num_dimensions = num_triplets;
l2->entry.Template.ll_ptr1 = (yyvsp[(3) - (4)].ll_node);
l2->type = (yyval.ll_node)->type;
}
else { /*array element*/
l2->type = l2->type->entry.ar_decl.base_type;
l2->entry.Template.ll_ptr1 = (yyvsp[(3) - (4)].ll_node);
if(l1->type->variant != T_ARRAY)
(yyval.ll_node)->type = l2->type;
}
} else
err("Can't subscript",44);
;}
break;
case 394:
#line 3453 "gram1.y"
{
if ((yyvsp[(1) - (2)].ll_node)->type->variant == T_STRING) {
(yyvsp[(1) - (2)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(2) - (2)].ll_node);
(yyval.ll_node) = (yyvsp[(1) - (2)].ll_node); (yyval.ll_node)->type = global_string;
}
else errstr("can't subscript of %s", (yyvsp[(1) - (2)].ll_node)->entry.Template.symbol->ident,44);
;}
break;
case 395:
#line 3463 "gram1.y"
{ (yyval.ll_node) = LLNULL; ;}
break;
case 396:
#line 3465 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 397:
#line 3469 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, DDOT, (yyvsp[(2) - (5)].ll_node), (yyvsp[(4) - (5)].ll_node), SMNULL); ;}
break;
case 398:
#line 3473 "gram1.y"
{ (yyval.ll_node) = LLNULL; ;}
break;
case 399:
#line 3475 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 400:
#line 3479 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 401:
#line 3481 "gram1.y"
{ PTR_TYPE t;
t = make_type_node((yyvsp[(1) - (3)].ll_node)->type, (yyvsp[(3) - (3)].ll_node));
(yyval.ll_node) = (yyvsp[(1) - (3)].ll_node);
(yyval.ll_node)->type = t;
;}
break;
case 402:
#line 3487 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 403:
#line 3489 "gram1.y"
{ PTR_TYPE t;
t = make_type_node((yyvsp[(1) - (3)].ll_node)->type, (yyvsp[(3) - (3)].ll_node));
(yyval.ll_node) = (yyvsp[(1) - (3)].ll_node);
(yyval.ll_node)->type = t;
;}
break;
case 404:
#line 3495 "gram1.y"
{
if ((yyvsp[(2) - (2)].ll_node) != LLNULL)
{
(yyval.ll_node) = make_llnd(fi, ARRAY_OP, (yyvsp[(1) - (2)].ll_node), (yyvsp[(2) - (2)].ll_node), SMNULL);
(yyval.ll_node)->type = global_string;
}
else
(yyval.ll_node) = (yyvsp[(1) - (2)].ll_node);
;}
break;
case 405:
#line 3508 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,BOOL_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.bval = 1;
(yyval.ll_node)->type = global_bool;
;}
break;
case 406:
#line 3514 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,BOOL_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.bval = 0;
(yyval.ll_node)->type = global_bool;
;}
break;
case 407:
#line 3521 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,FLOAT_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.string_val = copys(yytext);
(yyval.ll_node)->type = global_float;
;}
break;
case 408:
#line 3527 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,DOUBLE_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.string_val = copys(yytext);
(yyval.ll_node)->type = global_double;
;}
break;
case 409:
#line 3535 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,INT_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.ival = atoi(yytext);
(yyval.ll_node)->type = global_int;
;}
break;
case 410:
#line 3543 "gram1.y"
{ PTR_TYPE t;
PTR_LLND p,q;
(yyval.ll_node) = make_llnd(fi,STRING_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.string_val = copys(yytext);
if(yyquote=='\"')
t = global_string_2;
else
t = global_string;
p = make_llnd(fi,INT_VAL, LLNULL, LLNULL, SMNULL);
p->entry.ival = yyleng;
p->type = global_int;
q = make_llnd(fi, LEN_OP, p, LLNULL, SMNULL);
(yyval.ll_node)->type = make_type_node(t, q);
;}
break;
case 411:
#line 3559 "gram1.y"
{ PTR_TYPE t;
(yyval.ll_node) = make_llnd(fi,STRING_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.string_val = copys(yytext);
if(yyquote=='\"')
t = global_string_2;
else
t = global_string;
(yyval.ll_node)->type = make_type_node(t, (yyvsp[(1) - (3)].ll_node));
;}
break;
case 412:
#line 3569 "gram1.y"
{ PTR_TYPE t;
(yyval.ll_node) = make_llnd(fi,STRING_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.string_val = copys(yytext);
if(yyquote=='\"')
t = global_string_2;
else
t = global_string;
(yyval.ll_node)->type = make_type_node(t, (yyvsp[(1) - (3)].ll_node));
;}
break;
case 413:
#line 3582 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,COMPLEX_VAL, (yyvsp[(2) - (5)].ll_node), (yyvsp[(4) - (5)].ll_node), SMNULL);
(yyval.ll_node)->type = global_complex;
;}
break;
case 414:
#line 3589 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 415:
#line 3591 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 416:
#line 3614 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT,(yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),SMNULL); ;}
break;
case 417:
#line 3616 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT,(yyvsp[(1) - (2)].ll_node),LLNULL,SMNULL); ;}
break;
case 418:
#line 3618 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT,make_llnd(fi,DDOT,(yyvsp[(1) - (5)].ll_node),(yyvsp[(3) - (5)].ll_node),SMNULL),(yyvsp[(5) - (5)].ll_node),SMNULL); ;}
break;
case 419:
#line 3620 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT,make_llnd(fi,DDOT,(yyvsp[(1) - (4)].ll_node),LLNULL,SMNULL),(yyvsp[(4) - (4)].ll_node),SMNULL); ;}
break;
case 420:
#line 3622 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT, make_llnd(fi,DDOT,LLNULL,(yyvsp[(2) - (4)].ll_node),SMNULL),(yyvsp[(4) - (4)].ll_node),SMNULL); ;}
break;
case 421:
#line 3624 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT,make_llnd(fi,DDOT,LLNULL,LLNULL,SMNULL),(yyvsp[(3) - (3)].ll_node),SMNULL); ;}
break;
case 422:
#line 3626 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT,LLNULL,(yyvsp[(2) - (2)].ll_node),SMNULL); ;}
break;
case 423:
#line 3628 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT,LLNULL,LLNULL,SMNULL); ;}
break;
case 424:
#line 3631 "gram1.y"
{in_vec=YES;;}
break;
case 425:
#line 3631 "gram1.y"
{in_vec=NO;;}
break;
case 426:
#line 3632 "gram1.y"
{ PTR_TYPE array_type;
(yyval.ll_node) = make_llnd (fi,CONSTRUCTOR_REF,(yyvsp[(4) - (6)].ll_node),LLNULL,SMNULL);
/*$$->type = $2->type;*/ /*28.02.03*/
array_type = make_type(fi, T_ARRAY);
array_type->entry.ar_decl.num_dimensions = 1;
if((yyvsp[(4) - (6)].ll_node)->type->variant == T_ARRAY)
array_type->entry.ar_decl.base_type = (yyvsp[(4) - (6)].ll_node)->type->entry.ar_decl.base_type;
else
array_type->entry.ar_decl.base_type = (yyvsp[(4) - (6)].ll_node)->type;
(yyval.ll_node)->type = array_type;
;}
break;
case 427:
#line 3646 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 428:
#line 3648 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 429:
#line 3671 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST); ;}
break;
case 430:
#line 3673 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (4)].ll_node), (yyvsp[(4) - (4)].ll_node), EXPR_LIST); endioctl(); ;}
break;
case 431:
#line 3675 "gram1.y"
{ stat_alloc = make_llnd(fi, SPEC_PAIR, (yyvsp[(4) - (5)].ll_node), (yyvsp[(5) - (5)].ll_node), SMNULL);
endioctl();
;}
break;
case 432:
#line 3691 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST); ;}
break;
case 433:
#line 3693 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (4)].ll_node), (yyvsp[(4) - (4)].ll_node), EXPR_LIST); endioctl(); ;}
break;
case 434:
#line 3695 "gram1.y"
{ stat_alloc = make_llnd(fi, SPEC_PAIR, (yyvsp[(4) - (5)].ll_node), (yyvsp[(5) - (5)].ll_node), SMNULL);
endioctl();
;}
break;
case 435:
#line 3708 "gram1.y"
{stat_alloc = LLNULL;;}
break;
case 436:
#line 3712 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST); ;}
break;
case 437:
#line 3714 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); ;}
break;
case 438:
#line 3722 "gram1.y"
{ (yyval.bf_node) = (yyvsp[(1) - (1)].bf_node); ;}
break;
case 439:
#line 3724 "gram1.y"
{ (yyval.bf_node) = (yyvsp[(1) - (1)].bf_node); ;}
break;
case 440:
#line 3726 "gram1.y"
{ (yyval.bf_node) = (yyvsp[(1) - (1)].bf_node); ;}
break;
case 441:
#line 3728 "gram1.y"
{
(yyval.bf_node) = (yyvsp[(2) - (2)].bf_node);
(yyval.bf_node)->entry.Template.ll_ptr3 = (yyvsp[(1) - (2)].ll_node);
;}
break;
case 442:
#line 3782 "gram1.y"
{ PTR_BFND biff;
(yyval.bf_node) = get_bfnd(fi,CONTROL_END, SMNULL, LLNULL, LLNULL, LLNULL);
bind();
biff = cur_scope();
if ((biff->variant == FUNC_HEDR) || (biff->variant == PROC_HEDR)
|| (biff->variant == PROS_HEDR)
|| (biff->variant == PROG_HEDR)
|| (biff->variant == BLOCK_DATA)) {
if(biff->control_parent == global_bfnd) position = IN_OUTSIDE;
else if(!is_interface_stat(biff->control_parent)) position++;
} else if (biff->variant == MODULE_STMT)
position = IN_OUTSIDE;
else err("Unexpected END statement read", 52);
/* FB ADDED set the control parent so the empty function unparse right*/
if ((yyval.bf_node))
(yyval.bf_node)->control_parent = biff;
delete_beyond_scope_level(pred_bfnd);
;}
break;
case 443:
#line 3804 "gram1.y"
{
make_extend((yyvsp[(3) - (3)].symbol));
(yyval.bf_node) = BFNULL;
/* delete_beyond_scope_level(pred_bfnd); */
;}
break;
case 444:
#line 3817 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,CONTROL_END, SMNULL, LLNULL, LLNULL, LLNULL);
bind();
delete_beyond_scope_level(pred_bfnd);
position = IN_OUTSIDE;
;}
break;
case 445:
#line 3826 "gram1.y"
{ (yyval.bf_node) = (yyvsp[(1) - (1)].bf_node); ;}
break;
case 446:
#line 3829 "gram1.y"
{
(yyval.bf_node) = (yyvsp[(2) - (2)].bf_node);
(yyval.bf_node)->entry.Template.ll_ptr3 = (yyvsp[(1) - (2)].ll_node);
;}
break;
case 447:
#line 3879 "gram1.y"
{ thiswasbranch = NO;
(yyvsp[(1) - (2)].bf_node)->variant = LOGIF_NODE;
(yyval.bf_node) = make_logif((yyvsp[(1) - (2)].bf_node), (yyvsp[(2) - (2)].bf_node));
set_blobs((yyvsp[(1) - (2)].bf_node), pred_bfnd, SAME_GROUP);
;}
break;
case 448:
#line 3885 "gram1.y"
{
(yyval.bf_node) = (yyvsp[(1) - (2)].bf_node);
set_blobs((yyval.bf_node), pred_bfnd, NEW_GROUP1);
;}
break;
case 449:
#line 3890 "gram1.y"
{
(yyval.bf_node) = (yyvsp[(2) - (3)].bf_node);
(yyval.bf_node)->entry.Template.ll_ptr3 = (yyvsp[(1) - (3)].ll_node);
set_blobs((yyval.bf_node), pred_bfnd, NEW_GROUP1);
;}
break;
case 450:
#line 3908 "gram1.y"
{ make_elseif((yyvsp[(4) - (7)].ll_node),(yyvsp[(7) - (7)].symbol)); lastwasbranch = NO; (yyval.bf_node) = BFNULL;;}
break;
case 451:
#line 3910 "gram1.y"
{ make_else((yyvsp[(3) - (3)].symbol)); lastwasbranch = NO; (yyval.bf_node) = BFNULL; ;}
break;
case 452:
#line 3912 "gram1.y"
{ make_endif((yyvsp[(3) - (3)].symbol)); (yyval.bf_node) = BFNULL; ;}
break;
case 453:
#line 3914 "gram1.y"
{ (yyval.bf_node) = (yyvsp[(1) - (1)].bf_node); ;}
break;
case 454:
#line 3916 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, CONTAINS_STMT, SMNULL, LLNULL, LLNULL, LLNULL); ;}
break;
case 455:
#line 3919 "gram1.y"
{ thiswasbranch = NO;
(yyvsp[(1) - (2)].bf_node)->variant = FORALL_STAT;
(yyval.bf_node) = make_logif((yyvsp[(1) - (2)].bf_node), (yyvsp[(2) - (2)].bf_node));
set_blobs((yyvsp[(1) - (2)].bf_node), pred_bfnd, SAME_GROUP);
;}
break;
case 456:
#line 3925 "gram1.y"
{ (yyval.bf_node) = (yyvsp[(1) - (1)].bf_node); ;}
break;
case 457:
#line 3927 "gram1.y"
{ (yyval.bf_node) = (yyvsp[(2) - (2)].bf_node); (yyval.bf_node)->entry.Template.ll_ptr3 = (yyvsp[(1) - (2)].ll_node);;}
break;
case 458:
#line 3929 "gram1.y"
{ make_endforall((yyvsp[(3) - (3)].symbol)); (yyval.bf_node) = BFNULL; ;}
break;
case 459:
#line 3932 "gram1.y"
{ (yyval.bf_node) = (yyvsp[(1) - (1)].bf_node); ;}
break;
case 460:
#line 3934 "gram1.y"
{ (yyval.bf_node) = (yyvsp[(1) - (1)].bf_node); ;}
break;
case 461:
#line 3936 "gram1.y"
{ (yyval.bf_node) = (yyvsp[(1) - (1)].bf_node); ;}
break;
case 462:
#line 3963 "gram1.y"
{
/* if($5 && $5->labdefined)
execerr("no backward DO loops", (char *)NULL); */
(yyval.bf_node) = make_do(WHILE_NODE, LBNULL, SMNULL, (yyvsp[(4) - (5)].ll_node), LLNULL, LLNULL);
/*$$->entry.Template.ll_ptr3 = $1;*/
;}
break;
case 463:
#line 3972 "gram1.y"
{
if( (yyvsp[(4) - (7)].label) && (yyvsp[(4) - (7)].label)->labdefined)
err("No backward DO loops", 46);
(yyval.bf_node) = make_do(WHILE_NODE, (yyvsp[(4) - (7)].label), SMNULL, (yyvsp[(7) - (7)].ll_node), LLNULL, LLNULL);
;}
break;
case 464:
#line 3980 "gram1.y"
{ (yyval.ll_node) = LLNULL; ;}
break;
case 465:
#line 3982 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(5) - (6)].ll_node);;}
break;
case 466:
#line 3984 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(3) - (4)].ll_node);;}
break;
case 467:
#line 3989 "gram1.y"
{
if( (yyvsp[(4) - (11)].label) && (yyvsp[(4) - (11)].label)->labdefined)
err("No backward DO loops", 46);
(yyval.bf_node) = make_do(FOR_NODE, (yyvsp[(4) - (11)].label), (yyvsp[(7) - (11)].symbol), (yyvsp[(9) - (11)].ll_node), (yyvsp[(11) - (11)].ll_node), LLNULL);
;}
break;
case 468:
#line 3996 "gram1.y"
{
if( (yyvsp[(4) - (13)].label) && (yyvsp[(4) - (13)].label)->labdefined)
err("No backward DO loops", 46);
(yyval.bf_node) = make_do(FOR_NODE, (yyvsp[(4) - (13)].label), (yyvsp[(7) - (13)].symbol), (yyvsp[(9) - (13)].ll_node), (yyvsp[(11) - (13)].ll_node), (yyvsp[(13) - (13)].ll_node));
;}
break;
case 469:
#line 4004 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, CASE_NODE, (yyvsp[(4) - (4)].symbol), (yyvsp[(3) - (4)].ll_node), LLNULL, LLNULL); ;}
break;
case 470:
#line 4006 "gram1.y"
{ /*PTR_LLND p;*/
/* p = make_llnd(fi, DEFAULT, LLNULL, LLNULL, SMNULL); */
(yyval.bf_node) = get_bfnd(fi, DEFAULT_NODE, (yyvsp[(3) - (3)].symbol), LLNULL, LLNULL, LLNULL); ;}
break;
case 471:
#line 4010 "gram1.y"
{ make_endselect((yyvsp[(3) - (3)].symbol)); (yyval.bf_node) = BFNULL; ;}
break;
case 472:
#line 4013 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, SWITCH_NODE, SMNULL, (yyvsp[(6) - (7)].ll_node), LLNULL, LLNULL) ; ;}
break;
case 473:
#line 4015 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, SWITCH_NODE, SMNULL, (yyvsp[(7) - (8)].ll_node), LLNULL, (yyvsp[(1) - (8)].ll_node)) ; ;}
break;
case 474:
#line 4019 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(2) - (3)].ll_node); ;}
break;
case 475:
#line 4025 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 476:
#line 4027 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, DDOT, (yyvsp[(1) - (2)].ll_node), LLNULL, SMNULL); ;}
break;
case 477:
#line 4029 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, DDOT, LLNULL, (yyvsp[(2) - (2)].ll_node), SMNULL); ;}
break;
case 478:
#line 4031 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, DDOT, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), SMNULL); ;}
break;
case 479:
#line 4035 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, EXPR_LIST, (yyvsp[(1) - (1)].ll_node), LLNULL, SMNULL); ;}
break;
case 480:
#line 4037 "gram1.y"
{ PTR_LLND p;
p = make_llnd(fi, EXPR_LIST, (yyvsp[(3) - (3)].ll_node), LLNULL, SMNULL);
add_to_lowLevelList(p, (yyvsp[(1) - (3)].ll_node));
;}
break;
case 481:
#line 4045 "gram1.y"
{ (yyval.symbol) = SMNULL; ;}
break;
case 482:
#line 4047 "gram1.y"
{ (yyval.symbol) = make_local_entity((yyvsp[(1) - (1)].hash_entry), CONSTRUCT_NAME, global_default,
LOCAL); ;}
break;
case 483:
#line 4053 "gram1.y"
{(yyval.hash_entry) = HSNULL;;}
break;
case 484:
#line 4055 "gram1.y"
{ (yyval.hash_entry) = (yyvsp[(1) - (1)].hash_entry);;}
break;
case 485:
#line 4059 "gram1.y"
{(yyval.hash_entry) = look_up_sym(yytext);;}
break;
case 486:
#line 4063 "gram1.y"
{ PTR_SYMB s;
s = make_local_entity( (yyvsp[(1) - (2)].hash_entry), CONSTRUCT_NAME, global_default, LOCAL);
(yyval.ll_node) = make_llnd(fi, VAR_REF, LLNULL, LLNULL, s);
;}
break;
case 487:
#line 4084 "gram1.y"
{ (yyval.bf_node) = make_if((yyvsp[(4) - (5)].ll_node)); ;}
break;
case 488:
#line 4087 "gram1.y"
{ (yyval.bf_node) = make_forall((yyvsp[(4) - (6)].ll_node),(yyvsp[(5) - (6)].ll_node)); ;}
break;
case 489:
#line 4091 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, EXPR_LIST, (yyvsp[(1) - (1)].ll_node), LLNULL, SMNULL); ;}
break;
case 490:
#line 4093 "gram1.y"
{ PTR_LLND p;
p = make_llnd(fi, EXPR_LIST, (yyvsp[(3) - (3)].ll_node), LLNULL, SMNULL);
add_to_lowLevelList(p, (yyvsp[(1) - (3)].ll_node));
;}
break;
case 491:
#line 4100 "gram1.y"
{(yyval.ll_node) = make_llnd(fi, FORALL_OP, (yyvsp[(3) - (3)].ll_node), LLNULL, (yyvsp[(1) - (3)].symbol)); ;}
break;
case 492:
#line 4104 "gram1.y"
{ (yyval.ll_node)=LLNULL;;}
break;
case 493:
#line 4106 "gram1.y"
{ (yyval.ll_node)=(yyvsp[(2) - (2)].ll_node);;}
break;
case 494:
#line 4117 "gram1.y"
{ PTR_SYMB s;
s = (yyvsp[(1) - (1)].hash_entry)->id_attr;
if (!s || s->variant == DEFAULT)
{
s = make_scalar((yyvsp[(1) - (1)].hash_entry), TYNULL, LOCAL);
s->decl = SOFT;
}
(yyval.symbol) = s;
;}
break;
case 495:
#line 4130 "gram1.y"
{ PTR_SYMB s;
PTR_LLND l;
int vrnt;
/* s = make_scalar($1, TYNULL, LOCAL);*/ /*16.02.03*/
s = (yyvsp[(1) - (5)].symbol);
if (s->variant != CONST_NAME) {
if(in_vec)
vrnt=SEQ;
else
vrnt=DDOT;
l = make_llnd(fi, SEQ, make_llnd(fi, vrnt, (yyvsp[(3) - (5)].ll_node), (yyvsp[(5) - (5)].ll_node), SMNULL),
LLNULL, SMNULL);
(yyval.ll_node) = make_llnd(fi,IOACCESS, LLNULL, l, s);
do_name_err = NO;
}
else {
err("Symbolic constant not allowed as DO variable", 47);
do_name_err = YES;
}
;}
break;
case 496:
#line 4153 "gram1.y"
{ PTR_SYMB s;
PTR_LLND l;
int vrnt;
/*s = make_scalar($1, TYNULL, LOCAL);*/ /*16.02.03*/
s = (yyvsp[(1) - (7)].symbol);
if( s->variant != CONST_NAME ) {
if(in_vec)
vrnt=SEQ;
else
vrnt=DDOT;
l = make_llnd(fi, SEQ, make_llnd(fi, vrnt, (yyvsp[(3) - (7)].ll_node), (yyvsp[(5) - (7)].ll_node), SMNULL), (yyvsp[(7) - (7)].ll_node),
SMNULL);
(yyval.ll_node) = make_llnd(fi,IOACCESS, LLNULL, l, s);
do_name_err = NO;
}
else {
err("Symbolic constant not allowed as DO variable", 47);
do_name_err = YES;
}
;}
break;
case 497:
#line 4176 "gram1.y"
{ (yyval.label) = LBNULL; ;}
break;
case 498:
#line 4178 "gram1.y"
{
(yyval.label) = make_label_node(fi,convci(yyleng, yytext));
(yyval.label)->scope = cur_scope();
;}
break;
case 499:
#line 4185 "gram1.y"
{ make_endwhere((yyvsp[(3) - (3)].symbol)); (yyval.bf_node) = BFNULL; ;}
break;
case 500:
#line 4187 "gram1.y"
{ make_elsewhere((yyvsp[(3) - (3)].symbol)); lastwasbranch = NO; (yyval.bf_node) = BFNULL; ;}
break;
case 501:
#line 4189 "gram1.y"
{ make_elsewhere_mask((yyvsp[(4) - (6)].ll_node),(yyvsp[(6) - (6)].symbol)); lastwasbranch = NO; (yyval.bf_node) = BFNULL; ;}
break;
case 502:
#line 4191 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, WHERE_BLOCK_STMT, SMNULL, (yyvsp[(4) - (5)].ll_node), LLNULL, LLNULL); ;}
break;
case 503:
#line 4193 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, WHERE_BLOCK_STMT, SMNULL, (yyvsp[(5) - (6)].ll_node), LLNULL, (yyvsp[(1) - (6)].ll_node)); ;}
break;
case 504:
#line 4198 "gram1.y"
{ PTR_LLND p, r;
PTR_SYMB s1, s2 = SMNULL, s3, arg_list;
PTR_HASH hash_entry;
/* if (just_look_up_sym("=") != HSNULL) {
p = intrinsic_op_node("=", EQUAL, $2, $4);
$$ = get_bfnd(fi, OVERLOADED_ASSIGN_STAT, SMNULL, p, $2, $4);
}
else */ if ((yyvsp[(2) - (4)].ll_node)->variant == FUNC_CALL) {
if(parstate==INEXEC){
err("Declaration among executables", 30);
/* $$=BFNULL;*/
(yyval.bf_node) = get_bfnd(fi,STMTFN_STAT, SMNULL, (yyvsp[(2) - (4)].ll_node), LLNULL, LLNULL);
}
else {
(yyvsp[(2) - (4)].ll_node)->variant = STMTFN_DECL;
/* $2->entry.Template.ll_ptr2 = $4; */
if( (yyvsp[(2) - (4)].ll_node)->entry.Template.ll_ptr1) {
r = (yyvsp[(2) - (4)].ll_node)->entry.Template.ll_ptr1->entry.Template.ll_ptr1;
if(r->variant != VAR_REF && r->variant != ARRAY_REF){
err("A dummy argument of a statement function must be a scalar identifier", 333);
s1 = SMNULL;
}
else
s1 = r ->entry.Template.symbol;
} else
s1 = SMNULL;
if (s1)
s1->scope = cur_scope();
(yyval.bf_node) = get_bfnd(fi,STMTFN_STAT, SMNULL, (yyvsp[(2) - (4)].ll_node), LLNULL, LLNULL);
add_scope_level((yyval.bf_node), NO);
arg_list = SMNULL;
if (s1)
{
/*arg_list = SMNULL;*/
p = (yyvsp[(2) - (4)].ll_node)->entry.Template.ll_ptr1;
while (p != LLNULL)
{
/* if (p->entry.Template.ll_ptr1->variant != VAR_REF) {
errstr("cftn.gram:1: illegal statement function %s.", $2->entry.Template.symbol->ident);
break;
}
*/
r = p->entry.Template.ll_ptr1;
if(r->variant != VAR_REF && r->variant != ARRAY_REF){
err("A dummy argument of a statement function must be a scalar identifier", 333);
break;
}
hash_entry = look_up_sym(r->entry.Template.symbol->parent->ident);
s3 = make_scalar(hash_entry, s1->type, IO);
replace_symbol_in_expr(s3,(yyvsp[(4) - (4)].ll_node));
if (arg_list == SMNULL)
s2 = arg_list = s3;
else
{
s2->id_list = s3;
s2 = s3;
}
p = p->entry.Template.ll_ptr2;
}
}
(yyvsp[(2) - (4)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (4)].ll_node);
install_param_list((yyvsp[(2) - (4)].ll_node)->entry.Template.symbol,
arg_list, LLNULL, FUNCTION_NAME);
delete_beyond_scope_level((yyval.bf_node));
/* else
errstr("cftn.gram: Illegal statement function declaration %s.", $2->entry.Template.symbol->ident); */
}
}
else {
(yyval.bf_node) = get_bfnd(fi,ASSIGN_STAT,SMNULL, (yyvsp[(2) - (4)].ll_node), (yyvsp[(4) - (4)].ll_node), LLNULL);
parstate = INEXEC;
}
;}
break;
case 505:
#line 4274 "gram1.y"
{ /*PTR_SYMB s;*/
/*s = make_scalar($2, TYNULL, LOCAL);*/
(yyval.bf_node) = get_bfnd(fi, POINTER_ASSIGN_STAT, SMNULL, (yyvsp[(3) - (5)].ll_node), (yyvsp[(5) - (5)].ll_node), LLNULL);
;}
break;
case 506:
#line 4286 "gram1.y"
{ PTR_SYMB p;
p = make_scalar((yyvsp[(5) - (5)].hash_entry), TYNULL, LOCAL);
p->variant = LABEL_VAR;
(yyval.bf_node) = get_bfnd(fi,ASSLAB_STAT, p, (yyvsp[(3) - (5)].ll_node),LLNULL,LLNULL);
;}
break;
case 507:
#line 4293 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,CONT_STAT,SMNULL,LLNULL,LLNULL,LLNULL); ;}
break;
case 509:
#line 4296 "gram1.y"
{ inioctl = NO; ;}
break;
case 510:
#line 4298 "gram1.y"
{ PTR_LLND p;
p = make_llnd(fi,EXPR_LIST, (yyvsp[(10) - (10)].ll_node), LLNULL, SMNULL);
p = make_llnd(fi,EXPR_LIST, (yyvsp[(8) - (10)].ll_node), p, SMNULL);
(yyval.bf_node)= get_bfnd(fi,ARITHIF_NODE, SMNULL, (yyvsp[(4) - (10)].ll_node),
make_llnd(fi,EXPR_LIST, (yyvsp[(6) - (10)].ll_node), p, SMNULL), LLNULL);
thiswasbranch = YES;
;}
break;
case 511:
#line 4307 "gram1.y"
{
(yyval.bf_node) = subroutine_call((yyvsp[(1) - (1)].symbol), LLNULL, LLNULL, PLAIN);
/* match_parameters($1, LLNULL);
$$= get_bfnd(fi,PROC_STAT, $1, LLNULL, LLNULL, LLNULL);
*/ endioctl();
;}
break;
case 512:
#line 4314 "gram1.y"
{
(yyval.bf_node) = subroutine_call((yyvsp[(1) - (3)].symbol), LLNULL, LLNULL, PLAIN);
/* match_parameters($1, LLNULL);
$$= get_bfnd(fi,PROC_STAT,$1,LLNULL,LLNULL,LLNULL);
*/ endioctl();
;}
break;
case 513:
#line 4321 "gram1.y"
{
(yyval.bf_node) = subroutine_call((yyvsp[(1) - (4)].symbol), (yyvsp[(3) - (4)].ll_node), LLNULL, PLAIN);
/* match_parameters($1, $3);
$$= get_bfnd(fi,PROC_STAT,$1,$3,LLNULL,LLNULL);
*/ endioctl();
;}
break;
case 514:
#line 4329 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,RETURN_STAT,SMNULL,(yyvsp[(3) - (3)].ll_node),LLNULL,LLNULL);
thiswasbranch = YES;
;}
break;
case 515:
#line 4334 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,(yyvsp[(1) - (3)].token),SMNULL,(yyvsp[(3) - (3)].ll_node),LLNULL,LLNULL);
thiswasbranch = ((yyvsp[(1) - (3)].token) == STOP_STAT);
;}
break;
case 516:
#line 4339 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, CYCLE_STMT, (yyvsp[(3) - (3)].symbol), LLNULL, LLNULL, LLNULL); ;}
break;
case 517:
#line 4342 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, EXIT_STMT, (yyvsp[(3) - (3)].symbol), LLNULL, LLNULL, LLNULL); ;}
break;
case 518:
#line 4345 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, ALLOCATE_STMT, SMNULL, (yyvsp[(5) - (6)].ll_node), stat_alloc, LLNULL); ;}
break;
case 519:
#line 4348 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, DEALLOCATE_STMT, SMNULL, (yyvsp[(5) - (6)].ll_node), stat_alloc , LLNULL); ;}
break;
case 520:
#line 4351 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, NULLIFY_STMT, SMNULL, (yyvsp[(4) - (5)].ll_node), LLNULL, LLNULL); ;}
break;
case 521:
#line 4354 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, WHERE_NODE, SMNULL, (yyvsp[(4) - (8)].ll_node), (yyvsp[(6) - (8)].ll_node), (yyvsp[(8) - (8)].ll_node)); ;}
break;
case 522:
#line 4372 "gram1.y"
{(yyval.ll_node) = LLNULL;;}
break;
case 523:
#line 4376 "gram1.y"
{
(yyval.bf_node)=get_bfnd(fi,GOTO_NODE,SMNULL,LLNULL,LLNULL,(PTR_LLND)(yyvsp[(3) - (3)].ll_node));
thiswasbranch = YES;
;}
break;
case 524:
#line 4381 "gram1.y"
{ PTR_SYMB p;
if((yyvsp[(3) - (3)].hash_entry)->id_attr)
p = (yyvsp[(3) - (3)].hash_entry)->id_attr;
else {
p = make_scalar((yyvsp[(3) - (3)].hash_entry), TYNULL, LOCAL);
p->variant = LABEL_VAR;
}
if(p->variant == LABEL_VAR) {
(yyval.bf_node) = get_bfnd(fi,ASSGOTO_NODE,p,LLNULL,LLNULL,LLNULL);
thiswasbranch = YES;
}
else {
err("Must go to assigned variable", 48);
(yyval.bf_node) = BFNULL;
}
;}
break;
case 525:
#line 4400 "gram1.y"
{ PTR_SYMB p;
if((yyvsp[(3) - (7)].hash_entry)->id_attr)
p = (yyvsp[(3) - (7)].hash_entry)->id_attr;
else {
p = make_scalar((yyvsp[(3) - (7)].hash_entry), TYNULL, LOCAL);
p->variant = LABEL_VAR;
}
if (p->variant == LABEL_VAR) {
(yyval.bf_node) = get_bfnd(fi,ASSGOTO_NODE,p,(yyvsp[(6) - (7)].ll_node),LLNULL,LLNULL);
thiswasbranch = YES;
}
else {
err("Must go to assigned variable",48);
(yyval.bf_node) = BFNULL;
}
;}
break;
case 526:
#line 4419 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,COMGOTO_NODE, SMNULL, (yyvsp[(4) - (7)].ll_node), (yyvsp[(7) - (7)].ll_node), LLNULL); ;}
break;
case 529:
#line 4427 "gram1.y"
{ (yyval.symbol) = make_procedure((yyvsp[(3) - (4)].hash_entry), LOCAL); ;}
break;
case 530:
#line 4431 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(2) - (2)].ll_node), LLNULL, EXPR_LIST);
endioctl();
;}
break;
case 531:
#line 4436 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(1) - (4)].ll_node), (yyvsp[(4) - (4)].ll_node), EXPR_LIST);
endioctl();
;}
break;
case 532:
#line 4443 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 533:
#line 4445 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, KEYWORD_ARG, (yyvsp[(1) - (2)].ll_node), (yyvsp[(2) - (2)].ll_node), SMNULL); ;}
break;
case 534:
#line 4447 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,LABEL_ARG,(yyvsp[(2) - (2)].ll_node),LLNULL,SMNULL); ;}
break;
case 535:
#line 4450 "gram1.y"
{ (yyval.token) = PAUSE_NODE; ;}
break;
case 536:
#line 4451 "gram1.y"
{ (yyval.token) = STOP_STAT; ;}
break;
case 537:
#line 4462 "gram1.y"
{ if(parstate == OUTSIDE)
{ PTR_BFND p;
p = get_bfnd(fi,PROG_HEDR, make_program(look_up_sym("_MAIN")), LLNULL, LLNULL, LLNULL);
set_blobs(p, global_bfnd, NEW_GROUP1);
add_scope_level(p, NO);
position = IN_PROC;
}
if(parstate < INDATA) enddcl();
parstate = INEXEC;
yystno = 0;
;}
break;
case 538:
#line 4477 "gram1.y"
{ intonly = YES; ;}
break;
case 539:
#line 4481 "gram1.y"
{ intonly = NO; ;}
break;
case 540:
#line 4489 "gram1.y"
{ (yyvsp[(1) - (2)].bf_node)->entry.Template.ll_ptr2 = (yyvsp[(2) - (2)].ll_node);
(yyval.bf_node) = (yyvsp[(1) - (2)].bf_node); ;}
break;
case 541:
#line 4492 "gram1.y"
{ PTR_LLND p, q = LLNULL;
q = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
q->entry.string_val = (char *)"unit";
q->type = global_string;
p = make_llnd(fi, SPEC_PAIR, q, (yyvsp[(2) - (2)].ll_node), SMNULL);
(yyvsp[(1) - (2)].bf_node)->entry.Template.ll_ptr2 = p;
endioctl();
(yyval.bf_node) = (yyvsp[(1) - (2)].bf_node); ;}
break;
case 542:
#line 4502 "gram1.y"
{ PTR_LLND p, q, r;
p = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
p->entry.string_val = (char *)"*";
p->type = global_string;
q = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
q->entry.string_val = (char *)"unit";
q->type = global_string;
r = make_llnd(fi, SPEC_PAIR, p, q, SMNULL);
(yyvsp[(1) - (2)].bf_node)->entry.Template.ll_ptr2 = r;
endioctl();
(yyval.bf_node) = (yyvsp[(1) - (2)].bf_node); ;}
break;
case 543:
#line 4515 "gram1.y"
{ PTR_LLND p, q, r;
p = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
p->entry.string_val = (char *)"**";
p->type = global_string;
q = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
q->entry.string_val = (char *)"unit";
q->type = global_string;
r = make_llnd(fi, SPEC_PAIR, p, q, SMNULL);
(yyvsp[(1) - (2)].bf_node)->entry.Template.ll_ptr2 = r;
endioctl();
(yyval.bf_node) = (yyvsp[(1) - (2)].bf_node); ;}
break;
case 544:
#line 4528 "gram1.y"
{ (yyvsp[(1) - (2)].bf_node)->entry.Template.ll_ptr2 = (yyvsp[(2) - (2)].ll_node);
(yyval.bf_node) = (yyvsp[(1) - (2)].bf_node); ;}
break;
case 545:
#line 4531 "gram1.y"
{ (yyval.bf_node) = (yyvsp[(1) - (1)].bf_node); ;}
break;
case 546:
#line 4533 "gram1.y"
{ (yyvsp[(1) - (2)].bf_node)->entry.Template.ll_ptr2 = (yyvsp[(2) - (2)].ll_node);
(yyval.bf_node) = (yyvsp[(1) - (2)].bf_node); ;}
break;
case 547:
#line 4536 "gram1.y"
{ (yyvsp[(1) - (2)].bf_node)->entry.Template.ll_ptr2 = (yyvsp[(2) - (2)].ll_node);
(yyval.bf_node) = (yyvsp[(1) - (2)].bf_node); ;}
break;
case 548:
#line 4539 "gram1.y"
{ (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr2 = (yyvsp[(2) - (3)].ll_node);
(yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1 = (yyvsp[(3) - (3)].ll_node);
(yyval.bf_node) = (yyvsp[(1) - (3)].bf_node); ;}
break;
case 549:
#line 4543 "gram1.y"
{ (yyvsp[(1) - (4)].bf_node)->entry.Template.ll_ptr2 = (yyvsp[(2) - (4)].ll_node);
(yyvsp[(1) - (4)].bf_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (4)].ll_node);
(yyval.bf_node) = (yyvsp[(1) - (4)].bf_node); ;}
break;
case 550:
#line 4552 "gram1.y"
{ (yyvsp[(1) - (2)].bf_node)->entry.Template.ll_ptr2 = (yyvsp[(2) - (2)].ll_node);
(yyval.bf_node) = (yyvsp[(1) - (2)].bf_node); ;}
break;
case 551:
#line 4555 "gram1.y"
{ (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr2 = (yyvsp[(2) - (3)].ll_node);
(yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1 = (yyvsp[(3) - (3)].ll_node);
(yyval.bf_node) = (yyvsp[(1) - (3)].bf_node); ;}
break;
case 552:
#line 4559 "gram1.y"
{ (yyval.bf_node) = (yyvsp[(1) - (1)].bf_node); ;}
break;
case 553:
#line 4561 "gram1.y"
{ (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1 = (yyvsp[(3) - (3)].ll_node);
(yyval.bf_node) = (yyvsp[(1) - (3)].bf_node); ;}
break;
case 554:
#line 4567 "gram1.y"
{ (yyval.bf_node) = (yyvsp[(1) - (3)].bf_node); ;}
break;
case 555:
#line 4571 "gram1.y"
{(yyval.bf_node) = get_bfnd(fi, BACKSPACE_STAT, SMNULL, LLNULL, LLNULL, LLNULL);;}
break;
case 556:
#line 4573 "gram1.y"
{(yyval.bf_node) = get_bfnd(fi, REWIND_STAT, SMNULL, LLNULL, LLNULL, LLNULL);;}
break;
case 557:
#line 4575 "gram1.y"
{(yyval.bf_node) = get_bfnd(fi, ENDFILE_STAT, SMNULL, LLNULL, LLNULL, LLNULL);;}
break;
case 558:
#line 4582 "gram1.y"
{ (yyval.bf_node) = (yyvsp[(1) - (3)].bf_node); ;}
break;
case 559:
#line 4586 "gram1.y"
{(yyval.bf_node) = get_bfnd(fi, OPEN_STAT, SMNULL, LLNULL, LLNULL, LLNULL);;}
break;
case 560:
#line 4588 "gram1.y"
{(yyval.bf_node) = get_bfnd(fi, CLOSE_STAT, SMNULL, LLNULL, LLNULL, LLNULL);;}
break;
case 561:
#line 4592 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, INQUIRE_STAT, SMNULL, LLNULL, (yyvsp[(4) - (4)].ll_node), LLNULL);;}
break;
case 562:
#line 4594 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi, INQUIRE_STAT, SMNULL, (yyvsp[(5) - (5)].ll_node), (yyvsp[(4) - (5)].ll_node), LLNULL);;}
break;
case 563:
#line 4598 "gram1.y"
{ PTR_LLND p;
PTR_LLND q = LLNULL;
if ((yyvsp[(1) - (1)].ll_node)->variant == INT_VAL)
{
PTR_LABEL r;
r = make_label_node(fi, (long) (yyvsp[(1) - (1)].ll_node)->entry.ival);
r->scope = cur_scope();
p = make_llnd_label(fi, LABEL_REF, r);
}
else p = (yyvsp[(1) - (1)].ll_node);
q = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
q->entry.string_val = (char *)"fmt";
q->type = global_string;
(yyval.ll_node) = make_llnd(fi, SPEC_PAIR, q, p, SMNULL);
endioctl();
;}
break;
case 564:
#line 4617 "gram1.y"
{ PTR_LLND p;
PTR_LLND q;
p = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
p->entry.string_val = (char *)"*";
p->type = global_string;
q = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
q->entry.string_val = (char *)"fmt";
q->type = global_string;
(yyval.ll_node) = make_llnd(fi, SPEC_PAIR, q, p, SMNULL);
endioctl();
;}
break;
case 565:
#line 4633 "gram1.y"
{ PTR_LLND p;
p = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
p->entry.string_val = (char *)"unit";
p->type = global_string;
(yyval.ll_node) = make_llnd(fi, SPEC_PAIR, p, (yyvsp[(2) - (3)].ll_node), SMNULL);
endioctl();
;}
break;
case 566:
#line 4644 "gram1.y"
{
(yyval.ll_node) = (yyvsp[(2) - (3)].ll_node);
endioctl();
;}
break;
case 567:
#line 4651 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); endioctl();;}
break;
case 568:
#line 4653 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (4)].ll_node), (yyvsp[(4) - (4)].ll_node), EXPR_LIST); endioctl();;}
break;
case 569:
#line 4657 "gram1.y"
{ PTR_LLND p;
PTR_LLND q;
nioctl++;
if ((nioctl == 2) && ((yyvsp[(1) - (1)].ll_node)->variant == INT_VAL))
{
PTR_LABEL r;
r = make_label_node(fi, (long) (yyvsp[(1) - (1)].ll_node)->entry.ival);
r->scope = cur_scope();
p = make_llnd_label(fi, LABEL_REF, r);
}
else p = (yyvsp[(1) - (1)].ll_node);
q = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
if (nioctl == 1)
q->entry.string_val = (char *)"unit";
else {
if(((yyvsp[(1) - (1)].ll_node)->variant == VAR_REF) && (yyvsp[(1) - (1)].ll_node)->entry.Template.symbol->variant == NAMELIST_NAME)
q->entry.string_val = (char *)"nml";
else
q->entry.string_val = (char *)"fmt";
}
q->type = global_string;
(yyval.ll_node) = make_llnd(fi, SPEC_PAIR, q, p, SMNULL);
;}
break;
case 570:
#line 4683 "gram1.y"
{ PTR_LLND p;
PTR_LLND q;
nioctl++;
p = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
p->entry.string_val = (char *)"*";
p->type = global_string;
q = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
if (nioctl == 1)
q->entry.string_val = (char *)"unit";
else q->entry.string_val = (char *)"fmt";
q->type = global_string;
(yyval.ll_node) = make_llnd(fi, SPEC_PAIR, q, p, SMNULL);
;}
break;
case 571:
#line 4698 "gram1.y"
{ PTR_LLND p;
PTR_LLND q;
nioctl++;
p = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
p->entry.string_val = (char *)"**";
p->type = global_string;
q = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
if (nioctl == 1)
q->entry.string_val = (char *)"unit";
else q->entry.string_val = (char *)"fmt";
q->type = global_string;
(yyval.ll_node) = make_llnd(fi, SPEC_PAIR, q, p, SMNULL);
;}
break;
case 572:
#line 4713 "gram1.y"
{
PTR_LLND p;
char *q;
q = (yyvsp[(1) - (2)].ll_node)->entry.string_val;
if ((strcmp(q, "end") == 0) || (strcmp(q, "err") == 0) || (strcmp(q, "eor") == 0) || ((strcmp(q,"fmt") == 0) && ((yyvsp[(2) - (2)].ll_node)->variant == INT_VAL)))
{
PTR_LABEL r;
r = make_label_node(fi, (long) (yyvsp[(2) - (2)].ll_node)->entry.ival);
r->scope = cur_scope();
p = make_llnd_label(fi, LABEL_REF, r);
}
else p = (yyvsp[(2) - (2)].ll_node);
(yyval.ll_node) = make_llnd(fi, SPEC_PAIR, (yyvsp[(1) - (2)].ll_node), p, SMNULL); ;}
break;
case 573:
#line 4730 "gram1.y"
{ PTR_LLND p;
p = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
p->entry.string_val = (char *)"*";
p->type = global_string;
(yyval.ll_node) = make_llnd(fi, SPEC_PAIR, (yyvsp[(1) - (2)].ll_node), p, SMNULL);
;}
break;
case 574:
#line 4738 "gram1.y"
{ PTR_LLND p;
p = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
p->entry.string_val = (char *)"*";
p->type = global_string;
(yyval.ll_node) = make_llnd(fi, SPEC_PAIR, (yyvsp[(1) - (2)].ll_node), p, SMNULL);
;}
break;
case 575:
#line 4747 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.string_val = copys(yytext);
(yyval.ll_node)->type = global_string;
;}
break;
case 576:
#line 4755 "gram1.y"
{(yyval.bf_node) = get_bfnd(fi, READ_STAT, SMNULL, LLNULL, LLNULL, LLNULL);;}
break;
case 577:
#line 4760 "gram1.y"
{(yyval.bf_node) = get_bfnd(fi, WRITE_STAT, SMNULL, LLNULL, LLNULL, LLNULL);;}
break;
case 578:
#line 4765 "gram1.y"
{
PTR_LLND p, q, l;
if ((yyvsp[(3) - (4)].ll_node)->variant == INT_VAL)
{
PTR_LABEL r;
r = make_label_node(fi, (long) (yyvsp[(3) - (4)].ll_node)->entry.ival);
r->scope = cur_scope();
p = make_llnd_label(fi, LABEL_REF, r);
}
else p = (yyvsp[(3) - (4)].ll_node);
q = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
q->entry.string_val = (char *)"fmt";
q->type = global_string;
l = make_llnd(fi, SPEC_PAIR, q, p, SMNULL);
(yyval.bf_node) = get_bfnd(fi, PRINT_STAT, SMNULL, LLNULL, l, LLNULL);
endioctl();
;}
break;
case 579:
#line 4787 "gram1.y"
{ PTR_LLND p, q, r;
p = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
p->entry.string_val = (char *)"*";
p->type = global_string;
q = make_llnd(fi, KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
q->entry.string_val = (char *)"fmt";
q->type = global_string;
r = make_llnd(fi, SPEC_PAIR, q, p, SMNULL);
(yyval.bf_node) = get_bfnd(fi, PRINT_STAT, SMNULL, LLNULL, r, LLNULL);
endioctl();
;}
break;
case 580:
#line 4803 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST);;}
break;
case 581:
#line 4805 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST);;}
break;
case 582:
#line 4809 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 583:
#line 4811 "gram1.y"
{
(yyvsp[(4) - (5)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(2) - (5)].ll_node);
(yyval.ll_node) = (yyvsp[(4) - (5)].ll_node);
;}
break;
case 584:
#line 4818 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST); (yyval.ll_node)->type = (yyvsp[(1) - (1)].ll_node)->type;;}
break;
case 585:
#line 4820 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 586:
#line 4822 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 587:
#line 4826 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); (yyval.ll_node)->type = (yyvsp[(1) - (3)].ll_node)->type;;}
break;
case 588:
#line 4828 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); (yyval.ll_node)->type = (yyvsp[(1) - (3)].ll_node)->type;;}
break;
case 589:
#line 4830 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); (yyval.ll_node)->type = (yyvsp[(1) - (3)].ll_node)->type;;}
break;
case 590:
#line 4832 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); (yyval.ll_node)->type = (yyvsp[(1) - (3)].ll_node)->type;;}
break;
case 591:
#line 4834 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); (yyval.ll_node)->type = (yyvsp[(1) - (3)].ll_node)->type;;}
break;
case 592:
#line 4836 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); (yyval.ll_node)->type = (yyvsp[(1) - (3)].ll_node)->type;;}
break;
case 593:
#line 4840 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST);
(yyval.ll_node)->type = global_complex; ;}
break;
case 594:
#line 4843 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(2) - (3)].ll_node), LLNULL, EXPR_LIST);
(yyval.ll_node)->type = (yyvsp[(2) - (3)].ll_node)->type; ;}
break;
case 595:
#line 4846 "gram1.y"
{
(yyvsp[(4) - (5)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(2) - (5)].ll_node);
(yyval.ll_node) = set_ll_list((yyvsp[(4) - (5)].ll_node), LLNULL, EXPR_LIST);
(yyval.ll_node)->type = (yyvsp[(2) - (5)].ll_node)->type;
;}
break;
case 596:
#line 4852 "gram1.y"
{
(yyvsp[(4) - (5)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(2) - (5)].ll_node);
(yyval.ll_node) = set_ll_list((yyvsp[(4) - (5)].ll_node), LLNULL, EXPR_LIST);
(yyval.ll_node)->type = (yyvsp[(2) - (5)].ll_node)->type;
;}
break;
case 597:
#line 4858 "gram1.y"
{
(yyvsp[(4) - (5)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(2) - (5)].ll_node);
(yyval.ll_node) = set_ll_list((yyvsp[(4) - (5)].ll_node), LLNULL, EXPR_LIST);
(yyval.ll_node)->type = (yyvsp[(2) - (5)].ll_node)->type;
;}
break;
case 598:
#line 4866 "gram1.y"
{ inioctl = YES; ;}
break;
case 599:
#line 4870 "gram1.y"
{ startioctl();;}
break;
case 600:
#line 4878 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 601:
#line 4880 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(2) - (3)].ll_node); ;}
break;
case 602:
#line 4884 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 603:
#line 4886 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 604:
#line 4888 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,(yyvsp[(2) - (3)].token), (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), SMNULL);
set_expr_type((yyval.ll_node));
;}
break;
case 605:
#line 4893 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,MULT_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), SMNULL);
set_expr_type((yyval.ll_node));
;}
break;
case 606:
#line 4898 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,DIV_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), SMNULL);
set_expr_type((yyval.ll_node));
;}
break;
case 607:
#line 4903 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,EXP_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), SMNULL);
set_expr_type((yyval.ll_node));
;}
break;
case 608:
#line 4908 "gram1.y"
{
if((yyvsp[(1) - (2)].token) == SUBT_OP)
{
(yyval.ll_node) = make_llnd(fi,SUBT_OP, (yyvsp[(2) - (2)].ll_node), LLNULL, SMNULL);
set_expr_type((yyval.ll_node));
}
else (yyval.ll_node) = (yyvsp[(2) - (2)].ll_node);
;}
break;
case 609:
#line 4917 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,CONCAT_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), SMNULL);
set_expr_type((yyval.ll_node));
;}
break;
case 610:
#line 4922 "gram1.y"
{ (yyval.ll_node) = LLNULL; ;}
break;
case 611:
#line 4927 "gram1.y"
{ comments = cur_comment = CMNULL; ;}
break;
case 612:
#line 4929 "gram1.y"
{ PTR_CMNT p;
p = make_comment(fi,*commentbuf, HALF);
if (cur_comment)
cur_comment->next = p;
else {
if ((pred_bfnd->control_parent->variant == LOGIF_NODE) ||(pred_bfnd->control_parent->variant == FORALL_STAT))
pred_bfnd->control_parent->entry.Template.cmnt_ptr = p;
else last_bfnd->entry.Template.cmnt_ptr = p;
}
comments = cur_comment = CMNULL;
;}
break;
case 676:
#line 5012 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,HPF_TEMPLATE_STAT, SMNULL, (yyvsp[(3) - (3)].ll_node), LLNULL, LLNULL); ;}
break;
case 677:
#line 5014 "gram1.y"
{ PTR_SYMB s;
if((yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr2)
{
s = (yyvsp[(3) - (3)].ll_node)->entry.Template.ll_ptr1->entry.Template.symbol;
s->attr = s->attr | COMMON_BIT;
}
add_to_lowLevelList((yyvsp[(3) - (3)].ll_node), (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 678:
#line 5025 "gram1.y"
{PTR_SYMB s;
PTR_LLND q;
/* 27.06.18
if(! explicit_shape)
err("Explicit shape specification is required", 50);
*/
s = make_array((yyvsp[(1) - (2)].hash_entry), TYNULL, (yyvsp[(2) - (2)].ll_node), ndim, LOCAL);
if(s->attr & TEMPLATE_BIT)
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if((s->attr & PROCESSORS_BIT) || (s->attr & TASK_BIT) || (s->attr & DVM_POINTER_BIT))
errstr( "Inconsistent declaration of identifier %s ", s->ident, 16);
else
s->attr = s->attr | TEMPLATE_BIT;
if((yyvsp[(2) - (2)].ll_node)) s->attr = s->attr | DIMENSION_BIT;
q = make_llnd(fi,ARRAY_REF, (yyvsp[(2) - (2)].ll_node), LLNULL, s);
s->type->entry.ar_decl.ranges = (yyvsp[(2) - (2)].ll_node);
(yyval.ll_node) = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
;}
break;
case 679:
#line 5046 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_DYNAMIC_DIR, SMNULL, (yyvsp[(3) - (3)].ll_node), LLNULL, LLNULL);;}
break;
case 680:
#line 5050 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 681:
#line 5052 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 682:
#line 5056 "gram1.y"
{ PTR_SYMB s;
s = make_array((yyvsp[(1) - (1)].hash_entry), TYNULL, LLNULL, 0, LOCAL);
if(s->attr & DYNAMIC_BIT)
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if((s->attr & PROCESSORS_BIT) || (s->attr & TASK_BIT) || (s->attr & HEAP_BIT))
errstr("Inconsistent declaration of identifier %s", s->ident, 16);
else
s->attr = s->attr | DYNAMIC_BIT;
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, LLNULL, LLNULL, s);
;}
break;
case 683:
#line 5069 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_INHERIT_DIR, SMNULL, (yyvsp[(3) - (3)].ll_node), LLNULL, LLNULL);;}
break;
case 684:
#line 5073 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 685:
#line 5075 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 686:
#line 5079 "gram1.y"
{ PTR_SYMB s;
s = make_array((yyvsp[(1) - (1)].hash_entry), TYNULL, LLNULL, 0, LOCAL);
if((s->attr & PROCESSORS_BIT) ||(s->attr & TASK_BIT) || (s->attr & TEMPLATE_BIT) || (s->attr & ALIGN_BIT) || (s->attr & DISTRIBUTE_BIT))
errstr("Inconsistent declaration of identifier %s", s->ident, 16);
else
s->attr = s->attr | INHERIT_BIT;
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, LLNULL, LLNULL, s);
;}
break;
case 687:
#line 5090 "gram1.y"
{ PTR_LLND q;
q = set_ll_list((yyvsp[(3) - (4)].ll_node),LLNULL,EXPR_LIST);
/* (void)fprintf(stderr,"hpf.gram: shadow\n");*/
(yyval.bf_node) = get_bfnd(fi,DVM_SHADOW_DIR,SMNULL,q,(yyvsp[(4) - (4)].ll_node),LLNULL);
;}
break;
case 688:
#line 5101 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(2) - (3)].ll_node);;}
break;
case 689:
#line 5105 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 690:
#line 5107 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 691:
#line 5111 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 692:
#line 5113 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), SMNULL);;}
break;
case 693:
#line 5115 "gram1.y"
{
if(parstate!=INEXEC)
err("Illegal shadow width specification", 56);
(yyval.ll_node) = make_llnd(fi,SHADOW_NAMES_OP, (yyvsp[(3) - (4)].ll_node), LLNULL, SMNULL);
;}
break;
case 694:
#line 5130 "gram1.y"
{ PTR_SYMB s;
s = make_array((yyvsp[(1) - (1)].hash_entry), TYNULL, LLNULL, 0, LOCAL);
if(s->attr & SHADOW_BIT)
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if((s->attr & PROCESSORS_BIT) ||(s->attr & TASK_BIT) || (s->attr & TEMPLATE_BIT) || (s->attr & HEAP_BIT))
errstr( "Inconsistent declaration of identifier %s", s->ident, 16);
else
s->attr = s->attr | SHADOW_BIT;
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, LLNULL, LLNULL, s);
;}
break;
case 695:
#line 5142 "gram1.y"
{ PTR_SYMB s;
PTR_LLND q, r;
if(! explicit_shape) {
err("Explicit shape specification is required", 50);
/* $$ = BFNULL;*/
}
s = make_array((yyvsp[(3) - (4)].hash_entry), TYNULL, (yyvsp[(4) - (4)].ll_node), ndim, LOCAL);
if(s->attr & PROCESSORS_BIT)
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if((s->attr & ALIGN_BIT) ||(s->attr & DISTRIBUTE_BIT) ||(s->attr & TEMPLATE_BIT) || (s->attr & DYNAMIC_BIT) ||(s->attr & SHADOW_BIT) || (s->attr & TASK_BIT) || (s->attr & DVM_POINTER_BIT) || (s->attr & INHERIT_BIT))
errstr("Inconsistent declaration of identifier %s", s->ident, 16);
else
s->attr = s->attr | PROCESSORS_BIT;
if((yyvsp[(4) - (4)].ll_node)) s->attr = s->attr | DIMENSION_BIT;
q = make_llnd(fi,ARRAY_REF, (yyvsp[(4) - (4)].ll_node), LLNULL, s);
s->type->entry.ar_decl.ranges = (yyvsp[(4) - (4)].ll_node);
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi,HPF_PROCESSORS_STAT, SMNULL, r, LLNULL, LLNULL);
;}
break;
case 696:
#line 5162 "gram1.y"
{ PTR_SYMB s;
PTR_LLND q, r;
if(! explicit_shape) {
err("Explicit shape specification is required", 50);
/* $$ = BFNULL;*/
}
s = make_array((yyvsp[(3) - (4)].hash_entry), TYNULL, (yyvsp[(4) - (4)].ll_node), ndim, LOCAL);
if(s->attr & PROCESSORS_BIT)
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if((s->attr & ALIGN_BIT) ||(s->attr & DISTRIBUTE_BIT) ||(s->attr & TEMPLATE_BIT) || (s->attr & DYNAMIC_BIT) ||(s->attr & SHADOW_BIT) || (s->attr & TASK_BIT) || (s->attr & DVM_POINTER_BIT) || (s->attr & INHERIT_BIT))
errstr("Inconsistent declaration of identifier %s", s->ident, 16);
else
s->attr = s->attr | PROCESSORS_BIT;
if((yyvsp[(4) - (4)].ll_node)) s->attr = s->attr | DIMENSION_BIT;
q = make_llnd(fi,ARRAY_REF, (yyvsp[(4) - (4)].ll_node), LLNULL, s);
s->type->entry.ar_decl.ranges = (yyvsp[(4) - (4)].ll_node);
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi,HPF_PROCESSORS_STAT, SMNULL, r, LLNULL, LLNULL);
;}
break;
case 697:
#line 5182 "gram1.y"
{ PTR_SYMB s;
PTR_LLND q, r;
if(! explicit_shape) {
err("Explicit shape specification is required", 50);
/*$$ = BFNULL;*/
}
s = make_array((yyvsp[(3) - (4)].hash_entry), TYNULL, (yyvsp[(4) - (4)].ll_node), ndim, LOCAL);
if(s->attr & PROCESSORS_BIT)
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if((s->attr & ALIGN_BIT) ||(s->attr & DISTRIBUTE_BIT) ||(s->attr & TEMPLATE_BIT) || (s->attr & DYNAMIC_BIT) ||(s->attr & SHADOW_BIT) || (s->attr & TASK_BIT) || (s->attr & DVM_POINTER_BIT) || (s->attr & INHERIT_BIT) )
errstr("Inconsistent declaration of identifier %s", s->ident, 16);
else
s->attr = s->attr | PROCESSORS_BIT;
if((yyvsp[(4) - (4)].ll_node)) s->attr = s->attr | DIMENSION_BIT;
q = make_llnd(fi,ARRAY_REF, (yyvsp[(4) - (4)].ll_node), LLNULL, s);
s->type->entry.ar_decl.ranges = (yyvsp[(4) - (4)].ll_node);
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
add_to_lowLevelList(r, (yyvsp[(1) - (4)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 698:
#line 5204 "gram1.y"
{ PTR_LLND q,r;
q = make_llnd(fi,VAR_REF, LLNULL, LLNULL, (yyvsp[(3) - (3)].symbol));
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi,DVM_INDIRECT_GROUP_DIR, SMNULL, r, LLNULL, LLNULL);
;}
break;
case 699:
#line 5210 "gram1.y"
{ PTR_LLND q,r;
q = make_llnd(fi,VAR_REF, LLNULL, LLNULL, (yyvsp[(3) - (3)].symbol));
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
add_to_lowLevelList(r, (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1);
;
;}
break;
case 700:
#line 5219 "gram1.y"
{(yyval.symbol) = make_local_entity((yyvsp[(1) - (1)].hash_entry), REF_GROUP_NAME,global_default,LOCAL);
if((yyval.symbol)->attr & INDIRECT_BIT)
errstr( "Multiple declaration of identifier %s ", (yyval.symbol)->ident, 73);
(yyval.symbol)->attr = (yyval.symbol)->attr | INDIRECT_BIT;
;}
break;
case 701:
#line 5227 "gram1.y"
{ PTR_LLND q,r;
q = make_llnd(fi,VAR_REF, LLNULL, LLNULL, (yyvsp[(3) - (3)].symbol));
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi,DVM_REMOTE_GROUP_DIR, SMNULL, r, LLNULL, LLNULL);
;}
break;
case 702:
#line 5233 "gram1.y"
{ PTR_LLND q,r;
q = make_llnd(fi,VAR_REF, LLNULL, LLNULL, (yyvsp[(3) - (3)].symbol));
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
add_to_lowLevelList(r, (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 703:
#line 5241 "gram1.y"
{(yyval.symbol) = make_local_entity((yyvsp[(1) - (1)].hash_entry), REF_GROUP_NAME,global_default,LOCAL);
if((yyval.symbol)->attr & INDIRECT_BIT)
errstr( "Inconsistent declaration of identifier %s ", (yyval.symbol)->ident, 16);
;}
break;
case 704:
#line 5248 "gram1.y"
{ PTR_LLND q,r;
q = make_llnd(fi,VAR_REF, LLNULL, LLNULL, (yyvsp[(3) - (3)].symbol));
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi,DVM_REDUCTION_GROUP_DIR, SMNULL, r, LLNULL, LLNULL);
;}
break;
case 705:
#line 5254 "gram1.y"
{ PTR_LLND q,r;
q = make_llnd(fi,VAR_REF, LLNULL, LLNULL, (yyvsp[(3) - (3)].symbol));
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
add_to_lowLevelList(r, (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1);
;
;}
break;
case 706:
#line 5263 "gram1.y"
{(yyval.symbol) = make_local_entity((yyvsp[(1) - (1)].hash_entry), REDUCTION_GROUP_NAME,global_default,LOCAL);;}
break;
case 707:
#line 5267 "gram1.y"
{ PTR_LLND q,r;
q = make_llnd(fi,VAR_REF, LLNULL, LLNULL, (yyvsp[(3) - (3)].symbol));
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi,DVM_CONSISTENT_GROUP_DIR, SMNULL, r, LLNULL, LLNULL);
;}
break;
case 708:
#line 5273 "gram1.y"
{ PTR_LLND q,r;
q = make_llnd(fi,VAR_REF, LLNULL, LLNULL, (yyvsp[(3) - (3)].symbol));
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
add_to_lowLevelList(r, (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 709:
#line 5281 "gram1.y"
{(yyval.symbol) = make_local_entity((yyvsp[(1) - (1)].hash_entry), CONSISTENT_GROUP_NAME,global_default,LOCAL);;}
break;
case 710:
#line 5295 "gram1.y"
{ PTR_SYMB s;
if(parstate == INEXEC){
if (!(s = (yyvsp[(2) - (3)].hash_entry)->id_attr))
{
s = make_array((yyvsp[(2) - (3)].hash_entry), TYNULL, LLNULL, 0, LOCAL);
s->decl = SOFT;
}
} else
s = make_array((yyvsp[(2) - (3)].hash_entry), TYNULL, LLNULL, 0, LOCAL);
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, (yyvsp[(3) - (3)].ll_node), LLNULL, s);
;}
break;
case 711:
#line 5308 "gram1.y"
{ (yyval.ll_node) = LLNULL; opt_kwd_ = NO;;}
break;
case 712:
#line 5314 "gram1.y"
{ PTR_LLND q;
if(!(yyvsp[(4) - (5)].ll_node))
err("Distribution format list is omitted", 51);
/* if($6)
err("NEW_VALUE specification in DISTRIBUTE directive");*/
q = set_ll_list((yyvsp[(3) - (5)].ll_node),LLNULL,EXPR_LIST);
(yyval.bf_node) = get_bfnd(fi,DVM_DISTRIBUTE_DIR,SMNULL,q,(yyvsp[(4) - (5)].ll_node),(yyvsp[(5) - (5)].ll_node));
;}
break;
case 713:
#line 5330 "gram1.y"
{ PTR_LLND q;
/* if(!$4)
{err("Distribution format is omitted", 51); errcnt--;}
*/
q = set_ll_list((yyvsp[(3) - (6)].ll_node),LLNULL,EXPR_LIST);
/* r = LLNULL;
if($6){
r = set_ll_list($6,LLNULL,EXPR_LIST);
if($7) r = set_ll_list(r,$7,EXPR_LIST);
} else
if($7) r = set_ll_list(r,$7,EXPR_LIST);
*/
(yyval.bf_node) = get_bfnd(fi,DVM_REDISTRIBUTE_DIR,SMNULL,q,(yyvsp[(4) - (6)].ll_node),(yyvsp[(6) - (6)].ll_node));;}
break;
case 714:
#line 5345 "gram1.y"
{
/* r = LLNULL;
if($5){
r = set_ll_list($5,LLNULL,EXPR_LIST);
if($6) r = set_ll_list(r,$6,EXPR_LIST);
} else
if($6) r = set_ll_list(r,$6,EXPR_LIST);
*/
(yyval.bf_node) = get_bfnd(fi,DVM_REDISTRIBUTE_DIR,SMNULL,(yyvsp[(8) - (8)].ll_node) ,(yyvsp[(3) - (8)].ll_node),(yyvsp[(5) - (8)].ll_node) );
;}
break;
case 715:
#line 5373 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 716:
#line 5375 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 717:
#line 5379 "gram1.y"
{(yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 718:
#line 5381 "gram1.y"
{(yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 719:
#line 5385 "gram1.y"
{ PTR_SYMB s;
if(parstate == INEXEC){
if (!(s = (yyvsp[(1) - (1)].hash_entry)->id_attr))
{
s = make_array((yyvsp[(1) - (1)].hash_entry), TYNULL, LLNULL, 0, LOCAL);
s->decl = SOFT;
}
if(s->attr & PROCESSORS_BIT)
errstr( "Illegal use of PROCESSORS name %s ", s->ident, 53);
if(s->attr & TASK_BIT)
errstr( "Illegal use of task array name %s ", s->ident, 71);
} else {
s = make_array((yyvsp[(1) - (1)].hash_entry), TYNULL, LLNULL, 0, LOCAL);
if(s->attr & DISTRIBUTE_BIT)
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
else if( (s->attr & PROCESSORS_BIT) || (s->attr & TASK_BIT) || (s->attr & INHERIT_BIT))
errstr("Inconsistent declaration of identifier %s",s->ident, 16);
else
s->attr = s->attr | DISTRIBUTE_BIT;
}
if(s->attr & ALIGN_BIT)
errstr("A distributee may not have the ALIGN attribute:%s",s->ident, 54);
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, LLNULL, LLNULL, s);
;}
break;
case 720:
#line 5414 "gram1.y"
{ PTR_SYMB s;
s = make_array((yyvsp[(1) - (4)].hash_entry), TYNULL, LLNULL, 0, LOCAL);
if(parstate != INEXEC)
errstr( "Illegal distributee:%s", s->ident, 312);
else {
if(s->attr & PROCESSORS_BIT)
errstr( "Illegal use of PROCESSORS name %s ", s->ident, 53);
if(s->attr & TASK_BIT)
errstr( "Illegal use of task array name %s ", s->ident, 71);
if(s->attr & ALIGN_BIT)
errstr("A distributee may not have the ALIGN attribute:%s",s->ident, 54);
if(!(s->attr & DVM_POINTER_BIT))
errstr("Illegal distributee:%s", s->ident, 312);
/*s->attr = s->attr | DISTRIBUTE_BIT;*/
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, (yyvsp[(3) - (4)].ll_node), LLNULL, s);
}
;}
break;
case 721:
#line 5437 "gram1.y"
{ PTR_SYMB s;
if((s=(yyvsp[(1) - (1)].hash_entry)->id_attr) == SMNULL)
s = make_array((yyvsp[(1) - (1)].hash_entry), TYNULL, LLNULL, 0, LOCAL);
if((parstate == INEXEC) && !(s->attr & PROCESSORS_BIT))
errstr( "'%s' is not processor array ", s->ident, 67);
(yyval.symbol) = s;
;}
break;
case 722:
#line 5457 "gram1.y"
{ (yyval.ll_node) = LLNULL; ;}
break;
case 723:
#line 5459 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (2)].ll_node);;}
break;
case 724:
#line 5463 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(2) - (3)].ll_node);;}
break;
case 725:
#line 5484 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(2) - (2)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 726:
#line 5486 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (4)].ll_node),(yyvsp[(4) - (4)].ll_node),EXPR_LIST); ;}
break;
case 727:
#line 5489 "gram1.y"
{ opt_kwd_ = YES; ;}
break;
case 728:
#line 5498 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,BLOCK_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 729:
#line 5502 "gram1.y"
{ err("Distribution format BLOCK(n) is not permitted in FDVM", 55);
(yyval.ll_node) = make_llnd(fi,BLOCK_OP, (yyvsp[(4) - (5)].ll_node), LLNULL, SMNULL);
endioctl();
;}
break;
case 730:
#line 5507 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,BLOCK_OP, LLNULL, LLNULL, (yyvsp[(3) - (4)].symbol)); ;}
break;
case 731:
#line 5509 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,BLOCK_OP, (yyvsp[(5) - (6)].ll_node), LLNULL, (yyvsp[(3) - (6)].symbol)); ;}
break;
case 732:
#line 5511 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,BLOCK_OP, LLNULL, (yyvsp[(3) - (4)].ll_node), SMNULL); ;}
break;
case 733:
#line 5513 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "*";
(yyval.ll_node)->type = global_string;
;}
break;
case 734:
#line 5519 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,INDIRECT_OP, LLNULL, LLNULL, (yyvsp[(3) - (4)].symbol)); ;}
break;
case 735:
#line 5521 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,INDIRECT_OP, (yyvsp[(3) - (4)].ll_node), LLNULL, SMNULL); ;}
break;
case 736:
#line 5525 "gram1.y"
{ PTR_SYMB s;
s = make_array((yyvsp[(1) - (1)].hash_entry), TYNULL, LLNULL, 0, LOCAL);
if((s->attr & PROCESSORS_BIT) ||(s->attr & TASK_BIT) || (s->attr & TEMPLATE_BIT))
errstr("Inconsistent declaration of identifier %s", s->ident, 16);
(yyval.symbol) = s;
;}
break;
case 737:
#line 5535 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DERIVED_OP, (yyvsp[(2) - (6)].ll_node), (yyvsp[(6) - (6)].ll_node), SMNULL); ;}
break;
case 738:
#line 5539 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 739:
#line 5541 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 740:
#line 5546 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 741:
#line 5548 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), SMNULL);;}
break;
case 742:
#line 5552 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, LLNULL, LLNULL, (yyvsp[(1) - (1)].symbol));
;}
break;
case 743:
#line 5556 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, (yyvsp[(3) - (4)].ll_node), LLNULL, (yyvsp[(1) - (4)].symbol));
;}
break;
case 744:
#line 5562 "gram1.y"
{
if (!((yyval.symbol) = (yyvsp[(1) - (1)].hash_entry)->id_attr))
{
(yyval.symbol) = make_array((yyvsp[(1) - (1)].hash_entry), TYNULL, LLNULL,0,LOCAL);
(yyval.symbol)->decl = SOFT;
}
;}
break;
case 745:
#line 5572 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 746:
#line 5574 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 747:
#line 5578 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 748:
#line 5580 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 749:
#line 5582 "gram1.y"
{
(yyvsp[(2) - (3)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(3) - (3)].ll_node);
(yyval.ll_node) = (yyvsp[(2) - (3)].ll_node);
;}
break;
case 750:
#line 5589 "gram1.y"
{ PTR_SYMB s;
s = make_scalar((yyvsp[(1) - (1)].hash_entry),TYNULL,LOCAL);
(yyval.ll_node) = make_llnd(fi,DUMMY_REF, LLNULL, LLNULL, s);
/*$$->type = global_int;*/
;}
break;
case 751:
#line 5606 "gram1.y"
{ (yyval.ll_node) = LLNULL; ;}
break;
case 752:
#line 5608 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 753:
#line 5612 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(2) - (2)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 754:
#line 5614 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 755:
#line 5618 "gram1.y"
{ if((yyvsp[(1) - (1)].ll_node)->type->variant != T_STRING)
errstr( "Illegal type of shadow_name", 627);
(yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);
;}
break;
case 756:
#line 5625 "gram1.y"
{ char *q;
nioctl = 1;
q = (yyvsp[(1) - (2)].ll_node)->entry.string_val;
if((!strcmp(q,"shadow")) && ((yyvsp[(2) - (2)].ll_node)->variant == INT_VAL)) (yyval.ll_node) = make_llnd(fi,SPEC_PAIR, (yyvsp[(1) - (2)].ll_node), (yyvsp[(2) - (2)].ll_node), SMNULL);
else
{ err("Illegal shadow width specification", 56);
(yyval.ll_node) = LLNULL;
}
;}
break;
case 757:
#line 5635 "gram1.y"
{ char *ql, *qh;
PTR_LLND p1, p2;
nioctl = 2;
ql = (yyvsp[(1) - (5)].ll_node)->entry.string_val;
qh = (yyvsp[(4) - (5)].ll_node)->entry.string_val;
if((!strcmp(ql,"low_shadow")) && ((yyvsp[(2) - (5)].ll_node)->variant == INT_VAL) && (!strcmp(qh,"high_shadow")) && ((yyvsp[(5) - (5)].ll_node)->variant == INT_VAL))
{
p1 = make_llnd(fi,SPEC_PAIR, (yyvsp[(1) - (5)].ll_node), (yyvsp[(2) - (5)].ll_node), SMNULL);
p2 = make_llnd(fi,SPEC_PAIR, (yyvsp[(4) - (5)].ll_node), (yyvsp[(5) - (5)].ll_node), SMNULL);
(yyval.ll_node) = make_llnd(fi,CONS, p1, p2, SMNULL);
}
else
{ err("Illegal shadow width specification", 56);
(yyval.ll_node) = LLNULL;
}
;}
break;
case 758:
#line 5664 "gram1.y"
{ PTR_LLND q;
q = set_ll_list((yyvsp[(3) - (4)].ll_node),LLNULL,EXPR_LIST);
(yyval.bf_node) = (yyvsp[(4) - (4)].bf_node);
(yyval.bf_node)->entry.Template.ll_ptr1 = q;
;}
break;
case 759:
#line 5679 "gram1.y"
{ PTR_LLND q;
q = set_ll_list((yyvsp[(3) - (4)].ll_node),LLNULL,EXPR_LIST);
(yyval.bf_node) = (yyvsp[(4) - (4)].bf_node);
(yyval.bf_node)->variant = DVM_REALIGN_DIR;
(yyval.bf_node)->entry.Template.ll_ptr1 = q;
;}
break;
case 760:
#line 5686 "gram1.y"
{
(yyval.bf_node) = (yyvsp[(3) - (6)].bf_node);
(yyval.bf_node)->variant = DVM_REALIGN_DIR;
(yyval.bf_node)->entry.Template.ll_ptr1 = (yyvsp[(6) - (6)].ll_node);
;}
break;
case 761:
#line 5704 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 762:
#line 5706 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 763:
#line 5710 "gram1.y"
{ PTR_SYMB s;
s = make_array((yyvsp[(1) - (1)].hash_entry), TYNULL, LLNULL, 0, LOCAL);
if((s->attr & ALIGN_BIT))
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if((s->attr & PROCESSORS_BIT) || (s->attr & TASK_BIT) || (s->attr & INHERIT_BIT))
errstr( "Inconsistent declaration of identifier %s", s->ident, 16);
else if(s->attr & DISTRIBUTE_BIT)
errstr( "An alignee may not have the DISTRIBUTE attribute:'%s'", s->ident,57); else
s->attr = s->attr | ALIGN_BIT;
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, LLNULL, LLNULL, s);
;}
break;
case 764:
#line 5724 "gram1.y"
{PTR_SYMB s;
s = (yyvsp[(1) - (1)].ll_node)->entry.Template.symbol;
if(s->attr & PROCESSORS_BIT)
errstr( "Illegal use of PROCESSORS name %s ", s->ident, 53);
else if(s->attr & TASK_BIT)
errstr( "Illegal use of task array name %s ", s->ident, 71);
else if( !(s->attr & DIMENSION_BIT) && !(s->attr & DVM_POINTER_BIT))
errstr("The alignee %s isn't an array", s->ident, 58);
else {
/* if(!(s->attr & DYNAMIC_BIT))
errstr("'%s' hasn't the DYNAMIC attribute", s->ident, 59);
*/
if(!(s->attr & ALIGN_BIT) && !(s->attr & INHERIT_BIT))
errstr("'%s' hasn't the ALIGN attribute", s->ident, 60);
if(s->attr & DISTRIBUTE_BIT)
errstr("An alignee may not have the DISTRIBUTE attribute: %s", s->ident, 57);
/* if(s->entry.var_decl.local == IO)
* errstr("An alignee may not be the dummy argument");
*/
}
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, LLNULL, LLNULL, s);
;}
break;
case 765:
#line 5750 "gram1.y"
{ /* PTR_LLND r;
if($7) {
r = set_ll_list($6,LLNULL,EXPR_LIST);
r = set_ll_list(r,$7,EXPR_LIST);
}
else
r = $6;
*/
(yyval.bf_node) = get_bfnd(fi,DVM_ALIGN_DIR,SMNULL,LLNULL,(yyvsp[(2) - (6)].ll_node),(yyvsp[(6) - (6)].ll_node));
;}
break;
case 766:
#line 5763 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, (yyvsp[(3) - (4)].ll_node), LLNULL, (yyvsp[(1) - (4)].symbol));
;}
break;
case 767:
#line 5779 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 768:
#line 5781 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 769:
#line 5784 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 770:
#line 5786 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "*";
(yyval.ll_node)->type = global_string;
;}
break;
case 771:
#line 5792 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 772:
#line 5796 "gram1.y"
{
/* if(parstate == INEXEC){ *for REALIGN directive*
if (!($$ = $1->id_attr))
{
$$ = make_array($1, TYNULL, LLNULL,0,LOCAL);
$$->decl = SOFT;
}
} else
$$ = make_array($1, TYNULL, LLNULL, 0, LOCAL);
*/
if (!((yyval.symbol) = (yyvsp[(1) - (1)].hash_entry)->id_attr))
{
(yyval.symbol) = make_array((yyvsp[(1) - (1)].hash_entry), TYNULL, LLNULL,0,LOCAL);
(yyval.symbol)->decl = SOFT;
}
(yyval.symbol)->attr = (yyval.symbol)->attr | ALIGN_BASE_BIT;
if((yyval.symbol)->attr & PROCESSORS_BIT)
errstr( "Illegal use of PROCESSORS name %s ", (yyval.symbol)->ident, 53);
else if((yyval.symbol)->attr & TASK_BIT)
errstr( "Illegal use of task array name %s ", (yyval.symbol)->ident, 71);
else
if((parstate == INEXEC) /* for REALIGN directive */
&& !((yyval.symbol)->attr & DIMENSION_BIT) && !((yyval.symbol)->attr & DVM_POINTER_BIT))
errstr("The align-target %s isn't declared as array", (yyval.symbol)->ident, 61);
;}
break;
case 773:
#line 5824 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 774:
#line 5826 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 775:
#line 5830 "gram1.y"
{ PTR_SYMB s;
s = make_scalar((yyvsp[(1) - (1)].hash_entry),TYNULL,LOCAL);
if(s->type->variant != T_INT || s->attr & PARAMETER_BIT)
errstr("The align-dummy %s isn't a scalar integer variable", s->ident, 62);
(yyval.ll_node) = make_llnd(fi,VAR_REF, LLNULL, LLNULL, s);
(yyval.ll_node)->type = global_int;
;}
break;
case 776:
#line 5838 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "*";
(yyval.ll_node)->type = global_string;
;}
break;
case 777:
#line 5844 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT, LLNULL, LLNULL, SMNULL); ;}
break;
case 778:
#line 5847 "gram1.y"
{ PTR_SYMB s;
PTR_LLND q, r, p;
int numdim;
if(type_options & PROCESSORS_BIT) { /* 27.06.18 || (type_options & TEMPLATE_BIT)){ */
if(! explicit_shape) {
err("Explicit shape specification is required", 50);
/*$$ = BFNULL;*/
}
}
/* else {
if($6)
err("Shape specification is not permitted", 263);
} */
if(type_options & DIMENSION_BIT)
{ p = attr_dims; numdim = attr_ndim;}
else
{ p = LLNULL; numdim = 0; }
if((yyvsp[(6) - (6)].ll_node)) /*dimension information after the object name*/
{ p = (yyvsp[(6) - (6)].ll_node); numdim = ndim;} /*overrides the DIMENSION attribute */
s = make_array((yyvsp[(5) - (6)].hash_entry), TYNULL, p, numdim, LOCAL);
if((type_options & COMMON_BIT) && !(type_options & TEMPLATE_BIT))
{
err("Illegal combination of attributes", 63);
type_options = type_options & (~COMMON_BIT);
}
if((type_options & PROCESSORS_BIT) &&((type_options & ALIGN_BIT) ||(type_options & DISTRIBUTE_BIT) ||(type_options & TEMPLATE_BIT) || (type_options & DYNAMIC_BIT) ||(type_options & SHADOW_BIT) ))
err("Illegal combination of attributes", 63);
else if((type_options & PROCESSORS_BIT) && ((s->attr & ALIGN_BIT) ||(s->attr & DISTRIBUTE_BIT) ||(s->attr & TEMPLATE_BIT) || (s->attr & DYNAMIC_BIT) ||(s->attr & SHADOW_BIT)) )
{ errstr("Inconsistent declaration of %s", s->ident, 16);
type_options = type_options & (~PROCESSORS_BIT);
}
else if ((s->attr & PROCESSORS_BIT) && ((type_options & ALIGN_BIT) ||(type_options & DISTRIBUTE_BIT) ||(type_options & TEMPLATE_BIT) || (type_options & DYNAMIC_BIT) ||(type_options & SHADOW_BIT)))
errstr("Inconsistent declaration of %s", s->ident, 16);
else if ((s->attr & INHERIT_BIT) && ((type_options & ALIGN_BIT) ||(type_options & DISTRIBUTE_BIT)))
errstr("Inconsistent declaration of %s", s->ident, 16);
if(( s->attr & DISTRIBUTE_BIT) && (type_options & DISTRIBUTE_BIT))
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if(( s->attr & ALIGN_BIT) && (type_options & ALIGN_BIT))
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if(( s->attr & SHADOW_BIT) && (type_options & SHADOW_BIT))
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if(( s->attr & TEMPLATE_BIT) && (type_options & TEMPLATE_BIT))
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if(( s->attr & PROCESSORS_BIT) && (type_options & PROCESSORS_BIT))
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
s->attr = s->attr | type_options;
if((yyvsp[(6) - (6)].ll_node)) s->attr = s->attr | DIMENSION_BIT;
if((s->attr & DISTRIBUTE_BIT) && (s->attr & ALIGN_BIT))
errstr("%s has the DISTRIBUTE and ALIGN attribute",s->ident, 64);
q = make_llnd(fi,ARRAY_REF, (yyvsp[(6) - (6)].ll_node), LLNULL, s);
if(p) s->type->entry.ar_decl.ranges = p;
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi,DVM_VAR_DECL, SMNULL, r, LLNULL,(yyvsp[(1) - (6)].ll_node));
;}
break;
case 779:
#line 5905 "gram1.y"
{ PTR_SYMB s;
PTR_LLND q, r, p;
int numdim;
if(type_options & PROCESSORS_BIT) { /*23.10.18 || (type_options & TEMPLATE_BIT)){ */
if(! explicit_shape) {
err("Explicit shape specification is required", 50);
/*$$ = BFNULL;*/
}
}
/* else {
if($4)
err("Shape specification is not permitted", 263);
} */
if(type_options & DIMENSION_BIT)
{ p = attr_dims; numdim = attr_ndim;}
else
{ p = LLNULL; numdim = 0; }
if((yyvsp[(4) - (4)].ll_node)) /*dimension information after the object name*/
{ p = (yyvsp[(4) - (4)].ll_node); numdim = ndim;}/*overrides the DIMENSION attribute */
s = make_array((yyvsp[(3) - (4)].hash_entry), TYNULL, p, numdim, LOCAL);
if((type_options & COMMON_BIT) && !(type_options & TEMPLATE_BIT))
{
err("Illegal combination of attributes", 63);
type_options = type_options & (~COMMON_BIT);
}
if((type_options & PROCESSORS_BIT) &&((type_options & ALIGN_BIT) ||(type_options & DISTRIBUTE_BIT) ||(type_options & TEMPLATE_BIT) || (type_options & DYNAMIC_BIT) ||(type_options & SHADOW_BIT) ))
err("Illegal combination of attributes", 63);
else if((type_options & PROCESSORS_BIT) && ((s->attr & ALIGN_BIT) ||(s->attr & DISTRIBUTE_BIT) ||(s->attr & TEMPLATE_BIT) || (s->attr & DYNAMIC_BIT) ||(s->attr & SHADOW_BIT)) )
{ errstr("Inconsistent declaration of identifier %s", s->ident, 16);
type_options = type_options & (~PROCESSORS_BIT);
}
else if ((s->attr & PROCESSORS_BIT) && ((type_options & ALIGN_BIT) ||(type_options & DISTRIBUTE_BIT) ||(type_options & TEMPLATE_BIT) || (type_options & DYNAMIC_BIT) ||(type_options & SHADOW_BIT)))
errstr("Inconsistent declaration of identifier %s", s->ident,16);
else if ((s->attr & INHERIT_BIT) && ((type_options & ALIGN_BIT) ||(type_options & DISTRIBUTE_BIT)))
errstr("Inconsistent declaration of identifier %s", s->ident, 16);
if(( s->attr & DISTRIBUTE_BIT) && (type_options & DISTRIBUTE_BIT))
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if(( s->attr & ALIGN_BIT) && (type_options & ALIGN_BIT))
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if(( s->attr & SHADOW_BIT) && (type_options & SHADOW_BIT))
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if(( s->attr & TEMPLATE_BIT) && (type_options & TEMPLATE_BIT))
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if(( s->attr & PROCESSORS_BIT) && (type_options & PROCESSORS_BIT))
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
s->attr = s->attr | type_options;
if((yyvsp[(4) - (4)].ll_node)) s->attr = s->attr | DIMENSION_BIT;
if((s->attr & DISTRIBUTE_BIT) && (s->attr & ALIGN_BIT))
errstr("%s has the DISTRIBUTE and ALIGN attribute",s->ident, 64);
q = make_llnd(fi,ARRAY_REF, (yyvsp[(4) - (4)].ll_node), LLNULL, s);
if(p) s->type->entry.ar_decl.ranges = p;
r = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);
add_to_lowLevelList(r, (yyvsp[(1) - (4)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 780:
#line 5969 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); type_options = type_opt; ;}
break;
case 781:
#line 5971 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (4)].ll_node),(yyvsp[(4) - (4)].ll_node),EXPR_LIST); type_options = type_options | type_opt;;}
break;
case 782:
#line 5974 "gram1.y"
{ type_opt = TEMPLATE_BIT;
(yyval.ll_node) = make_llnd(fi,TEMPLATE_OP,LLNULL,LLNULL,SMNULL);
;}
break;
case 783:
#line 5978 "gram1.y"
{ type_opt = PROCESSORS_BIT;
(yyval.ll_node) = make_llnd(fi,PROCESSORS_OP,LLNULL,LLNULL,SMNULL);
;}
break;
case 784:
#line 5982 "gram1.y"
{ type_opt = PROCESSORS_BIT;
(yyval.ll_node) = make_llnd(fi,PROCESSORS_OP,LLNULL,LLNULL,SMNULL);
;}
break;
case 785:
#line 5986 "gram1.y"
{ type_opt = DYNAMIC_BIT;
(yyval.ll_node) = make_llnd(fi,DYNAMIC_OP,LLNULL,LLNULL,SMNULL);
;}
break;
case 786:
#line 6003 "gram1.y"
{
if(! explicit_shape) {
err("Explicit shape specification is required", 50);
}
if(! (yyvsp[(3) - (4)].ll_node)) {
err("No shape specification", 65);
}
type_opt = DIMENSION_BIT;
attr_ndim = ndim; attr_dims = (yyvsp[(3) - (4)].ll_node);
(yyval.ll_node) = make_llnd(fi,DIMENSION_OP,(yyvsp[(3) - (4)].ll_node),LLNULL,SMNULL);
;}
break;
case 787:
#line 6015 "gram1.y"
{ type_opt = SHADOW_BIT;
(yyval.ll_node) = make_llnd(fi,SHADOW_OP,(yyvsp[(2) - (2)].ll_node),LLNULL,SMNULL);
;}
break;
case 788:
#line 6019 "gram1.y"
{ type_opt = ALIGN_BIT;
(yyval.ll_node) = make_llnd(fi,ALIGN_OP,(yyvsp[(3) - (7)].ll_node),(yyvsp[(7) - (7)].ll_node),SMNULL);
;}
break;
case 789:
#line 6023 "gram1.y"
{ type_opt = ALIGN_BIT;
(yyval.ll_node) = make_llnd(fi,ALIGN_OP,LLNULL,SMNULL,SMNULL);
;}
break;
case 790:
#line 6033 "gram1.y"
{
type_opt = DISTRIBUTE_BIT;
(yyval.ll_node) = make_llnd(fi,DISTRIBUTE_OP,(yyvsp[(2) - (4)].ll_node),(yyvsp[(4) - (4)].ll_node),SMNULL);
;}
break;
case 791:
#line 6038 "gram1.y"
{
type_opt = DISTRIBUTE_BIT;
(yyval.ll_node) = make_llnd(fi,DISTRIBUTE_OP,LLNULL,LLNULL,SMNULL);
;}
break;
case 792:
#line 6043 "gram1.y"
{
type_opt = COMMON_BIT;
(yyval.ll_node) = make_llnd(fi,COMMON_OP, LLNULL, LLNULL, SMNULL);
;}
break;
case 793:
#line 6050 "gram1.y"
{
PTR_LLND l;
l = make_llnd(fi, TYPE_OP, LLNULL, LLNULL, SMNULL);
l->type = (yyvsp[(1) - (11)].data_type);
(yyval.bf_node) = get_bfnd(fi,DVM_POINTER_DIR, SMNULL, (yyvsp[(11) - (11)].ll_node),(yyvsp[(7) - (11)].ll_node), l);
;}
break;
case 794:
#line 6058 "gram1.y"
{ndim = 0;;}
break;
case 795:
#line 6059 "gram1.y"
{ PTR_LLND q;
if(ndim == maxdim)
err("Too many dimensions", 43);
else if(ndim < maxdim)
q = make_llnd(fi,DDOT,LLNULL,LLNULL,SMNULL);
++ndim;
(yyval.ll_node) = set_ll_list(q, LLNULL, EXPR_LIST);
/*$$ = make_llnd(fi,EXPR_LIST, q, LLNULL, SMNULL);*/
/*$$->type = global_default;*/
;}
break;
case 796:
#line 6070 "gram1.y"
{ PTR_LLND q;
if(ndim == maxdim)
err("Too many dimensions", 43);
else if(ndim < maxdim)
q = make_llnd(fi,DDOT,LLNULL,LLNULL,SMNULL);
++ndim;
(yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), q, EXPR_LIST);
;}
break;
case 797:
#line 6081 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 798:
#line 6083 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 799:
#line 6087 "gram1.y"
{PTR_SYMB s;
/* s = make_scalar($1,TYNULL,LOCAL);*/
s = make_array((yyvsp[(1) - (1)].hash_entry),TYNULL,LLNULL,0,LOCAL);
s->attr = s->attr | DVM_POINTER_BIT;
if((s->attr & PROCESSORS_BIT) || (s->attr & TASK_BIT) || (s->attr & INHERIT_BIT))
errstr( "Inconsistent declaration of identifier %s", s->ident, 16);
(yyval.ll_node) = make_llnd(fi,VAR_REF,LLNULL,LLNULL,s);
;}
break;
case 800:
#line 6098 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_HEAP_DIR, SMNULL, (yyvsp[(3) - (3)].ll_node), LLNULL, LLNULL);;}
break;
case 801:
#line 6102 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 802:
#line 6104 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 803:
#line 6108 "gram1.y"
{ PTR_SYMB s;
s = make_array((yyvsp[(1) - (1)].hash_entry), TYNULL, LLNULL, 0, LOCAL);
s->attr = s->attr | HEAP_BIT;
if((s->attr & PROCESSORS_BIT) ||(s->attr & TASK_BIT) || (s->attr & TEMPLATE_BIT) || (s->attr & ALIGN_BIT) || (s->attr & DISTRIBUTE_BIT) || (s->attr & INHERIT_BIT) || (s->attr & DYNAMIC_BIT) || (s->attr & SHADOW_BIT) || (s->attr & DVM_POINTER_BIT))
errstr("Inconsistent declaration of identifier %s", s->ident, 16);
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, LLNULL, LLNULL, s);
;}
break;
case 804:
#line 6119 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_CONSISTENT_DIR, SMNULL, (yyvsp[(3) - (3)].ll_node), LLNULL, LLNULL);;}
break;
case 805:
#line 6123 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 806:
#line 6125 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 807:
#line 6129 "gram1.y"
{ PTR_SYMB s;
s = make_array((yyvsp[(1) - (1)].hash_entry), TYNULL, LLNULL, 0, LOCAL);
s->attr = s->attr | CONSISTENT_BIT;
if((s->attr & PROCESSORS_BIT) ||(s->attr & TASK_BIT) || (s->attr & TEMPLATE_BIT) || (s->attr & ALIGN_BIT) || (s->attr & DISTRIBUTE_BIT) || (s->attr & INHERIT_BIT) || (s->attr & DYNAMIC_BIT) || (s->attr & SHADOW_BIT) || (s->attr & DVM_POINTER_BIT))
errstr("Inconsistent declaration of identifier %s", s->ident, 16);
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, LLNULL, LLNULL, s);
;}
break;
case 808:
#line 6141 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_ASYNCID_DIR, SMNULL, (yyvsp[(3) - (3)].ll_node), LLNULL, LLNULL);;}
break;
case 809:
#line 6143 "gram1.y"
{ PTR_LLND p;
p = make_llnd(fi,COMM_LIST, LLNULL, LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi,DVM_ASYNCID_DIR, SMNULL, (yyvsp[(8) - (8)].ll_node), p, LLNULL);
;}
break;
case 810:
#line 6150 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 811:
#line 6152 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 812:
#line 6156 "gram1.y"
{ PTR_SYMB s;
if((yyvsp[(2) - (2)].ll_node)){
s = make_array((yyvsp[(1) - (2)].hash_entry), global_default, (yyvsp[(2) - (2)].ll_node), ndim, LOCAL);
s->variant = ASYNC_ID;
s->attr = s->attr | DIMENSION_BIT;
s->type->entry.ar_decl.ranges = (yyvsp[(2) - (2)].ll_node);
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, (yyvsp[(2) - (2)].ll_node), LLNULL, s);
} else {
s = make_local_entity((yyvsp[(1) - (2)].hash_entry), ASYNC_ID, global_default, LOCAL);
(yyval.ll_node) = make_llnd(fi,VAR_REF, LLNULL, LLNULL, s);
}
;}
break;
case 813:
#line 6172 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_NEW_VALUE_DIR,SMNULL, LLNULL, LLNULL,LLNULL);;}
break;
case 814:
#line 6182 "gram1.y"
{ if((yyvsp[(6) - (7)].ll_node) && (yyvsp[(6) - (7)].ll_node)->entry.Template.symbol->attr & TASK_BIT)
(yyval.bf_node) = get_bfnd(fi,DVM_PARALLEL_TASK_DIR,SMNULL,(yyvsp[(6) - (7)].ll_node),(yyvsp[(7) - (7)].ll_node),(yyvsp[(4) - (7)].ll_node));
else
(yyval.bf_node) = get_bfnd(fi,DVM_PARALLEL_ON_DIR,SMNULL,(yyvsp[(6) - (7)].ll_node),(yyvsp[(7) - (7)].ll_node),(yyvsp[(4) - (7)].ll_node));
;}
break;
case 815:
#line 6191 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 816:
#line 6193 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 817:
#line 6197 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(3) - (3)].ll_node);;}
break;
case 818:
#line 6200 "gram1.y"
{ (yyval.ll_node) = LLNULL; opt_kwd_ = NO;;}
break;
case 819:
#line 6205 "gram1.y"
{
if((yyvsp[(1) - (4)].ll_node)->type->variant != T_ARRAY)
errstr("'%s' isn't array", (yyvsp[(1) - (4)].ll_node)->entry.Template.symbol->ident, 66);
(yyvsp[(1) - (4)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(3) - (4)].ll_node);
(yyval.ll_node) = (yyvsp[(1) - (4)].ll_node);
(yyval.ll_node)->type = (yyvsp[(1) - (4)].ll_node)->type->entry.ar_decl.base_type;
;}
break;
case 820:
#line 6215 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 821:
#line 6217 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 822:
#line 6221 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 823:
#line 6223 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "*";
(yyval.ll_node)->type = global_string;
;}
break;
case 824:
#line 6231 "gram1.y"
{ (yyval.ll_node) = LLNULL;;}
break;
case 825:
#line 6233 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 826:
#line 6237 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 827:
#line 6239 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (2)].ll_node),(yyvsp[(2) - (2)].ll_node),EXPR_LIST); ;}
break;
case 839:
#line 6257 "gram1.y"
{ if((yyvsp[(5) - (8)].symbol)->attr & INDIRECT_BIT)
errstr("'%s' is not remote group name", (yyvsp[(5) - (8)].symbol)->ident, 68);
(yyval.ll_node) = make_llnd(fi,REMOTE_ACCESS_OP,(yyvsp[(7) - (8)].ll_node),LLNULL,(yyvsp[(5) - (8)].symbol));
;}
break;
case 840:
#line 6262 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,REMOTE_ACCESS_OP,(yyvsp[(5) - (6)].ll_node),LLNULL,SMNULL);;}
break;
case 841:
#line 6266 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,CONSISTENT_OP,(yyvsp[(7) - (8)].ll_node),LLNULL,(yyvsp[(5) - (8)].symbol));
;}
break;
case 842:
#line 6270 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,CONSISTENT_OP,(yyvsp[(5) - (6)].ll_node),LLNULL,SMNULL);;}
break;
case 843:
#line 6274 "gram1.y"
{
if(((yyval.symbol)=(yyvsp[(1) - (1)].hash_entry)->id_attr) == SMNULL){
errstr("'%s' is not declared as group", (yyvsp[(1) - (1)].hash_entry)->ident, 74);
(yyval.symbol) = make_local_entity((yyvsp[(1) - (1)].hash_entry),CONSISTENT_GROUP_NAME,global_default,LOCAL);
} else {
if((yyval.symbol)->variant != CONSISTENT_GROUP_NAME)
errstr("'%s' is not declared as group", (yyvsp[(1) - (1)].hash_entry)->ident, 74);
}
;}
break;
case 844:
#line 6287 "gram1.y"
{(yyval.ll_node) = make_llnd(fi,NEW_SPEC_OP,(yyvsp[(5) - (6)].ll_node),LLNULL,SMNULL);;}
break;
case 845:
#line 6291 "gram1.y"
{(yyval.ll_node) = make_llnd(fi,NEW_SPEC_OP,(yyvsp[(5) - (6)].ll_node),LLNULL,SMNULL);;}
break;
case 846:
#line 6295 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_PRIVATE_OP,(yyvsp[(5) - (6)].ll_node),LLNULL,SMNULL);;}
break;
case 847:
#line 6299 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_CUDA_BLOCK_OP,(yyvsp[(5) - (6)].ll_node),LLNULL,SMNULL);;}
break;
case 848:
#line 6302 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST);;}
break;
case 849:
#line 6304 "gram1.y"
{(yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST);;}
break;
case 850:
#line 6306 "gram1.y"
{(yyval.ll_node) = set_ll_list((yyvsp[(1) - (5)].ll_node),(yyvsp[(3) - (5)].ll_node),EXPR_LIST); (yyval.ll_node) = set_ll_list((yyval.ll_node),(yyvsp[(5) - (5)].ll_node),EXPR_LIST);;}
break;
case 851:
#line 6310 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST);;}
break;
case 852:
#line 6312 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST);;}
break;
case 853:
#line 6316 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_TIE_OP,(yyvsp[(5) - (6)].ll_node),LLNULL,SMNULL);;}
break;
case 854:
#line 6320 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST);;}
break;
case 855:
#line 6322 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST);;}
break;
case 856:
#line 6326 "gram1.y"
{ if(!((yyvsp[(5) - (8)].symbol)->attr & INDIRECT_BIT))
errstr("'%s' is not indirect group name", (yyvsp[(5) - (8)].symbol)->ident, 313);
(yyval.ll_node) = make_llnd(fi,INDIRECT_ACCESS_OP,(yyvsp[(7) - (8)].ll_node),LLNULL,(yyvsp[(5) - (8)].symbol));
;}
break;
case 857:
#line 6331 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,INDIRECT_ACCESS_OP,(yyvsp[(5) - (6)].ll_node),LLNULL,SMNULL);;}
break;
case 858:
#line 6335 "gram1.y"
{(yyval.ll_node) = make_llnd(fi,STAGE_OP,(yyvsp[(5) - (6)].ll_node),LLNULL,SMNULL);;}
break;
case 859:
#line 6339 "gram1.y"
{(yyval.ll_node) = make_llnd(fi,ACROSS_OP,(yyvsp[(4) - (4)].ll_node),LLNULL,SMNULL);;}
break;
case 860:
#line 6341 "gram1.y"
{(yyval.ll_node) = make_llnd(fi,ACROSS_OP,(yyvsp[(4) - (5)].ll_node),(yyvsp[(5) - (5)].ll_node),SMNULL);;}
break;
case 861:
#line 6345 "gram1.y"
{ if((yyvsp[(3) - (5)].ll_node))
(yyval.ll_node) = make_llnd(fi,DDOT,(yyvsp[(3) - (5)].ll_node),(yyvsp[(4) - (5)].ll_node),SMNULL);
else
(yyval.ll_node) = (yyvsp[(4) - (5)].ll_node);
;}
break;
case 862:
#line 6353 "gram1.y"
{ opt_in_out = YES; ;}
break;
case 863:
#line 6357 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "in";
(yyval.ll_node)->type = global_string;
;}
break;
case 864:
#line 6363 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "out";
(yyval.ll_node)->type = global_string;
;}
break;
case 865:
#line 6369 "gram1.y"
{ (yyval.ll_node) = LLNULL; opt_in_out = NO;;}
break;
case 866:
#line 6373 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST);;}
break;
case 867:
#line 6375 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST);;}
break;
case 868:
#line 6379 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 869:
#line 6381 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (4)].ll_node);
(yyval.ll_node)-> entry.Template.ll_ptr1 = (yyvsp[(3) - (4)].ll_node);
;}
break;
case 870:
#line 6385 "gram1.y"
{ /* PTR_LLND p;
p = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
p->entry.string_val = (char *) "corner";
p->type = global_string;
*/
(yyvsp[(1) - (7)].ll_node)-> entry.Template.ll_ptr1 = (yyvsp[(3) - (7)].ll_node);
(yyval.ll_node) = make_llnd(fi,ARRAY_OP,(yyvsp[(1) - (7)].ll_node),(yyvsp[(6) - (7)].ll_node),SMNULL);
;}
break;
case 871:
#line 6397 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST);;}
break;
case 872:
#line 6399 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST);;}
break;
case 873:
#line 6403 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), SMNULL);;}
break;
case 874:
#line 6407 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST);;}
break;
case 875:
#line 6409 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST);;}
break;
case 876:
#line 6413 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT,(yyvsp[(1) - (5)].ll_node),make_llnd(fi,DDOT,(yyvsp[(3) - (5)].ll_node),(yyvsp[(5) - (5)].ll_node),SMNULL),SMNULL); ;}
break;
case 877:
#line 6415 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT,(yyvsp[(1) - (3)].ll_node),make_llnd(fi,DDOT,(yyvsp[(3) - (3)].ll_node),LLNULL,SMNULL),SMNULL); ;}
break;
case 878:
#line 6417 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT,(yyvsp[(1) - (3)].ll_node),make_llnd(fi,DDOT,LLNULL,(yyvsp[(3) - (3)].ll_node),SMNULL),SMNULL); ;}
break;
case 879:
#line 6419 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT,(yyvsp[(1) - (1)].ll_node),LLNULL,SMNULL); ;}
break;
case 880:
#line 6421 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT,LLNULL,make_llnd(fi,DDOT,(yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),SMNULL),SMNULL); ;}
break;
case 881:
#line 6423 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT,LLNULL,make_llnd(fi,DDOT,(yyvsp[(1) - (1)].ll_node),LLNULL,SMNULL),SMNULL); ;}
break;
case 882:
#line 6425 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT,LLNULL,make_llnd(fi,DDOT,LLNULL,(yyvsp[(1) - (1)].ll_node),SMNULL),SMNULL); ;}
break;
case 883:
#line 6429 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(3) - (3)].ll_node);;}
break;
case 884:
#line 6433 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(3) - (3)].ll_node);;}
break;
case 885:
#line 6437 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(3) - (3)].ll_node);;}
break;
case 886:
#line 6441 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(2) - (3)].ll_node);;}
break;
case 887:
#line 6445 "gram1.y"
{PTR_LLND q;
/* q = set_ll_list($9,$6,EXPR_LIST); */
q = set_ll_list((yyvsp[(6) - (10)].ll_node),LLNULL,EXPR_LIST); /*podd 11.10.01*/
q = add_to_lowLevelList((yyvsp[(9) - (10)].ll_node),q); /*podd 11.10.01*/
(yyval.ll_node) = make_llnd(fi,REDUCTION_OP,q,LLNULL,SMNULL);
;}
break;
case 888:
#line 6452 "gram1.y"
{PTR_LLND q;
q = set_ll_list((yyvsp[(6) - (8)].ll_node),LLNULL,EXPR_LIST);
(yyval.ll_node) = make_llnd(fi,REDUCTION_OP,q,LLNULL,SMNULL);
;}
break;
case 889:
#line 6458 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,REDUCTION_OP,(yyvsp[(9) - (10)].ll_node),LLNULL,(yyvsp[(6) - (10)].symbol)); ;}
break;
case 890:
#line 6462 "gram1.y"
{ opt_kwd_r = YES; ;}
break;
case 891:
#line 6465 "gram1.y"
{ opt_kwd_r = NO; ;}
break;
case 892:
#line 6469 "gram1.y"
{
if(((yyval.symbol)=(yyvsp[(1) - (1)].hash_entry)->id_attr) == SMNULL) {
errstr("'%s' is not declared as reduction group", (yyvsp[(1) - (1)].hash_entry)->ident, 69);
(yyval.symbol) = make_local_entity((yyvsp[(1) - (1)].hash_entry),REDUCTION_GROUP_NAME,global_default,LOCAL);
} else {
if((yyval.symbol)->variant != REDUCTION_GROUP_NAME)
errstr("'%s' is not declared as reduction group", (yyvsp[(1) - (1)].hash_entry)->ident, 69);
}
;}
break;
case 893:
#line 6482 "gram1.y"
{(yyval.ll_node) = set_ll_list((yyvsp[(2) - (2)].ll_node),LLNULL,EXPR_LIST);;}
break;
case 894:
#line 6484 "gram1.y"
{(yyval.ll_node) = set_ll_list((yyvsp[(1) - (4)].ll_node),(yyvsp[(4) - (4)].ll_node),EXPR_LIST);;}
break;
case 895:
#line 6488 "gram1.y"
{(yyval.ll_node) = make_llnd(fi,ARRAY_OP,(yyvsp[(1) - (4)].ll_node),(yyvsp[(3) - (4)].ll_node),SMNULL);;}
break;
case 896:
#line 6490 "gram1.y"
{(yyvsp[(3) - (6)].ll_node) = set_ll_list((yyvsp[(3) - (6)].ll_node),(yyvsp[(5) - (6)].ll_node),EXPR_LIST);
(yyval.ll_node) = make_llnd(fi,ARRAY_OP,(yyvsp[(1) - (6)].ll_node),(yyvsp[(3) - (6)].ll_node),SMNULL);;}
break;
case 897:
#line 6495 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "sum";
(yyval.ll_node)->type = global_string;
;}
break;
case 898:
#line 6501 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "product";
(yyval.ll_node)->type = global_string;
;}
break;
case 899:
#line 6507 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "min";
(yyval.ll_node)->type = global_string;
;}
break;
case 900:
#line 6513 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "max";
(yyval.ll_node)->type = global_string;
;}
break;
case 901:
#line 6519 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "or";
(yyval.ll_node)->type = global_string;
;}
break;
case 902:
#line 6525 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "and";
(yyval.ll_node)->type = global_string;
;}
break;
case 903:
#line 6531 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "eqv";
(yyval.ll_node)->type = global_string;
;}
break;
case 904:
#line 6537 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "neqv";
(yyval.ll_node)->type = global_string;
;}
break;
case 905:
#line 6543 "gram1.y"
{ err("Illegal reduction operation name", 70);
errcnt--;
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "unknown";
(yyval.ll_node)->type = global_string;
;}
break;
case 906:
#line 6552 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "maxloc";
(yyval.ll_node)->type = global_string;
;}
break;
case 907:
#line 6558 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "minloc";
(yyval.ll_node)->type = global_string;
;}
break;
case 908:
#line 6575 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SHADOW_RENEW_OP,(yyvsp[(5) - (6)].ll_node),LLNULL,SMNULL);;}
break;
case 909:
#line 6583 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SHADOW_START_OP,LLNULL,LLNULL,(yyvsp[(4) - (4)].symbol));;}
break;
case 910:
#line 6591 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SHADOW_WAIT_OP,LLNULL,LLNULL,(yyvsp[(4) - (4)].symbol));;}
break;
case 911:
#line 6593 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SHADOW_COMP_OP,LLNULL,LLNULL,SMNULL);;}
break;
case 912:
#line 6595 "gram1.y"
{ (yyvsp[(5) - (9)].ll_node)-> entry.Template.ll_ptr1 = (yyvsp[(7) - (9)].ll_node); (yyval.ll_node) = make_llnd(fi,SHADOW_COMP_OP,(yyvsp[(5) - (9)].ll_node),LLNULL,SMNULL);;}
break;
case 913:
#line 6599 "gram1.y"
{(yyval.symbol) = make_local_entity((yyvsp[(1) - (1)].hash_entry), SHADOW_GROUP_NAME,global_default,LOCAL);;}
break;
case 914:
#line 6603 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST);;}
break;
case 915:
#line 6605 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST);;}
break;
case 916:
#line 6609 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 917:
#line 6611 "gram1.y"
{ PTR_LLND p;
p = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
p->entry.string_val = (char *) "corner";
p->type = global_string;
(yyval.ll_node) = make_llnd(fi,ARRAY_OP,(yyvsp[(1) - (5)].ll_node),p,SMNULL);
;}
break;
case 918:
#line 6619 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (5)].ll_node);
(yyval.ll_node)-> entry.Template.ll_ptr1 = (yyvsp[(4) - (5)].ll_node);
;}
break;
case 919:
#line 6623 "gram1.y"
{ PTR_LLND p;
p = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
p->entry.string_val = (char *) "corner";
p->type = global_string;
(yyvsp[(1) - (9)].ll_node)-> entry.Template.ll_ptr1 = (yyvsp[(4) - (9)].ll_node);
(yyval.ll_node) = make_llnd(fi,ARRAY_OP,(yyvsp[(1) - (9)].ll_node),p,SMNULL);
;}
break;
case 920:
#line 6634 "gram1.y"
{ optcorner = YES; ;}
break;
case 921:
#line 6638 "gram1.y"
{ PTR_SYMB s;
s = (yyvsp[(1) - (1)].ll_node)->entry.Template.symbol;
if(s->attr & PROCESSORS_BIT)
errstr( "Illegal use of PROCESSORS name %s ", s->ident, 53);
else if(s->attr & TASK_BIT)
errstr( "Illegal use of task array name %s ", s->ident, 71);
else
if(s->type->variant != T_ARRAY)
errstr("'%s' isn't array", s->ident, 66);
else
if((!(s->attr & DISTRIBUTE_BIT)) && (!(s->attr & ALIGN_BIT)))
; /*errstr("hpf.gram: %s is not distributed array", s->ident);*/
(yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);
;}
break;
case 922:
#line 6656 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 923:
#line 6658 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 924:
#line 6662 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_SHADOW_START_DIR,(yyvsp[(3) - (3)].symbol),LLNULL,LLNULL,LLNULL);;}
break;
case 925:
#line 6664 "gram1.y"
{errstr("Missing DVM directive prefix", 49);;}
break;
case 926:
#line 6668 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_SHADOW_WAIT_DIR,(yyvsp[(3) - (3)].symbol),LLNULL,LLNULL,LLNULL);;}
break;
case 927:
#line 6670 "gram1.y"
{errstr("Missing DVM directive prefix", 49);;}
break;
case 928:
#line 6674 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_SHADOW_GROUP_DIR,(yyvsp[(3) - (6)].symbol),(yyvsp[(5) - (6)].ll_node),LLNULL,LLNULL);;}
break;
case 929:
#line 6678 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_REDUCTION_START_DIR,(yyvsp[(3) - (3)].symbol),LLNULL,LLNULL,LLNULL);;}
break;
case 930:
#line 6682 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_REDUCTION_WAIT_DIR,(yyvsp[(3) - (3)].symbol),LLNULL,LLNULL,LLNULL);;}
break;
case 931:
#line 6691 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_CONSISTENT_START_DIR,(yyvsp[(3) - (3)].symbol),LLNULL,LLNULL,LLNULL);;}
break;
case 932:
#line 6695 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_CONSISTENT_WAIT_DIR,(yyvsp[(3) - (3)].symbol),LLNULL,LLNULL,LLNULL);;}
break;
case 933:
#line 6699 "gram1.y"
{ if(((yyvsp[(4) - (7)].symbol)->attr & INDIRECT_BIT))
errstr("'%s' is not remote group name", (yyvsp[(4) - (7)].symbol)->ident, 68);
(yyval.bf_node) = get_bfnd(fi,DVM_REMOTE_ACCESS_DIR,(yyvsp[(4) - (7)].symbol),(yyvsp[(6) - (7)].ll_node),LLNULL,LLNULL);
;}
break;
case 934:
#line 6704 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_REMOTE_ACCESS_DIR,SMNULL,(yyvsp[(4) - (5)].ll_node),LLNULL,LLNULL);;}
break;
case 935:
#line 6708 "gram1.y"
{
if(((yyval.symbol)=(yyvsp[(1) - (1)].hash_entry)->id_attr) == SMNULL){
errstr("'%s' is not declared as group", (yyvsp[(1) - (1)].hash_entry)->ident, 74);
(yyval.symbol) = make_local_entity((yyvsp[(1) - (1)].hash_entry),REF_GROUP_NAME,global_default,LOCAL);
} else {
if((yyval.symbol)->variant != REF_GROUP_NAME)
errstr("'%s' is not declared as group", (yyvsp[(1) - (1)].hash_entry)->ident, 74);
}
;}
break;
case 936:
#line 6720 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 937:
#line 6722 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 938:
#line 6726 "gram1.y"
{
(yyval.ll_node) = (yyvsp[(1) - (4)].ll_node);
(yyval.ll_node)->entry.Template.ll_ptr1 = (yyvsp[(3) - (4)].ll_node);
;}
break;
case 939:
#line 6731 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 940:
#line 6735 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 941:
#line 6737 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 942:
#line 6741 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 943:
#line 6743 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT, LLNULL, LLNULL, SMNULL);;}
break;
case 944:
#line 6747 "gram1.y"
{ PTR_LLND q;
q = make_llnd(fi,EXPR_LIST, (yyvsp[(3) - (3)].ll_node), LLNULL, SMNULL);
(yyval.bf_node) = get_bfnd(fi,DVM_TASK_DIR,SMNULL,q,LLNULL,LLNULL);
;}
break;
case 945:
#line 6752 "gram1.y"
{ PTR_LLND q;
q = make_llnd(fi,EXPR_LIST, (yyvsp[(3) - (3)].ll_node), LLNULL, SMNULL);
add_to_lowLevelList(q, (yyvsp[(1) - (3)].bf_node)->entry.Template.ll_ptr1);
;}
break;
case 946:
#line 6759 "gram1.y"
{
PTR_SYMB s;
s = make_array((yyvsp[(1) - (2)].hash_entry), global_int, (yyvsp[(2) - (2)].ll_node), ndim, LOCAL);
if((yyvsp[(2) - (2)].ll_node)){
s->attr = s->attr | DIMENSION_BIT;
s->type->entry.ar_decl.ranges = (yyvsp[(2) - (2)].ll_node);
}
else
err("No dimensions in TASK directive", 75);
if(ndim > 1)
errstr("Illegal rank of '%s'", s->ident, 76);
if(s->attr & TASK_BIT)
errstr( "Multiple declaration of identifier %s ", s->ident, 73);
if((s->attr & ALIGN_BIT) ||(s->attr & DISTRIBUTE_BIT) ||(s->attr & TEMPLATE_BIT) || (s->attr & DYNAMIC_BIT) ||(s->attr & SHADOW_BIT) || (s->attr & PROCESSORS_BIT) || (s->attr & DVM_POINTER_BIT) || (s->attr & INHERIT_BIT))
errstr("Inconsistent declaration of identifier %s", s->ident, 16);
else
s->attr = s->attr | TASK_BIT;
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, (yyvsp[(2) - (2)].ll_node), LLNULL, s);
;}
break;
case 947:
#line 6782 "gram1.y"
{(yyval.bf_node) = get_bfnd(fi,DVM_TASK_REGION_DIR,(yyvsp[(3) - (3)].symbol),LLNULL,LLNULL,LLNULL);;}
break;
case 948:
#line 6784 "gram1.y"
{(yyval.bf_node) = get_bfnd(fi,DVM_TASK_REGION_DIR,(yyvsp[(3) - (4)].symbol),(yyvsp[(4) - (4)].ll_node),LLNULL,LLNULL);;}
break;
case 949:
#line 6786 "gram1.y"
{(yyval.bf_node) = get_bfnd(fi,DVM_TASK_REGION_DIR,(yyvsp[(3) - (4)].symbol),LLNULL,(yyvsp[(4) - (4)].ll_node),LLNULL);;}
break;
case 950:
#line 6788 "gram1.y"
{(yyval.bf_node) = get_bfnd(fi,DVM_TASK_REGION_DIR,(yyvsp[(3) - (5)].symbol),(yyvsp[(4) - (5)].ll_node),(yyvsp[(5) - (5)].ll_node),LLNULL);;}
break;
case 951:
#line 6790 "gram1.y"
{(yyval.bf_node) = get_bfnd(fi,DVM_TASK_REGION_DIR,(yyvsp[(3) - (5)].symbol),(yyvsp[(5) - (5)].ll_node),(yyvsp[(4) - (5)].ll_node),LLNULL);;}
break;
case 952:
#line 6794 "gram1.y"
{ PTR_SYMB s;
if((s=(yyvsp[(1) - (1)].hash_entry)->id_attr) == SMNULL)
s = make_array((yyvsp[(1) - (1)].hash_entry), TYNULL, LLNULL, 0, LOCAL);
if(!(s->attr & TASK_BIT))
errstr("'%s' is not task array", s->ident, 77);
(yyval.symbol) = s;
;}
break;
case 953:
#line 6805 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_END_TASK_REGION_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 954:
#line 6809 "gram1.y"
{ PTR_SYMB s;
PTR_LLND q;
/*
s = make_array($1, TYNULL, LLNULL, 0, LOCAL);
if((parstate == INEXEC) && !(s->attr & TASK_BIT))
errstr("'%s' is not task array", s->ident, 77);
q = set_ll_list($3,LLNULL,EXPR_LIST);
$$ = make_llnd(fi,ARRAY_REF, q, LLNULL, s);
*/
s = (yyvsp[(1) - (4)].symbol);
q = set_ll_list((yyvsp[(3) - (4)].ll_node),LLNULL,EXPR_LIST);
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, q, LLNULL, s);
;}
break;
case 955:
#line 6824 "gram1.y"
{ PTR_LLND q;
q = set_ll_list((yyvsp[(3) - (4)].ll_node),LLNULL,EXPR_LIST);
(yyval.ll_node) = make_llnd(fi,ARRAY_REF, q, LLNULL, (yyvsp[(1) - (4)].symbol));
;}
break;
case 956:
#line 6831 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,DVM_ON_DIR,SMNULL,(yyvsp[(3) - (4)].ll_node),(yyvsp[(4) - (4)].ll_node),LLNULL);
;}
break;
case 957:
#line 6837 "gram1.y"
{(yyval.ll_node) = LLNULL;;}
break;
case 958:
#line 6839 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 959:
#line 6843 "gram1.y"
{(yyval.bf_node) = get_bfnd(fi,DVM_END_ON_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 960:
#line 6847 "gram1.y"
{ PTR_LLND q;
/* if(!($6->attr & PROCESSORS_BIT))
errstr("'%s' is not processor array", $6->ident, 67);
*/
q = make_llnd(fi,ARRAY_REF, (yyvsp[(7) - (7)].ll_node), LLNULL, (yyvsp[(6) - (7)].symbol));
(yyval.bf_node) = get_bfnd(fi,DVM_MAP_DIR,SMNULL,(yyvsp[(3) - (7)].ll_node),q,LLNULL);
;}
break;
case 961:
#line 6855 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_MAP_DIR,SMNULL,(yyvsp[(3) - (6)].ll_node),LLNULL,(yyvsp[(6) - (6)].ll_node)); ;}
break;
case 962:
#line 6859 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_PREFETCH_DIR,(yyvsp[(3) - (3)].symbol),LLNULL,LLNULL,LLNULL);;}
break;
case 963:
#line 6863 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_RESET_DIR,(yyvsp[(3) - (3)].symbol),LLNULL,LLNULL,LLNULL);;}
break;
case 964:
#line 6871 "gram1.y"
{ if(!((yyvsp[(4) - (7)].symbol)->attr & INDIRECT_BIT))
errstr("'%s' is not indirect group name", (yyvsp[(4) - (7)].symbol)->ident, 313);
(yyval.bf_node) = get_bfnd(fi,DVM_INDIRECT_ACCESS_DIR,(yyvsp[(4) - (7)].symbol),(yyvsp[(6) - (7)].ll_node),LLNULL,LLNULL);
;}
break;
case 965:
#line 6876 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_INDIRECT_ACCESS_DIR,SMNULL,(yyvsp[(4) - (5)].ll_node),LLNULL,LLNULL);;}
break;
case 966:
#line 6890 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 967:
#line 6892 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 968:
#line 6896 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 969:
#line 6898 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (4)].ll_node); (yyval.ll_node)->entry.Template.ll_ptr1 = (yyvsp[(3) - (4)].ll_node);;}
break;
case 970:
#line 6907 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,HPF_INDEPENDENT_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 971:
#line 6909 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,HPF_INDEPENDENT_DIR,SMNULL, (yyvsp[(3) - (3)].ll_node), LLNULL, LLNULL);;}
break;
case 972:
#line 6911 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,HPF_INDEPENDENT_DIR,SMNULL, LLNULL, (yyvsp[(3) - (3)].ll_node), LLNULL);;}
break;
case 973:
#line 6913 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,HPF_INDEPENDENT_DIR,SMNULL, (yyvsp[(3) - (4)].ll_node), (yyvsp[(4) - (4)].ll_node),LLNULL);;}
break;
case 974:
#line 6949 "gram1.y"
{(yyval.ll_node) = make_llnd(fi,REDUCTION_OP,(yyvsp[(5) - (6)].ll_node),LLNULL,SMNULL);;}
break;
case 975:
#line 6953 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_ASYNCHRONOUS_DIR,SMNULL,(yyvsp[(3) - (3)].ll_node),LLNULL,LLNULL);;}
break;
case 976:
#line 6957 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_ENDASYNCHRONOUS_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 977:
#line 6961 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_ASYNCWAIT_DIR,SMNULL,(yyvsp[(3) - (3)].ll_node),LLNULL,LLNULL);;}
break;
case 978:
#line 6965 "gram1.y"
{
if(((yyval.symbol)=(yyvsp[(1) - (1)].hash_entry)->id_attr) == SMNULL) {
errstr("'%s' is not declared as ASYNCID", (yyvsp[(1) - (1)].hash_entry)->ident, 115);
(yyval.symbol) = make_local_entity((yyvsp[(1) - (1)].hash_entry),ASYNC_ID,global_default,LOCAL);
} else {
if((yyval.symbol)->variant != ASYNC_ID)
errstr("'%s' is not declared as ASYNCID", (yyvsp[(1) - (1)].hash_entry)->ident, 115);
}
;}
break;
case 979:
#line 6977 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,VAR_REF, LLNULL, LLNULL, (yyvsp[(1) - (1)].symbol));;}
break;
case 980:
#line 6979 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ARRAY_REF, (yyvsp[(3) - (4)].ll_node), LLNULL, (yyvsp[(1) - (4)].symbol));;}
break;
case 981:
#line 6983 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_F90_DIR,SMNULL,(yyvsp[(3) - (5)].ll_node),(yyvsp[(5) - (5)].ll_node),LLNULL);;}
break;
case 982:
#line 6986 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_DEBUG_DIR,SMNULL,(yyvsp[(3) - (3)].ll_node),LLNULL,LLNULL);;}
break;
case 983:
#line 6988 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_DEBUG_DIR,SMNULL,(yyvsp[(3) - (6)].ll_node),(yyvsp[(5) - (6)].ll_node),LLNULL);;}
break;
case 984:
#line 6992 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(2) - (2)].ll_node), LLNULL, EXPR_LIST);
endioctl();
;}
break;
case 985:
#line 6997 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(1) - (4)].ll_node), (yyvsp[(4) - (4)].ll_node), EXPR_LIST);
endioctl();
;}
break;
case 986:
#line 7004 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, KEYWORD_ARG, (yyvsp[(1) - (2)].ll_node), (yyvsp[(2) - (2)].ll_node), SMNULL); ;}
break;
case 987:
#line 7007 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,INT_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.ival = atoi(yytext);
(yyval.ll_node)->type = global_int;
;}
break;
case 988:
#line 7015 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_ENDDEBUG_DIR,SMNULL,(yyvsp[(3) - (3)].ll_node),LLNULL,LLNULL);;}
break;
case 989:
#line 7019 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_INTERVAL_DIR,SMNULL,(yyvsp[(3) - (3)].ll_node),LLNULL,LLNULL);;}
break;
case 990:
#line 7023 "gram1.y"
{ (yyval.ll_node) = LLNULL;;}
break;
case 991:
#line 7026 "gram1.y"
{ if((yyvsp[(1) - (1)].ll_node)->type->variant != T_INT)
err("Illegal interval number", 78);
(yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);
;}
break;
case 992:
#line 7034 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_EXIT_INTERVAL_DIR,SMNULL,(yyvsp[(3) - (3)].ll_node),LLNULL,LLNULL);;}
break;
case 993:
#line 7038 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_ENDINTERVAL_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 994:
#line 7042 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_TRACEON_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 995:
#line 7046 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_TRACEOFF_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 996:
#line 7050 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_BARRIER_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 997:
#line 7054 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_CHECK_DIR,SMNULL,(yyvsp[(9) - (9)].ll_node),(yyvsp[(5) - (9)].ll_node),LLNULL); ;}
break;
case 998:
#line 7058 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_IO_MODE_DIR,SMNULL,(yyvsp[(4) - (5)].ll_node),LLNULL,LLNULL);;}
break;
case 999:
#line 7061 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 1000:
#line 7063 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 1001:
#line 7067 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_ASYNC_OP,LLNULL,LLNULL,SMNULL);;}
break;
case 1002:
#line 7069 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_LOCAL_OP, LLNULL,LLNULL,SMNULL);;}
break;
case 1003:
#line 7071 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,PARALLEL_OP, LLNULL,LLNULL,SMNULL);;}
break;
case 1004:
#line 7075 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_SHADOW_ADD_DIR,SMNULL,(yyvsp[(4) - (9)].ll_node),(yyvsp[(6) - (9)].ll_node),(yyvsp[(9) - (9)].ll_node)); ;}
break;
case 1005:
#line 7079 "gram1.y"
{
if((yyvsp[(1) - (4)].ll_node)->type->variant != T_ARRAY)
errstr("'%s' isn't array", (yyvsp[(1) - (4)].ll_node)->entry.Template.symbol->ident, 66);
if(!((yyvsp[(1) - (4)].ll_node)->entry.Template.symbol->attr & TEMPLATE_BIT))
errstr("'%s' isn't TEMPLATE", (yyvsp[(1) - (4)].ll_node)->entry.Template.symbol->ident, 628);
(yyvsp[(1) - (4)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(3) - (4)].ll_node);
(yyval.ll_node) = (yyvsp[(1) - (4)].ll_node);
/*$$->type = $1->type->entry.ar_decl.base_type;*/
;}
break;
case 1006:
#line 7091 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 1007:
#line 7093 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 1008:
#line 7097 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 1009:
#line 7099 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 1010:
#line 7103 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(2) - (2)].ll_node);;}
break;
case 1011:
#line 7105 "gram1.y"
{ (yyval.ll_node) = LLNULL; opt_kwd_ = NO;;}
break;
case 1012:
#line 7109 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_LOCALIZE_DIR,SMNULL,(yyvsp[(4) - (7)].ll_node),(yyvsp[(6) - (7)].ll_node),LLNULL); ;}
break;
case 1013:
#line 7113 "gram1.y"
{
if((yyvsp[(1) - (1)].ll_node)->type->variant != T_ARRAY)
errstr("'%s' isn't array", (yyvsp[(1) - (1)].ll_node)->entry.Template.symbol->ident, 66);
(yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);
;}
break;
case 1014:
#line 7119 "gram1.y"
{
if((yyvsp[(1) - (4)].ll_node)->type->variant != T_ARRAY)
errstr("'%s' isn't array", (yyvsp[(1) - (4)].ll_node)->entry.Template.symbol->ident, 66);
(yyvsp[(1) - (4)].ll_node)->entry.Template.ll_ptr1 = (yyvsp[(3) - (4)].ll_node);
(yyval.ll_node) = (yyvsp[(1) - (4)].ll_node);
(yyval.ll_node)->type = (yyvsp[(1) - (4)].ll_node)->type->entry.ar_decl.base_type;
;}
break;
case 1015:
#line 7131 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 1016:
#line 7133 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 1017:
#line 7137 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 1018:
#line 7139 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,DDOT, LLNULL, LLNULL, SMNULL);;}
break;
case 1019:
#line 7143 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL, LLNULL, LLNULL, SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "*";
(yyval.ll_node)->type = global_string;
;}
break;
case 1020:
#line 7151 "gram1.y"
{
PTR_LLND q;
if((yyvsp[(16) - (16)].ll_node))
q = make_llnd(fi,ARRAY_OP, (yyvsp[(14) - (16)].ll_node), (yyvsp[(16) - (16)].ll_node), SMNULL);
else
q = (yyvsp[(14) - (16)].ll_node);
(yyval.bf_node) = get_bfnd(fi,DVM_CP_CREATE_DIR,SMNULL,(yyvsp[(3) - (16)].ll_node),(yyvsp[(8) - (16)].ll_node),q);
;}
break;
case 1021:
#line 7162 "gram1.y"
{ (yyval.ll_node) = LLNULL; ;}
break;
case 1022:
#line 7164 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, PARALLEL_OP, LLNULL, LLNULL, SMNULL); ;}
break;
case 1023:
#line 7166 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_LOCAL_OP, LLNULL, LLNULL, SMNULL); ;}
break;
case 1024:
#line 7170 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_CP_LOAD_DIR,SMNULL,(yyvsp[(3) - (3)].ll_node),LLNULL,LLNULL); ;}
break;
case 1025:
#line 7174 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_CP_SAVE_DIR,SMNULL,(yyvsp[(3) - (3)].ll_node),LLNULL,LLNULL); ;}
break;
case 1026:
#line 7176 "gram1.y"
{
PTR_LLND q;
q = make_llnd(fi,ACC_ASYNC_OP,LLNULL,LLNULL,SMNULL);
(yyval.bf_node) = get_bfnd(fi,DVM_CP_SAVE_DIR,SMNULL,(yyvsp[(3) - (6)].ll_node),q,LLNULL);
;}
break;
case 1027:
#line 7184 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_CP_WAIT_DIR,SMNULL,(yyvsp[(3) - (9)].ll_node),(yyvsp[(8) - (9)].ll_node),LLNULL); ;}
break;
case 1028:
#line 7188 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_TEMPLATE_CREATE_DIR,SMNULL,(yyvsp[(4) - (5)].ll_node),LLNULL,LLNULL); ;}
break;
case 1029:
#line 7191 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST); ;}
break;
case 1030:
#line 7193 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); ;}
break;
case 1031:
#line 7197 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,DVM_TEMPLATE_DELETE_DIR,SMNULL,(yyvsp[(4) - (5)].ll_node),LLNULL,LLNULL); ;}
break;
case 1059:
#line 7231 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,OMP_ONETHREAD_DIR,SMNULL,LLNULL,LLNULL,LLNULL);
;}
break;
case 1060:
#line 7237 "gram1.y"
{
(yyval.bf_node) = make_endparallel();
;}
break;
case 1061:
#line 7243 "gram1.y"
{
(yyval.bf_node) = make_parallel();
(yyval.bf_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (4)].ll_node);
opt_kwd_ = NO;
;}
break;
case 1062:
#line 7249 "gram1.y"
{
(yyval.bf_node) = make_parallel();
opt_kwd_ = NO;
;}
break;
case 1063:
#line 7255 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(3) - (4)].ll_node),LLNULL,EXPR_LIST);
;}
break;
case 1064:
#line 7259 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(1) - (5)].ll_node),(yyvsp[(4) - (5)].ll_node),EXPR_LIST);
;}
break;
case 1074:
#line 7276 "gram1.y"
{
(yyval.ll_node) = (yyvsp[(4) - (5)].ll_node);
;}
break;
case 1075:
#line 7281 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,OMP_PRIVATE,(yyvsp[(2) - (2)].ll_node),LLNULL,SMNULL);
;}
break;
case 1076:
#line 7286 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,OMP_FIRSTPRIVATE,(yyvsp[(2) - (2)].ll_node),LLNULL,SMNULL);
;}
break;
case 1077:
#line 7292 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,OMP_LASTPRIVATE,(yyvsp[(2) - (2)].ll_node),LLNULL,SMNULL);
;}
break;
case 1078:
#line 7298 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,OMP_COPYIN,(yyvsp[(2) - (2)].ll_node),LLNULL,SMNULL);
;}
break;
case 1079:
#line 7304 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,OMP_SHARED,(yyvsp[(2) - (2)].ll_node),LLNULL,SMNULL);
;}
break;
case 1080:
#line 7309 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,OMP_DEFAULT,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL);
;}
break;
case 1081:
#line 7315 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "private";
(yyval.ll_node)->type = global_string;
;}
break;
case 1082:
#line 7321 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "shared";
(yyval.ll_node)->type = global_string;
;}
break;
case 1083:
#line 7327 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "none";
(yyval.ll_node)->type = global_string;
;}
break;
case 1084:
#line 7334 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,OMP_IF,(yyvsp[(3) - (4)].ll_node),LLNULL,SMNULL);
;}
break;
case 1085:
#line 7340 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,OMP_NUM_THREADS,(yyvsp[(3) - (4)].ll_node),LLNULL,SMNULL);
;}
break;
case 1086:
#line 7346 "gram1.y"
{
PTR_LLND q;
q = set_ll_list((yyvsp[(3) - (4)].ll_node),LLNULL,EXPR_LIST);
(yyval.ll_node) = make_llnd(fi,OMP_REDUCTION,q,LLNULL,SMNULL);
;}
break;
case 1087:
#line 7353 "gram1.y"
{(yyval.ll_node) = make_llnd(fi,DDOT,(yyvsp[(2) - (4)].ll_node),(yyvsp[(4) - (4)].ll_node),SMNULL);;}
break;
case 1089:
#line 7359 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "+";
(yyval.ll_node)->type = global_string;
;}
break;
case 1090:
#line 7365 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "-";
(yyval.ll_node)->type = global_string;
;}
break;
case 1091:
#line 7372 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "*";
(yyval.ll_node)->type = global_string;
;}
break;
case 1092:
#line 7378 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "/";
(yyval.ll_node)->type = global_string;
;}
break;
case 1093:
#line 7384 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "min";
(yyval.ll_node)->type = global_string;
;}
break;
case 1094:
#line 7390 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "max";
(yyval.ll_node)->type = global_string;
;}
break;
case 1095:
#line 7396 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) ".or.";
(yyval.ll_node)->type = global_string;
;}
break;
case 1096:
#line 7402 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) ".and.";
(yyval.ll_node)->type = global_string;
;}
break;
case 1097:
#line 7408 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) ".eqv.";
(yyval.ll_node)->type = global_string;
;}
break;
case 1098:
#line 7414 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) ".neqv.";
(yyval.ll_node)->type = global_string;
;}
break;
case 1099:
#line 7420 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "iand";
(yyval.ll_node)->type = global_string;
;}
break;
case 1100:
#line 7426 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "ieor";
(yyval.ll_node)->type = global_string;
;}
break;
case 1101:
#line 7432 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "ior";
(yyval.ll_node)->type = global_string;
;}
break;
case 1102:
#line 7438 "gram1.y"
{ err("Illegal reduction operation name", 70);
errcnt--;
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "unknown";
(yyval.ll_node)->type = global_string;
;}
break;
case 1103:
#line 7448 "gram1.y"
{
(yyval.bf_node) = make_sections((yyvsp[(4) - (4)].ll_node));
opt_kwd_ = NO;
;}
break;
case 1104:
#line 7453 "gram1.y"
{
(yyval.bf_node) = make_sections(LLNULL);
opt_kwd_ = NO;
;}
break;
case 1105:
#line 7459 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(3) - (4)].ll_node),LLNULL,EXPR_LIST);
;}
break;
case 1106:
#line 7463 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(1) - (5)].ll_node),(yyvsp[(4) - (5)].ll_node),EXPR_LIST);
;}
break;
case 1111:
#line 7475 "gram1.y"
{
PTR_LLND q;
(yyval.bf_node) = make_endsections();
q = set_ll_list((yyvsp[(4) - (4)].ll_node),LLNULL,EXPR_LIST);
(yyval.bf_node)->entry.Template.ll_ptr1 = q;
opt_kwd_ = NO;
;}
break;
case 1112:
#line 7483 "gram1.y"
{
(yyval.bf_node) = make_endsections();
opt_kwd_ = NO;
;}
break;
case 1113:
#line 7489 "gram1.y"
{
(yyval.bf_node) = make_ompsection();
;}
break;
case 1114:
#line 7495 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,OMP_DO_DIR,SMNULL,(yyvsp[(4) - (4)].ll_node),LLNULL,LLNULL);
opt_kwd_ = NO;
;}
break;
case 1115:
#line 7500 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,OMP_DO_DIR,SMNULL,LLNULL,LLNULL,LLNULL);
opt_kwd_ = NO;
;}
break;
case 1116:
#line 7506 "gram1.y"
{
PTR_LLND q;
q = set_ll_list((yyvsp[(4) - (4)].ll_node),LLNULL,EXPR_LIST);
(yyval.bf_node) = get_bfnd(fi,OMP_END_DO_DIR,SMNULL,q,LLNULL,LLNULL);
opt_kwd_ = NO;
;}
break;
case 1117:
#line 7513 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,OMP_END_DO_DIR,SMNULL,LLNULL,LLNULL,LLNULL);
opt_kwd_ = NO;
;}
break;
case 1118:
#line 7519 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(3) - (4)].ll_node),LLNULL,EXPR_LIST);
;}
break;
case 1119:
#line 7523 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(1) - (5)].ll_node),(yyvsp[(4) - (5)].ll_node),EXPR_LIST);
;}
break;
case 1126:
#line 7537 "gram1.y"
{
/*$$ = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
$$->entry.string_val = (char *) "ORDERED";
$$->type = global_string;*/
(yyval.ll_node) = make_llnd(fi,OMP_ORDERED,LLNULL,LLNULL,SMNULL);
;}
break;
case 1127:
#line 7546 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,OMP_SCHEDULE,(yyvsp[(4) - (7)].ll_node),(yyvsp[(6) - (7)].ll_node),SMNULL);
;}
break;
case 1128:
#line 7550 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,OMP_SCHEDULE,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL);
;}
break;
case 1129:
#line 7556 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "STATIC";
(yyval.ll_node)->type = global_string;
;}
break;
case 1130:
#line 7563 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "DYNAMIC";
(yyval.ll_node)->type = global_string;
;}
break;
case 1131:
#line 7570 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "GUIDED";
(yyval.ll_node)->type = global_string;
;}
break;
case 1132:
#line 7577 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,KEYWORD_VAL,LLNULL,LLNULL,SMNULL);
(yyval.ll_node)->entry.string_val = (char *) "RUNTIME";
(yyval.ll_node)->type = global_string;
;}
break;
case 1133:
#line 7586 "gram1.y"
{
(yyval.bf_node) = make_single();
(yyval.bf_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (4)].ll_node);
opt_kwd_ = NO;
;}
break;
case 1134:
#line 7592 "gram1.y"
{
(yyval.bf_node) = make_single();
opt_kwd_ = NO;
;}
break;
case 1135:
#line 7598 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(3) - (4)].ll_node),LLNULL,EXPR_LIST);
;}
break;
case 1136:
#line 7602 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(1) - (5)].ll_node),(yyvsp[(4) - (5)].ll_node),EXPR_LIST);
;}
break;
case 1139:
#line 7612 "gram1.y"
{
(yyval.bf_node) = make_endsingle();
(yyval.bf_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (4)].ll_node);
opt_kwd_ = NO;
;}
break;
case 1140:
#line 7618 "gram1.y"
{
(yyval.bf_node) = make_endsingle();
opt_kwd_ = NO;
;}
break;
case 1141:
#line 7624 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(3) - (4)].ll_node),LLNULL,EXPR_LIST);
;}
break;
case 1142:
#line 7628 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(1) - (5)].ll_node),(yyvsp[(4) - (5)].ll_node),EXPR_LIST);
;}
break;
case 1145:
#line 7639 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,OMP_COPYPRIVATE,(yyvsp[(2) - (2)].ll_node),LLNULL,SMNULL);
;}
break;
case 1146:
#line 7645 "gram1.y"
{
(yyval.ll_node) = make_llnd(fi,OMP_NOWAIT,LLNULL,LLNULL,SMNULL);
;}
break;
case 1147:
#line 7651 "gram1.y"
{
(yyval.bf_node) = make_workshare();
;}
break;
case 1148:
#line 7656 "gram1.y"
{
PTR_LLND q;
(yyval.bf_node) = make_endworkshare();
q = set_ll_list((yyvsp[(4) - (4)].ll_node),LLNULL,EXPR_LIST);
(yyval.bf_node)->entry.Template.ll_ptr1 = q;
opt_kwd_ = NO;
;}
break;
case 1149:
#line 7664 "gram1.y"
{
(yyval.bf_node) = make_endworkshare();
opt_kwd_ = NO;
;}
break;
case 1150:
#line 7670 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,OMP_PARALLEL_DO_DIR,SMNULL,(yyvsp[(4) - (4)].ll_node),LLNULL,LLNULL);
opt_kwd_ = NO;
;}
break;
case 1151:
#line 7675 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,OMP_PARALLEL_DO_DIR,SMNULL,LLNULL,LLNULL,LLNULL);
opt_kwd_ = NO;
;}
break;
case 1152:
#line 7682 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(3) - (4)].ll_node),LLNULL,EXPR_LIST);
;}
break;
case 1153:
#line 7686 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(1) - (5)].ll_node),(yyvsp[(4) - (5)].ll_node),EXPR_LIST);
;}
break;
case 1165:
#line 7706 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,OMP_END_PARALLEL_DO_DIR,SMNULL,LLNULL,LLNULL,LLNULL);
;}
break;
case 1166:
#line 7711 "gram1.y"
{
(yyval.bf_node) = make_parallelsections((yyvsp[(4) - (4)].ll_node));
opt_kwd_ = NO;
;}
break;
case 1167:
#line 7716 "gram1.y"
{
(yyval.bf_node) = make_parallelsections(LLNULL);
opt_kwd_ = NO;
;}
break;
case 1168:
#line 7723 "gram1.y"
{
(yyval.bf_node) = make_endparallelsections();
;}
break;
case 1169:
#line 7728 "gram1.y"
{
(yyval.bf_node) = make_parallelworkshare();
(yyval.bf_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (4)].ll_node);
opt_kwd_ = NO;
;}
break;
case 1170:
#line 7734 "gram1.y"
{
(yyval.bf_node) = make_parallelworkshare();
opt_kwd_ = NO;
;}
break;
case 1171:
#line 7740 "gram1.y"
{
(yyval.bf_node) = make_endparallelworkshare();
;}
break;
case 1172:
#line 7745 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,OMP_THREADPRIVATE_DIR, SMNULL, (yyvsp[(3) - (3)].ll_node), LLNULL, LLNULL);
;}
break;
case 1173:
#line 7750 "gram1.y"
{
(yyval.bf_node) = make_master();
;}
break;
case 1174:
#line 7755 "gram1.y"
{
(yyval.bf_node) = make_endmaster();
;}
break;
case 1175:
#line 7759 "gram1.y"
{
(yyval.bf_node) = make_ordered();
;}
break;
case 1176:
#line 7764 "gram1.y"
{
(yyval.bf_node) = make_endordered();
;}
break;
case 1177:
#line 7769 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,OMP_BARRIER_DIR,SMNULL,LLNULL,LLNULL,LLNULL);
;}
break;
case 1178:
#line 7773 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,OMP_ATOMIC_DIR,SMNULL,LLNULL,LLNULL,LLNULL);
;}
break;
case 1179:
#line 7778 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,OMP_FLUSH_DIR,SMNULL,(yyvsp[(3) - (3)].ll_node),LLNULL,LLNULL);
;}
break;
case 1180:
#line 7782 "gram1.y"
{
(yyval.bf_node) = get_bfnd(fi,OMP_FLUSH_DIR,SMNULL,LLNULL,LLNULL,LLNULL);
;}
break;
case 1181:
#line 7788 "gram1.y"
{
(yyval.bf_node) = make_critical();
(yyval.bf_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (5)].ll_node);
;}
break;
case 1182:
#line 7793 "gram1.y"
{
(yyval.bf_node) = make_critical();
;}
break;
case 1183:
#line 7799 "gram1.y"
{
(yyval.bf_node) = make_endcritical();
(yyval.bf_node)->entry.Template.ll_ptr1 = (yyvsp[(4) - (5)].ll_node);
;}
break;
case 1184:
#line 7804 "gram1.y"
{
(yyval.bf_node) = make_endcritical();
;}
break;
case 1185:
#line 7810 "gram1.y"
{
PTR_SYMB s;
PTR_LLND l;
s = make_common((yyvsp[(2) - (5)].hash_entry));
l = make_llnd(fi,VAR_REF, LLNULL, LLNULL, s);
(yyval.ll_node) = make_llnd(fi,OMP_THREADPRIVATE, l, LLNULL, SMNULL);
;}
break;
case 1186:
#line 7820 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST);
;}
break;
case 1187:
#line 7824 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST);
;}
break;
case 1188:
#line 7828 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST);
;}
break;
case 1189:
#line 7832 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST);
;}
break;
case 1190:
#line 7837 "gram1.y"
{
operator_slash = 1;
;}
break;
case 1191:
#line 7840 "gram1.y"
{
operator_slash = 0;
;}
break;
case 1199:
#line 7854 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,ACC_REGION_DIR,SMNULL,(yyvsp[(3) - (3)].ll_node),LLNULL,LLNULL);;}
break;
case 1200:
#line 7858 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,ACC_CHECKSECTION_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 1201:
#line 7862 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,ACC_GET_ACTUAL_DIR,SMNULL,(yyvsp[(4) - (5)].ll_node),LLNULL,LLNULL);;}
break;
case 1202:
#line 7864 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,ACC_GET_ACTUAL_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 1203:
#line 7866 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,ACC_GET_ACTUAL_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 1204:
#line 7870 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,ACC_ACTUAL_DIR,SMNULL,(yyvsp[(4) - (5)].ll_node),LLNULL,LLNULL);;}
break;
case 1205:
#line 7872 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,ACC_ACTUAL_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 1206:
#line 7874 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,ACC_ACTUAL_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 1207:
#line 7878 "gram1.y"
{ (yyval.ll_node) = LLNULL;;}
break;
case 1208:
#line 7880 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node); ;}
break;
case 1209:
#line 7884 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 1210:
#line 7886 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 1211:
#line 7890 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(2) - (2)].ll_node);;}
break;
case 1212:
#line 7893 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(2) - (2)].ll_node);;}
break;
case 1213:
#line 7896 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(2) - (2)].ll_node);;}
break;
case 1214:
#line 7901 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_INOUT_OP,(yyvsp[(3) - (4)].ll_node),LLNULL,SMNULL);;}
break;
case 1215:
#line 7903 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_IN_OP,(yyvsp[(3) - (4)].ll_node),LLNULL,SMNULL);;}
break;
case 1216:
#line 7905 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_OUT_OP,(yyvsp[(3) - (4)].ll_node),LLNULL,SMNULL);;}
break;
case 1217:
#line 7907 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_LOCAL_OP,(yyvsp[(3) - (4)].ll_node),LLNULL,SMNULL);;}
break;
case 1218:
#line 7909 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_INLOCAL_OP,(yyvsp[(3) - (4)].ll_node),LLNULL,SMNULL);;}
break;
case 1219:
#line 7913 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_TARGETS_OP,(yyvsp[(3) - (4)].ll_node),LLNULL,SMNULL);;}
break;
case 1220:
#line 7917 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_ASYNC_OP,LLNULL,LLNULL,SMNULL);;}
break;
case 1221:
#line 7922 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(1) - (1)].ll_node);;}
break;
case 1222:
#line 7926 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 1223:
#line 7928 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 1224:
#line 7932 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_HOST_OP, LLNULL,LLNULL,SMNULL);;}
break;
case 1225:
#line 7934 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_CUDA_OP, LLNULL,LLNULL,SMNULL);;}
break;
case 1226:
#line 7938 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,ACC_END_REGION_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 1227:
#line 7942 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,ACC_END_CHECKSECTION_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 1228:
#line 7946 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,ACC_ROUTINE_DIR,SMNULL,(yyvsp[(3) - (3)].ll_node),LLNULL,LLNULL);;}
break;
case 1229:
#line 7950 "gram1.y"
{ (yyval.ll_node) = LLNULL; ;}
break;
case 1230:
#line 7952 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(2) - (2)].ll_node);;}
break;
case 1237:
#line 7964 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,SPF_ANALYSIS_DIR,SMNULL,(yyvsp[(4) - (5)].ll_node),LLNULL,LLNULL);;}
break;
case 1238:
#line 7968 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,SPF_PARALLEL_DIR,SMNULL,(yyvsp[(4) - (5)].ll_node),LLNULL,LLNULL);;}
break;
case 1239:
#line 7972 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,SPF_TRANSFORM_DIR,SMNULL,(yyvsp[(4) - (5)].ll_node),LLNULL,LLNULL);;}
break;
case 1240:
#line 7976 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,SPF_PARALLEL_REG_DIR,(yyvsp[(3) - (3)].symbol),LLNULL,LLNULL,LLNULL);;}
break;
case 1241:
#line 7978 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,SPF_PARALLEL_REG_DIR,(yyvsp[(3) - (10)].symbol),(yyvsp[(8) - (10)].ll_node),(yyvsp[(10) - (10)].ll_node),LLNULL);;}
break;
case 1242:
#line 7980 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,SPF_PARALLEL_REG_DIR,(yyvsp[(3) - (10)].symbol),(yyvsp[(10) - (10)].ll_node),(yyvsp[(8) - (10)].ll_node),LLNULL);;}
break;
case 1243:
#line 7984 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 1244:
#line 7986 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 1245:
#line 7990 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_CODE_COVERAGE_OP,LLNULL,LLNULL,SMNULL);;}
break;
case 1246:
#line 7994 "gram1.y"
{ (yyval.ll_node) = LLNULL;;}
break;
case 1247:
#line 7996 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(5) - (6)].ll_node);;}
break;
case 1248:
#line 8000 "gram1.y"
{ (yyval.ll_node) = LLNULL;;}
break;
case 1249:
#line 8002 "gram1.y"
{ (yyval.ll_node) = (yyvsp[(5) - (6)].ll_node);;}
break;
case 1250:
#line 8006 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,SPF_END_PARALLEL_REG_DIR,SMNULL,LLNULL,LLNULL,LLNULL);;}
break;
case 1251:
#line 8010 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 1252:
#line 8012 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 1256:
#line 8021 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,REDUCTION_OP,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL); ;}
break;
case 1257:
#line 8025 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_PRIVATE_OP,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL);;}
break;
case 1258:
#line 8029 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_PARAMETER_OP,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL);;}
break;
case 1259:
#line 8032 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST); ;}
break;
case 1260:
#line 8034 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); ;}
break;
case 1261:
#line 8038 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi, ASSGN_OP, (yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), SMNULL); ;}
break;
case 1262:
#line 8042 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 1263:
#line 8044 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 1267:
#line 8053 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SHADOW_OP,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL);;}
break;
case 1268:
#line 8057 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACROSS_OP,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL);;}
break;
case 1269:
#line 8061 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,REMOTE_ACCESS_OP,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL);;}
break;
case 1270:
#line 8065 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 1271:
#line 8067 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 1272:
#line 8071 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_NOINLINE_OP,LLNULL,LLNULL,SMNULL);;}
break;
case 1273:
#line 8073 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_FISSION_OP,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL);;}
break;
case 1274:
#line 8075 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_EXPAND_OP,LLNULL,LLNULL,SMNULL);;}
break;
case 1275:
#line 8077 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_EXPAND_OP,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL);;}
break;
case 1276:
#line 8080 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_SHRINK_OP,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL);;}
break;
case 1277:
#line 8082 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_UNROLL_OP,LLNULL,LLNULL,SMNULL);;}
break;
case 1278:
#line 8084 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_UNROLL_OP,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL);;}
break;
case 1279:
#line 8088 "gram1.y"
{
(yyval.ll_node) = set_ll_list((yyvsp[(1) - (5)].ll_node), (yyvsp[(3) - (5)].ll_node), EXPR_LIST);
(yyval.ll_node) = set_ll_list((yyval.ll_node), (yyvsp[(5) - (5)].ll_node), EXPR_LIST);
;}
break;
case 1280:
#line 8095 "gram1.y"
{ (yyval.symbol) = make_parallel_region((yyvsp[(1) - (1)].hash_entry));;}
break;
case 1281:
#line 8099 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node), LLNULL, EXPR_LIST); ;}
break;
case 1282:
#line 8101 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node), (yyvsp[(3) - (3)].ll_node), EXPR_LIST); ;}
break;
case 1283:
#line 8105 "gram1.y"
{ (yyval.bf_node) = get_bfnd(fi,SPF_CHECKPOINT_DIR,SMNULL,(yyvsp[(4) - (5)].ll_node),LLNULL,LLNULL);;}
break;
case 1284:
#line 8109 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 1285:
#line 8111 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 1286:
#line 8115 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_TYPE_OP,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL);;}
break;
case 1287:
#line 8117 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_VARLIST_OP,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL);;}
break;
case 1288:
#line 8119 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_EXCEPT_OP,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL);;}
break;
case 1289:
#line 8121 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_FILES_COUNT_OP,(yyvsp[(4) - (5)].ll_node),LLNULL,SMNULL);;}
break;
case 1290:
#line 8123 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_INTERVAL_OP,(yyvsp[(4) - (7)].ll_node),(yyvsp[(6) - (7)].ll_node),SMNULL);;}
break;
case 1291:
#line 8127 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (1)].ll_node),LLNULL,EXPR_LIST); ;}
break;
case 1292:
#line 8129 "gram1.y"
{ (yyval.ll_node) = set_ll_list((yyvsp[(1) - (3)].ll_node),(yyvsp[(3) - (3)].ll_node),EXPR_LIST); ;}
break;
case 1293:
#line 8133 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,ACC_ASYNC_OP, LLNULL,LLNULL,SMNULL);;}
break;
case 1294:
#line 8135 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_FLEXIBLE_OP, LLNULL,LLNULL,SMNULL);;}
break;
case 1295:
#line 8139 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_TIME_OP, LLNULL,LLNULL,SMNULL);;}
break;
case 1296:
#line 8141 "gram1.y"
{ (yyval.ll_node) = make_llnd(fi,SPF_ITER_OP, LLNULL,LLNULL,SMNULL);;}
break;
case 1297:
#line 8145 "gram1.y"
{ if(position==IN_OUTSIDE)
err("Misplaced SPF-directive",103);
;}
break;
/* Line 1267 of yacc.c. */
#line 14120 "gram1.tab.c"
default: break;
}
YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
YYPOPSTACK (yylen);
yylen = 0;
YY_STACK_PRINT (yyss, yyssp);
*++yyvsp = yyval;
/* Now `shift' the result of the reduction. Determine what state
that goes to, based on the state we popped back to and the rule
number reduced by. */
yyn = yyr1[yyn];
yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
yystate = yytable[yystate];
else
yystate = yydefgoto[yyn - YYNTOKENS];
goto yynewstate;
/*------------------------------------.
| yyerrlab -- here on detecting error |
`------------------------------------*/
yyerrlab:
/* If not already recovering from an error, report this error. */
if (!yyerrstatus)
{
++yynerrs;
#if ! YYERROR_VERBOSE
yyerror (YY_("syntax error"));
#else
{
YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM)
{
YYSIZE_T yyalloc = 2 * yysize;
if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM))
yyalloc = YYSTACK_ALLOC_MAXIMUM;
if (yymsg != yymsgbuf)
YYSTACK_FREE (yymsg);
yymsg = (char *) YYSTACK_ALLOC (yyalloc);
if (yymsg)
yymsg_alloc = yyalloc;
else
{
yymsg = yymsgbuf;
yymsg_alloc = sizeof yymsgbuf;
}
}
if (0 < yysize && yysize <= yymsg_alloc)
{
(void) yysyntax_error (yymsg, yystate, yychar);
yyerror (yymsg);
}
else
{
yyerror (YY_("syntax error"));
if (yysize != 0)
goto yyexhaustedlab;
}
}
#endif
}
if (yyerrstatus == 3)
{
/* If just tried and failed to reuse look-ahead token after an
error, discard it. */
if (yychar <= YYEOF)
{
/* Return failure if at end of input. */
if (yychar == YYEOF)
YYABORT;
}
else
{
yydestruct ("Error: discarding",
yytoken, &yylval);
yychar = YYEMPTY;
}
}
/* Else will try to reuse look-ahead token after shifting the error
token. */
goto yyerrlab1;
/*---------------------------------------------------.
| yyerrorlab -- error raised explicitly by YYERROR. |
`---------------------------------------------------*/
yyerrorlab:
/* Pacify compilers like GCC when the user code never invokes
YYERROR and the label yyerrorlab therefore never appears in user
code. */
if (/*CONSTCOND*/ 0)
goto yyerrorlab;
/* Do not reclaim the symbols of the rule which action triggered
this YYERROR. */
YYPOPSTACK (yylen);
yylen = 0;
YY_STACK_PRINT (yyss, yyssp);
yystate = *yyssp;
goto yyerrlab1;
/*-------------------------------------------------------------.
| yyerrlab1 -- common code for both syntax error and YYERROR. |
`-------------------------------------------------------------*/
yyerrlab1:
yyerrstatus = 3; /* Each real token shifted decrements this. */
for (;;)
{
yyn = yypact[yystate];
if (yyn != YYPACT_NINF)
{
yyn += YYTERROR;
if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
{
yyn = yytable[yyn];
if (0 < yyn)
break;
}
}
/* Pop the current state because it cannot handle the error token. */
if (yyssp == yyss)
YYABORT;
yydestruct ("Error: popping",
yystos[yystate], yyvsp);
YYPOPSTACK (1);
yystate = *yyssp;
YY_STACK_PRINT (yyss, yyssp);
}
if (yyn == YYFINAL)
YYACCEPT;
*++yyvsp = yylval;
/* Shift the error token. */
YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);
yystate = yyn;
goto yynewstate;
/*-------------------------------------.
| yyacceptlab -- YYACCEPT comes here. |
`-------------------------------------*/
yyacceptlab:
yyresult = 0;
goto yyreturn;
/*-----------------------------------.
| yyabortlab -- YYABORT comes here. |
`-----------------------------------*/
yyabortlab:
yyresult = 1;
goto yyreturn;
#ifndef yyoverflow
/*-------------------------------------------------.
| yyexhaustedlab -- memory exhaustion comes here. |
`-------------------------------------------------*/
yyexhaustedlab:
yyerror (YY_("memory exhausted"));
yyresult = 2;
/* Fall through. */
#endif
yyreturn:
if (yychar != YYEOF && yychar != YYEMPTY)
yydestruct ("Cleanup: discarding lookahead",
yytoken, &yylval);
/* Do not reclaim the symbols of the rule which action triggered
this YYABORT or YYACCEPT. */
YYPOPSTACK (yylen);
YY_STACK_PRINT (yyss, yyssp);
while (yyssp != yyss)
{
yydestruct ("Cleanup: popping",
yystos[*yyssp], yyvsp);
YYPOPSTACK (1);
}
#ifndef yyoverflow
if (yyss != yyssa)
YYSTACK_FREE (yyss);
#endif
#if YYERROR_VERBOSE
if (yymsg != yymsgbuf)
YYSTACK_FREE (yymsg);
#endif
/* Make sure YYID is used. */
return YYID (yyresult);
}
Reference in New Issue View Git Blame Copy Permalink