52 #define YYBISON_VERSION "3.8.2"
55 #define YYSKELETON_NAME "yacc.c"
68 #define yyparse syn_parse
70 #define yyerror syn_error
71 #define yydebug syn_debug
72 #define yynerrs syn_nerrs
73 #define yylval syn_lval
74 #define yychar syn_char
80 #include "pips_config.h"
97 #define YYERROR_VERBOSE 1
120 ParserError(
"MakeDataValueSet",
"data value must be a constant\n");
141 # define YY_CAST(Type, Val) static_cast<Type> (Val)
142 # define YY_REINTERPRET_CAST(Type, Val) reinterpret_cast<Type> (Val)
144 # define YY_CAST(Type, Val) ((Type) (Val))
145 # define YY_REINTERPRET_CAST(Type, Val) ((Type) (Val))
149 # if defined __cplusplus
150 # if 201103L <= __cplusplus
151 # define YY_NULLPTR nullptr
153 # define YY_NULLPTR 0
156 # define YY_NULLPTR ((void*)0)
162 #ifndef YY_SYN_Y_TAB_H_INCLUDED
163 # define YY_SYN_Y_TAB_H_INCLUDED
169 extern int syn_debug;
281 #define TK_ASSIGN 258
282 #define TK_BACKSPACE 259
284 #define TK_BLOCKDATA 261
285 #define TK_BUFFERIN 262
286 #define TK_BUFFEROUT 263
288 #define TK_CHARACTER 265
290 #define TK_COMMON 267
291 #define TK_COMPLEX 268
292 #define TK_CONTINUE 269
295 #define TK_DIMENSION 272
296 #define TK_DOUBLEPRECISION 273
297 #define TK_DOUBLECOMPLEX 274
299 #define TK_ELSEIF 276
301 #define TK_ENDFILE 278
306 #define TK_EQUIVALENCE 283
308 #define TK_EXTERNAL 285
309 #define TK_FORMAT 286
310 #define TK_FUNCTION 287
313 #define TK_IMPLICIT 290
314 #define TK_INCLUDE 291
315 #define TK_INQUIRE 292
316 #define TK_INTEGER 293
317 #define TK_INTRINSIC 294
318 #define TK_IOSTAT 295
319 #define TK_LOGICAL 296
321 #define TK_PARAMETER 298
323 #define TK_POINTER 300
325 #define TK_PROGRAM 302
328 #define TK_RETURN 305
329 #define TK_REWIND 306
331 #define TK_STATIC 308
333 #define TK_SUBROUTINE 310
368 #define TK_EQUALS 345
369 #define TK_CURRENCY 346
370 #define TK_CONCAT 347
372 #define TK_IOLPAR 349
375 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
402 # define YYSTYPE_IS_TRIVIAL 1
403 # define YYSTYPE_IS_DECLARED 1
640 #ifndef __PTRDIFF_MAX__
642 # if defined __STDC_VERSION__ && 199901 <= __STDC_VERSION__
653 #ifdef __INT_LEAST8_MAX__
655 #elif defined YY_STDINT_H
661 #ifdef __INT_LEAST16_MAX__
663 #elif defined YY_STDINT_H
675 # undef UINT_LEAST8_MAX
676 # undef UINT_LEAST16_MAX
677 # define UINT_LEAST8_MAX 255
678 # define UINT_LEAST16_MAX 65535
681 #if defined __UINT_LEAST8_MAX__ && __UINT_LEAST8_MAX__ <= __INT_MAX__
683 #elif (!defined __UINT_LEAST8_MAX__ && defined YY_STDINT_H \
684 && UINT_LEAST8_MAX <= INT_MAX)
686 #elif !defined __UINT_LEAST8_MAX__ && UCHAR_MAX <= INT_MAX
692 #if defined __UINT_LEAST16_MAX__ && __UINT_LEAST16_MAX__ <= __INT_MAX__
694 #elif (!defined __UINT_LEAST16_MAX__ && defined YY_STDINT_H \
695 && UINT_LEAST16_MAX <= INT_MAX)
697 #elif !defined __UINT_LEAST16_MAX__ && USHRT_MAX <= INT_MAX
704 # if defined __PTRDIFF_TYPE__ && defined __PTRDIFF_MAX__
705 # define YYPTRDIFF_T __PTRDIFF_TYPE__
706 # define YYPTRDIFF_MAXIMUM __PTRDIFF_MAX__
707 # elif defined PTRDIFF_MAX
711 # define YYPTRDIFF_T ptrdiff_t
712 # define YYPTRDIFF_MAXIMUM PTRDIFF_MAX
714 # define YYPTRDIFF_T long
715 # define YYPTRDIFF_MAXIMUM LONG_MAX
720 # ifdef __SIZE_TYPE__
721 # define YYSIZE_T __SIZE_TYPE__
722 # elif defined size_t
723 # define YYSIZE_T size_t
724 # elif defined __STDC_VERSION__ && 199901 <= __STDC_VERSION__
726 # define YYSIZE_T size_t
728 # define YYSIZE_T unsigned
732 #define YYSIZE_MAXIMUM \
733 YY_CAST (YYPTRDIFF_T, \
734 (YYPTRDIFF_MAXIMUM < YY_CAST (YYSIZE_T, -1) \
735 ? YYPTRDIFF_MAXIMUM \
736 : YY_CAST (YYSIZE_T, -1)))
738 #define YYSIZEOF(X) YY_CAST (YYPTRDIFF_T, sizeof (X))
748 # if defined YYENABLE_NLS && YYENABLE_NLS
750 # include <libintl.h>
751 # define YY_(Msgid) dgettext ("bison-runtime", Msgid)
755 # define YY_(Msgid) Msgid
760 #ifndef YY_ATTRIBUTE_PURE
761 # if defined __GNUC__ && 2 < __GNUC__ + (96 <= __GNUC_MINOR__)
762 # define YY_ATTRIBUTE_PURE __attribute__ ((__pure__))
764 # define YY_ATTRIBUTE_PURE
768 #ifndef YY_ATTRIBUTE_UNUSED
769 # if defined __GNUC__ && 2 < __GNUC__ + (7 <= __GNUC_MINOR__)
770 # define YY_ATTRIBUTE_UNUSED __attribute__ ((__unused__))
772 # define YY_ATTRIBUTE_UNUSED
777 #if ! defined lint || defined __GNUC__
778 # define YY_USE(E) ((void) (E))
784 #if defined __GNUC__ && ! defined __ICC && 406 <= __GNUC__ * 100 + __GNUC_MINOR__
785 # if __GNUC__ * 100 + __GNUC_MINOR__ < 407
786 # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \
787 _Pragma ("GCC diagnostic push") \
788 _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")
790 # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \
791 _Pragma ("GCC diagnostic push") \
792 _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"") \
793 _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"")
795 # define YY_IGNORE_MAYBE_UNINITIALIZED_END \
796 _Pragma ("GCC diagnostic pop")
798 # define YY_INITIAL_VALUE(Value) Value
800 #ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
801 # define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
802 # define YY_IGNORE_MAYBE_UNINITIALIZED_END
804 #ifndef YY_INITIAL_VALUE
805 # define YY_INITIAL_VALUE(Value)
808 #if defined __cplusplus && defined __GNUC__ && ! defined __ICC && 6 <= __GNUC__
809 # define YY_IGNORE_USELESS_CAST_BEGIN \
810 _Pragma ("GCC diagnostic push") \
811 _Pragma ("GCC diagnostic ignored \"-Wuseless-cast\"")
812 # define YY_IGNORE_USELESS_CAST_END \
813 _Pragma ("GCC diagnostic pop")
815 #ifndef YY_IGNORE_USELESS_CAST_BEGIN
816 # define YY_IGNORE_USELESS_CAST_BEGIN
817 # define YY_IGNORE_USELESS_CAST_END
821 #define YY_ASSERT(E) ((void) (0 && (E)))
823 #if !defined yyoverflow
827 # ifdef YYSTACK_USE_ALLOCA
828 # if YYSTACK_USE_ALLOCA
830 # define YYSTACK_ALLOC __builtin_alloca
831 # elif defined __BUILTIN_VA_ARG_INCR
834 # define YYSTACK_ALLOC __alloca
835 # elif defined _MSC_VER
837 # define alloca _alloca
839 # define YYSTACK_ALLOC alloca
840 # if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS
843 # ifndef EXIT_SUCCESS
844 # define EXIT_SUCCESS 0
851 # ifdef YYSTACK_ALLOC
853 # define YYSTACK_FREE(Ptr) do { ; } while (0)
854 # ifndef YYSTACK_ALLOC_MAXIMUM
859 # define YYSTACK_ALLOC_MAXIMUM 4032
862 # define YYSTACK_ALLOC YYMALLOC
863 # define YYSTACK_FREE YYFREE
864 # ifndef YYSTACK_ALLOC_MAXIMUM
865 # define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
867 # if (defined __cplusplus && ! defined EXIT_SUCCESS \
868 && ! ((defined YYMALLOC || defined malloc) \
869 && (defined YYFREE || defined free)))
871 # ifndef EXIT_SUCCESS
872 # define EXIT_SUCCESS 0
876 # define YYMALLOC malloc
877 # if ! defined malloc && ! defined EXIT_SUCCESS
883 # if ! defined free && ! defined EXIT_SUCCESS
890 #if (! defined yyoverflow \
891 && (! defined __cplusplus \
892 || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
902 # define YYSTACK_GAP_MAXIMUM (YYSIZEOF (union yyalloc) - 1)
906 # define YYSTACK_BYTES(N) \
907 ((N) * (YYSIZEOF (yy_state_t) + YYSIZEOF (YYSTYPE)) \
908 + YYSTACK_GAP_MAXIMUM)
910 # define YYCOPY_NEEDED 1
917 # define YYSTACK_RELOCATE(Stack_alloc, Stack) \
920 YYPTRDIFF_T yynewbytes; \
921 YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
922 Stack = &yyptr->Stack_alloc; \
923 yynewbytes = yystacksize * YYSIZEOF (*Stack) + YYSTACK_GAP_MAXIMUM; \
924 yyptr += yynewbytes / YYSIZEOF (*yyptr); \
930 #if defined YYCOPY_NEEDED && YYCOPY_NEEDED
934 # if defined __GNUC__ && 1 < __GNUC__
935 # define YYCOPY(Dst, Src, Count) \
936 __builtin_memcpy (Dst, Src, YY_CAST (YYSIZE_T, (Count)) * sizeof (*(Src)))
938 # define YYCOPY(Dst, Src, Count) \
942 for (yyi = 0; yyi < (Count); yyi++) \
943 (Dst)[yyi] = (Src)[yyi]; \
962 #define YYNSTATES 465
965 #define YYMAXUTOK 349
970 #define YYTRANSLATE(YYX) \
971 (0 <= (YYX) && (YYX) <= YYMAXUTOK \
972 ? YY_CAST (yysymbol_kind_t, yytranslate[YYX]) \
979 0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
980 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
981 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
982 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
983 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
984 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
985 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
986 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
987 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
988 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
989 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
990 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
991 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
992 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
993 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
994 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
995 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
996 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
997 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
998 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
999 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
1000 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
1001 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
1002 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
1003 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
1004 2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
1005 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
1006 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
1007 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
1008 35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
1009 45, 46, 47, 48, 49, 50, 51, 52, 53, 54,
1010 55, 56, 57, 58, 59, 60, 61, 62, 63, 64,
1011 65, 66, 67, 68, 69, 70, 71, 72, 73, 74,
1012 75, 76, 77, 78, 79, 80, 81, 82, 83, 84,
1013 85, 86, 87, 88, 89, 90, 91, 92, 93, 94
1020 0, 380, 380, 381, 386, 386, 386, 387, 387, 390,
1021 397, 413, 417, 418, 419, 423, 443, 443, 444, 444,
1022 449, 455, 456, 457, 458, 459, 460, 461, 462, 463,
1023 464, 467, 469, 471, 473, 475, 477, 479, 481, 483,
1024 485, 487, 489, 491, 493, 495, 497, 499, 501, 503,
1025 507, 511, 514, 518, 522, 524, 528, 532, 536, 543,
1026 553, 557, 561, 563, 568, 569, 573, 575, 586, 603,
1027 623, 642, 643, 647, 649, 653, 657, 661, 665, 669,
1028 676, 683, 690, 699, 705, 714, 718, 722, 726, 737,
1029 746, 754, 763, 767, 773, 783, 795, 799, 805, 816,
1030 830, 838, 840, 841, 844, 845, 848, 850, 854, 858,
1031 864, 869, 875, 877, 880, 919, 922, 928, 932, 938,
1032 949, 955, 961, 976, 981, 986, 991, 999, 1005, 1009,
1033 1015, 1021, 1024, 1025, 1028, 1032, 1036, 1044, 1047, 1052,
1034 1058, 1063, 1070, 1074, 1081, 1085, 1091, 1095, 1101, 1105,
1035 1109, 1143, 1147, 1151, 1160, 1167, 1170, 1175, 1180, 1183,
1036 1188, 1197, 1208, 1214, 1217, 1218, 1221, 1227, 1249, 1253,
1037 1264, 1272, 1280, 1285, 1288, 1292, 1300, 1304, 1312, 1316,
1038 1326, 1331, 1336, 1349, 1354, 1359, 1364, 1369, 1374, 1379,
1039 1387, 1398, 1402, 1406, 1412, 1417, 1422, 1426, 1432, 1434,
1040 1438, 1442, 1448, 1455, 1458, 1460, 1462, 1471, 1473, 1477,
1041 1481, 1485, 1492, 1496, 1500, 1504, 1508, 1513, 1517, 1522,
1042 1527, 1533, 1539, 1544, 1551, 1552, 1556, 1561, 1565, 1572,
1043 1576, 1580, 1584, 1588, 1593, 1600, 1610, 1614, 1618, 1622,
1044 1628, 1633, 1640, 1647, 1653, 1661, 1664, 1670, 1674, 1680,
1045 1684, 1688, 1692, 1696, 1700, 1706, 1708, 1710, 1712, 1714,
1046 1716, 1718, 1720, 1722, 1726, 1728, 1732, 1734, 1737, 1740,
1052 #define YY_ACCESSING_SYMBOL(State) YY_CAST (yysymbol_kind_t, yystos[State])
1061 static const char *
const yytname[] =
1063 "\"end of file\"",
"error",
"\"invalid token\"",
"TK_ASSIGN",
1064 "TK_BACKSPACE",
"TK_BLANK",
"TK_BLOCKDATA",
"TK_BUFFERIN",
1065 "TK_BUFFEROUT",
"TK_CALL",
"TK_CHARACTER",
"TK_CLOSE",
"TK_COMMON",
1066 "TK_COMPLEX",
"TK_CONTINUE",
"TK_CYCLE",
"TK_DATA",
"TK_DIMENSION",
1067 "TK_DOUBLEPRECISION",
"TK_DOUBLECOMPLEX",
"TK_DO",
"TK_ELSEIF",
1068 "TK_ELSE",
"TK_ENDFILE",
"TK_ENDDO",
"TK_ENDIF",
"TK_END",
"TK_ENTRY",
1069 "TK_EQUIVALENCE",
"TK_EXIT",
"TK_EXTERNAL",
"TK_FORMAT",
"TK_FUNCTION",
1070 "TK_GOTO",
"TK_IF",
"TK_IMPLICIT",
"TK_INCLUDE",
"TK_INQUIRE",
1071 "TK_INTEGER",
"TK_INTRINSIC",
"TK_IOSTAT",
"TK_LOGICAL",
"TK_OPEN",
1072 "TK_PARAMETER",
"TK_PAUSE",
"TK_POINTER",
"TK_PRINT",
"TK_PROGRAM",
1073 "TK_READ",
"TK_REAL",
"TK_RETURN",
"TK_REWIND",
"TK_SAVE",
"TK_STATIC",
1074 "TK_STOP",
"TK_SUBROUTINE",
"TK_THEN",
"TK_TO",
"TK_WHILE",
"TK_WRITE",
1075 "TK_INOUT",
"TK_IN",
"TK_OUT",
"TK_AND",
"TK_EQ",
"TK_EQV",
"TK_GE",
1076 "TK_GT",
"TK_LE",
"TK_LT",
"TK_NE",
"TK_NEQV",
"TK_NOT",
"TK_OR",
1077 "TK_TRUE",
"TK_FALSE",
"TK_NAME",
"TK_ICON",
"TK_SCON",
"TK_RCON",
1078 "TK_DCON",
"TK_MINUS",
"TK_PLUS",
"TK_SLASH",
"TK_STAR",
"TK_POWER",
1079 "TK_LPAR",
"TK_RPAR",
"TK_COMMA",
"TK_COLON",
"TK_EQUALS",
"TK_CURRENCY",
1080 "TK_CONCAT",
"TK_EOS",
"TK_IOLPAR",
"$accept",
"lprg_exec",
"prg_exec",
1081 "$@1",
"$@2",
"$@3",
"begin_inst",
"entry_inst",
"end_inst",
1082 "linstruction",
"instruction",
"$@4",
"$@5",
"inst_spec",
"inst_exec",
1083 "return_inst",
"call_inst",
"tk_call",
"parameters",
"arguments",
1084 "io_inst",
"io_f_u_id",
"lci",
"ci",
"opt_lio_elem",
"lio_elem",
1085 "io_elem",
"pause_inst",
"stop_inst",
"continue_inst",
"do_inst",
1086 "bdo_inst",
"wdo_inst",
"do_plage",
"endif_inst",
"enddo_inst",
1087 "else_inst",
"elseif_inst",
"blockif_inst",
"logicalif_inst",
1088 "arithmif_inst",
"goto_inst",
"licon",
"assignment_inst",
"format_inst",
1089 "save_inst",
"lsavename",
"savename",
"intrinsic_inst",
"external_inst",
1090 "type_inst",
"declaration",
"decl_tableau",
"ldim_tableau",
1091 "dim_tableau",
"common_inst",
"common",
"common_name",
"pointer_inst",
1092 "equivalence_inst",
"lequivchain",
"equivchain",
"latom",
1093 "dimension_inst",
"dimension",
"data_inst",
"ldatavar",
"ldataval",
1094 "dataval",
"dataconst",
"datavar",
"dataidl",
"implicit_inst",
1095 "limplicit",
"implicit",
"l_letter_letter",
"letter_letter",
"letter",
1096 "parameter_inst",
"lparametre",
"parametre",
"entity_name",
"name",
1097 "module_name",
"global_entity_name",
"functional_entity_name",
1098 "global_name",
"opt_lformalparameter",
"lformalparameter",
1099 "opt_fortran_type",
"fortran_type",
"fortran_basic_type",
1100 "lg_fortran_type",
"atom",
"indices",
"lexpression",
"opt_expression",
1101 "expression",
"sous_expression",
"io_expr",
"unpar_io_expr",
1102 "const_simple",
"unsigned_const_simple",
"icon",
"label",
"ival",
1103 "opt_signe",
"signe",
"oper_rela",
"io_keyword",
"iobuf_keyword",
1114 #define YYPACT_NINF (-310)
1116 #define yypact_value_is_default(Yyn) \
1117 ((Yyn) == YYPACT_NINF)
1119 #define YYTABLE_NINF (-271)
1121 #define yytable_value_is_error(Yyn) \
1122 ((Yyn) == YYTABLE_NINF)
1128 32, -310, -310, -310, -310, -310, -310, -310, 22, -310,
1129 -5, 17, -310, -51, -310, -310, 447, 29, -310, -310,
1130 -310, -310, 3, -21, -310, -38, -310, -310, 653, -3,
1131 691, 602, -310, -57, 5, -310, -310, -18, -310, -310,
1132 213, -310, -310, -38, -8, -310, -310, 14, -310, -310,
1133 29, 36, -310, -310, -310, 24, 42, 32, 3, 40,
1134 46, -7, -7, -310, -310, 34, 48, 57, -11, -7,
1135 -310, -310, 61, 42, -310, -310, 42, 75, -310, -310,
1136 -310, -310, -310, -310, -33, 87, -310, -310, -310, -310,
1137 42, -47, 119, -310, -310, 1097, -310, -310, 1097, -310,
1138 1097, -310, -310, -310, -310, -310, 42, -310, -310, -310,
1139 -310, -310, -310, -310, -310, -310, -310, -310, -310, -310,
1140 -310, -310, -310, 92, 1110, 143, -310, -38, -310, -50,
1141 120, 1097, -310, -310, -310, -310, -310, -310, -310, -310,
1142 151, 1097, -310, 712, -310, -310, -310, 1097, 156, 33,
1143 -38, 251, 169, -310, -310, 42, 173, -310, -310, -310,
1144 175, -310, 180, -310, -310, 42, 42, 3, -310, 179,
1145 -310, -310, -310, 179, 3, 42, 42, 42, -26, -310,
1146 42, 184, 42, -310, -310, 220, 192, -310, 190, -41,
1147 1097, -18, 205, 60, -310, 1097, -310, 982, -310, -310,
1148 200, 1097, -310, 1123, 208, -310, 12, 19, -310, 427,
1149 1123, 4, -310, -310, -310, -35, -310, 127, -310, 682,
1150 1097, -310, 1097, -310, -310, -310, -310, -310, 1097, 1097,
1151 1097, 1097, 1097, 1097, 1097, -310, 1097, 1097, 219, -38,
1152 94, 25, -310, 222, -310, -310, 147, -310, -310, -310,
1153 54, 223, 350, 1097, 99, -310, 24, 32, 232, 101,
1154 -310, 230, 221, 239, -7, -310, -310, -310, -310, 42,
1155 -310, 369, -51, -310, 42, 1097, 1097, -310, 248, 42,
1156 742, -310, 128, -310, 253, 772, 1055, -310, 982, 427,
1157 -310, 130, -310, 250, 85, 1097, 427, 427, 427, 427,
1158 427, 427, 259, -310, 257, 33, -310, 2, -310, 1097,
1159 127, 1009, 1009, 511, 78, 78, 219, 219, 219, 234,
1160 1036, 30, 258, -310, 33, 33, -310, -310, 1097, 1097,
1161 272, -310, 42, -310, -310, -310, 149, -310, 266, -310,
1162 42, 1097, 42, -310, -310, -310, -310, 275, 277, 802,
1163 -310, -310, 832, 862, 1097, 190, 310, 279, 205, 205,
1164 508, 286, -310, 155, 982, 279, 1123, 1136, -310, -310,
1165 282, -310, 982, 96, 96, 259, 259, 259, 268, 1123,
1166 52, -310, -310, 190, 285, 892, 288, 94, -310, -310,
1167 982, 290, 1097, -310, -310, 232, 232, -310, 982, 184,
1168 -310, 369, 1071, -310, 1097, 922, -310, -310, 1097, -310,
1169 163, -310, -310, 291, -310, -310, 1084, 1097, -310, -310,
1170 165, 1097, 295, -310, 297, 1097, -310, -310, 298, -310,
1171 301, -310, -310, 303, -310, -310, 982, 952, -310, 982,
1172 -310, 205, 315, 982, -310, -310, 308, -310, 190, -310,
1173 -310, -310, 1097, 305, -310, 427, 312, 982, 205, 313,
1174 -310, -310, 427, 316, -310
1182 181, 189, 187, 185, 188, 183, 186, 184, 181, 2,
1183 4, 0, 180, 190, 1, 3, 18, 0, 269, 268,
1184 266, 267, 0, 0, 182, 0, 100, 12, 18, 0,
1185 0, 0, 20, 270, 0, 8, 172, 173, 169, 244,
1186 0, 193, 168, 0, 0, 142, 152, 194, 167, 151,
1187 0, 0, 13, 127, 139, 0, 0, 0, 0, 0,
1188 0, 101, 0, 17, 30, 29, 28, 27, 270, 0,
1189 24, 25, 23, 0, 22, 21, 0, 0, 261, 264,
1190 265, 53, 258, 78, 0, 0, 87, 260, 86, 85,
1191 0, 0, 0, 263, 259, 203, 255, 257, 203, 262,
1192 203, 256, 49, 19, 47, 46, 0, 48, 45, 44,
1193 43, 40, 41, 42, 38, 39, 37, 36, 35, 34,
1194 33, 32, 31, 0, 0, 0, 271, 0, 11, 0,
1195 0, 0, 236, 237, 242, 240, 241, 239, 248, 247,
1196 0, 0, 209, 0, 204, 210, 238, 0, 0, 245,
1197 0, 203, 195, 6, 14, 0, 131, 132, 171, 110,
1198 154, 155, 0, 108, 170, 0, 0, 0, 128, 102,
1199 104, 107, 106, 103, 0, 0, 0, 271, 0, 123,
1200 0, 115, 0, 137, 112, 0, 0, 243, 0, 270,
1201 0, 173, 0, 95, 92, 0, 76, 202, 50, 77,
1202 51, 0, 65, 0, 60, 226, 0, 224, 227, 0,
1203 0, 0, 177, 174, 176, 0, 9, 222, 191, 0,
1204 0, 249, 0, 253, 254, 252, 251, 250, 0, 0,
1205 0, 0, 0, 0, 0, 192, 0, 0, 211, 0,
1206 245, 0, 144, 146, 150, 148, 0, 246, 143, 198,
1207 0, 0, 200, 203, 0, 135, 0, 0, 0, 0,
1208 164, 0, 0, 0, 0, 109, 111, 113, 125, 0,
1209 124, 0, 190, 138, 0, 0, 0, 80, 0, 0,
1210 0, 10, 0, 96, 0, 0, 0, 52, 99, 0,
1211 70, 0, 66, 167, 0, 71, 0, 0, 0, 0,
1212 0, 0, 228, 224, 0, 245, 175, 0, 205, 0,
1213 221, 218, 219, 220, 213, 212, 215, 214, 216, 223,
1214 217, 194, 0, 140, 245, 245, 235, 199, 0, 203,
1215 0, 134, 0, 133, 156, 162, 0, 158, 160, 163,
1216 0, 0, 0, 129, 105, 126, 120, 0, 117, 119,
1217 114, 98, 0, 0, 0, 0, 0, 270, 0, 0,
1218 0, 0, 54, 0, 56, 270, 0, 0, 225, 61,
1219 72, 73, 75, 230, 229, 232, 231, 233, 234, 0,
1220 0, 179, 178, 209, 0, 200, 0, 245, 145, 147,
1221 201, 0, 203, 136, 157, 0, 0, 165, 166, 115,
1222 116, 0, 0, 81, 0, 0, 79, 88, 0, 97,
1223 0, 89, 90, 0, 58, 55, 0, 71, 67, 69,
1224 224, 0, 0, 141, 0, 0, 206, 153, 0, 196,
1225 0, 159, 161, 0, 118, 121, 122, 83, 82, 93,
1226 94, 0, 0, 57, 62, 74, 0, 207, 209, 149,
1227 197, 130, 0, 0, 59, 0, 0, 84, 0, 224,
1234 -310, -310, 394, -310, -310, -310, -310, -310, 354, -310,
1235 377, -310, -310, -310, 47, -310, -310, -310, -310, -310,
1236 -310, -122, -310, 43, -9, -310, -15, -310, -310, -310,
1237 -310, -310, -310, -309, -310, -310, -310, -310, -310, -310,
1238 -310, -310, 51, -310, -310, -310, 349, 148, -310, -310,
1239 -310, -49, 28, 23, -310, -310, -310, -54, -310, -310,
1240 -310, 172, -310, -310, -310, -310, -24, 124, 116, 129,
1241 -134, -310, -310, -310, 195, -310, 63, 65, -310, -310,
1242 122, 307, -52, -310, 293, -86, -14, 278, -310, -310,
1243 -29, -310, 196, -25, -310, 161, -89, -30, -310, -142,
1244 -119, -237, 59, 397, -77, -310, -310, -66, -310, -310,
1251 0, 8, 9, 16, 50, 17, 10, 102, 35, 28,
1252 29, 30, 31, 63, 103, 104, 105, 106, 287, 363,
1253 107, 290, 291, 292, 369, 370, 371, 108, 109, 110,
1254 111, 112, 113, 277, 114, 115, 116, 117, 118, 119,
1255 120, 121, 282, 122, 32, 64, 169, 170, 65, 66,
1256 67, 179, 272, 347, 348, 68, 69, 171, 70, 71,
1257 156, 157, 254, 72, 73, 33, 44, 241, 242, 243,
1258 45, 46, 74, 160, 161, 336, 337, 338, 75, 259,
1259 260, 47, 48, 37, 163, 159, 164, 130, 215, 11,
1260 12, 13, 24, 142, 152, 250, 196, 197, 144, 206,
1261 303, 245, 145, 146, 283, 41, 246, 147, 237, 124,
1270 49, 76, 204, 322, 158, 207, 123, 189, 38, 198,
1271 143, 199, 386, 178, 194, 180, 248, 278, 49, 148,
1272 200, -7, 14, 18, 183, 186, 42, 184, 162, 42,
1273 187, 126, 1, 23, 212, 2, -15, 213, 42, 192,
1274 3, 4, 1, 42, 187, 2, 406, 126, 43, 19,
1275 3, 4, 306, 307, 158, 34, 39, 167, 209, 188,
1276 5, 294, 251, 6, 20, 40, 168, 302, 129, 42,
1277 5, 7, 21, 6, 424, 149, 167, 177, 42, 36,
1278 150, 7, -26, 247, 207, 168, 381, 305, 304, 266,
1279 52, 207, 150, 296, 297, 298, 299, 300, 128, 205,
1280 151, 217, 49, 211, 301, 248, -64, -64, 323, 42,
1281 155, 219, -64, 324, 138, 139, 151, 238, 42, 240,
1282 276, 252, 174, 158, 269, 49, 165, 267, 268, 154,
1283 255, 270, 166, 273, 279, 423, 175, 209, 284, 456,
1284 324, 327, 328, 209, 209, 176, -270, 294, 126, 182,
1285 428, 293, 134, 263, 373, 374, 375, 376, 377, 378,
1286 280, 232, 233, 234, 330, 285, 296, 297, 298, 299,
1287 300, 288, 368, 190, 247, 138, 139, 301, 205, 298,
1288 299, 300, 201, 208, 205, 205, 331, 332, 339, 340,
1289 310, 221, 311, 223, 224, 225, 226, 227, 312, 313,
1290 314, 315, 316, 317, 318, 195, 319, 320, 230, 231,
1291 232, 233, 234, 216, 49, 357, 358, 365, 366, 236,
1292 345, 132, 133, 209, 134, 135, 136, 137, 162, 210,
1293 209, 209, 209, 209, 209, 209, 394, 395, 218, 247,
1294 391, 349, 415, 416, 239, 352, 353, 207, 420, 351,
1295 440, 358, -68, -68, 355, 253, 364, 422, 247, 247,
1296 207, 256, 208, 257, 205, 372, 258, 264, 208, 208,
1297 271, 205, 205, 205, 205, 205, 205, 274, 275, 385,
1298 276, 409, 187, 413, 383, 131, 286, 132, 133, 42,
1299 134, 135, 136, 137, 138, 139, 295, 140, 390, 141,
1300 209, 209, 408, 430, 234, 326, 325, 393, 335, 342,
1301 417, 398, 329, 209, 293, 230, 231, 232, 233, 234,
1302 341, 247, 343, 131, 405, 132, 133, 42, 134, 135,
1303 136, 137, 138, 139, 354, 123, 459, 141, 249, 359,
1304 367, 205, 205, 463, 300, 379, 387, 396, 208, 296,
1305 297, 298, 299, 300, 205, 208, 208, 208, 208, 208,
1306 208, 392, 400, 414, 453, 401, 407, 126, 172, 172,
1307 421, 349, 436, 425, 437, 427, 181, 429, 439, 441,
1308 181, 461, 446, 181, 447, 449, 443, 372, 450, 209,
1309 451, 372, 454, 458, 455, 390, 209, 191, 193, 460,
1310 448, 462, 15, 464, 153, 51, 445, 412, 444, 418,
1311 410, 173, 344, 220, 221, 222, 223, 224, 225, 226,
1312 227, 228, 457, 229, 434, 208, 208, 433, 333, 380,
1313 205, 230, 231, 232, 233, 234, 214, 205, 208, -202,
1314 388, 131, 236, 132, 133, 42, 134, 135, 136, 137,
1315 138, 139, 334, 346, 389, 141, 244, -16, 431, -16,
1316 -16, 432, 397, 25, -16, -16, -16, 265, 350, 281,
1317 384, 0, 261, 262, 185, -16, 0, -16, 26, 0,
1318 0, 0, -16, 181, 181, -16, -16, 181, -16, 181,
1319 -16, 0, -16, 0, 0, 0, -16, 0, 0, -16,
1320 -16, 132, 133, 42, 134, 135, 136, 137, 138, 139,
1321 0, 77, 78, 289, 208, 79, 80, 81, 0, 82,
1322 0, 208, 83, 0, 0, 0, 0, 0, 84, 85,
1323 86, 87, 88, 89, 0, 90, 0, 0, 0, 0,
1324 27, 91, 92, 0, 0, 93, 321, 0, 0, 0,
1325 94, 0, 95, 0, 96, 0, 97, 0, 98, 99,
1326 0, 0, 100, 0, 411, 0, 0, 101, 0, 0,
1327 0, 172, 0, 0, 220, 221, 181, 223, 224, 225,
1328 226, 227, 0, 0, 42, 187, 0, 0, 0, 0,
1329 0, 0, 230, 231, 232, 233, 234, 0, 0, 0,
1330 0, 0, 0, 236, 0, 77, 78, 0, 0, 79,
1331 80, 81, 244, 82, 382, 0, 83, 0, 0, 0,
1332 0, 0, 84, 85, 86, 87, 88, 89, 0, 90,
1333 0, 244, 244, 0, 0, 91, 92, 0, 0, 93,
1334 0, 0, 0, 0, 94, 0, 95, 261, 96, 399,
1335 97, 0, 98, 99, 0, 0, 100, 0, 0, 0,
1336 0, 101, 0, -16, 0, -16, -16, 0, 0, 25,
1337 -16, -16, -16, 0, 0, 0, 0, 0, 42, -5,
1338 0, -16, 0, -16, 26, 0, 0, 0, -16, 0,
1339 0, -16, -16, 0, -16, 0, -16, 0, -16, 0,
1340 0, 1, -16, 53, 2, -16, -16, 0, 54, 3,
1341 4, 0, 0, 0, 0, 0, 0, 0, 0, 55,
1342 0, 56, 0, 0, 0, 0, 57, 0, 0, 5,
1343 58, 0, 6, 0, 59, 0, 60, 0, 0, 0,
1344 7, 0, 0, 61, 62, 220, 221, 222, 223, 224,
1345 225, 226, 227, 228, 0, 229, 0, 0, 0, 0,
1346 0, 0, 0, 230, 231, 232, 233, 234, 0, 308,
1347 309, 0, 0, 0, 236, 220, 221, 222, 223, 224,
1348 225, 226, 227, 228, 0, 229, 0, 0, 0, 0,
1349 0, 0, 0, 230, 231, 232, 233, 234, 0, 235,
1350 0, 0, 0, 0, 236, 220, 221, 222, 223, 224,
1351 225, 226, 227, 228, 0, 229, 0, 0, 0, 0,
1352 0, 0, 0, 230, 231, 232, 233, 234, 0, 356,
1353 0, 0, 0, 0, 236, 220, 221, 222, 223, 224,
1354 225, 226, 227, 228, 0, 229, 0, 0, 0, 0,
1355 0, 0, 0, 230, 231, 232, 233, 234, 0, 360,
1356 0, 0, 0, 0, 236, 220, 221, 222, 223, 224,
1357 225, 226, 227, 228, 0, 229, 0, 0, 0, 0,
1358 0, 0, 0, 230, 231, 232, 233, 234, 0, 0,
1359 0, 402, 0, 0, 236, 220, 221, 222, 223, 224,
1360 225, 226, 227, 228, 0, 229, 0, 0, 0, 0,
1361 0, 0, 0, 230, 231, 232, 233, 234, 0, 403,
1362 0, 0, 0, 0, 236, 220, 221, 222, 223, 224,
1363 225, 226, 227, 228, 0, 229, 0, 0, 0, 0,
1364 0, 0, 0, 230, 231, 232, 233, 234, 0, 0,
1365 404, 0, 0, 0, 236, 220, 221, 222, 223, 224,
1366 225, 226, 227, 228, 0, 229, 0, 0, 0, 0,
1367 0, 0, 0, 230, 231, 232, 233, 234, 0, 426,
1368 0, 0, 0, 0, 236, 220, 221, 222, 223, 224,
1369 225, 226, 227, 228, 0, 229, 0, 0, 0, 0,
1370 0, 0, 0, 230, 231, 232, 233, 234, 0, 438,
1371 0, 0, 0, 0, 236, 220, 221, 222, 223, 224,
1372 225, 226, 227, 228, 0, 229, 0, 0, 0, 0,
1373 0, 0, 0, 230, 231, 232, 233, 234, 0, 0,
1374 452, 0, 0, 0, 236, 220, 221, 222, 223, 224,
1375 225, 226, 227, 228, 0, 229, 0, 0, 0, 0,
1376 0, 0, 0, 230, 231, 232, 233, 234, 0, 0,
1377 0, 0, 220, 221, 236, 223, 224, 225, 226, 227,
1378 0, 0, 229, 0, 0, 0, 0, 0, 0, 0,
1379 230, 231, 232, 233, 234, 0, 0, 0, 0, 0,
1380 -271, 236, -271, -271, -271, -271, -271, 0, 0, 0,
1381 0, 0, 0, 0, 0, 0, 0, 230, 231, 232,
1382 233, 234, 0, 0, 0, 0, 0, 131, 236, 132,
1383 133, 42, 134, 135, 136, 137, 138, 139, 0, 361,
1384 0, 141, 362, 131, 0, 132, 133, 42, 134, 135,
1385 136, 137, 138, 139, 0, 435, 131, 141, 132, 133,
1386 42, 134, 135, 136, 137, 138, 139, 0, 442, 131,
1387 141, 132, 133, 42, 134, 135, 136, 137, 138, 139,
1388 0, 0, 0, 141, 132, 133, 42, 134, 135, 136,
1389 137, 138, 139, 0, 202, 0, 203, 132, 133, 42,
1390 134, 135, 136, 137, 138, 139, 0, 202, 0, 289,
1391 132, 133, 42, 134, 135, 136, 137, 138, 139, 0,
1397 25, 30, 124, 240, 56, 124, 31, 84, 22, 98,
1398 40, 100, 321, 68, 91, 69, 150, 58, 43, 43,
1399 106, 26, 0, 6, 73, 58, 76, 76, 57, 76,
1400 77, 88, 10, 84, 84, 13, 93, 87, 76, 86,
1401 18, 19, 10, 76, 77, 13, 355, 88, 86, 32,
1402 18, 19, 87, 88, 106, 26, 77, 83, 124, 84,
1403 38, 203, 151, 41, 47, 86, 92, 209, 86, 76,
1404 38, 49, 55, 41, 383, 83, 83, 88, 76, 76,
1405 88, 49, 93, 149, 203, 92, 84, 83, 210, 175,
1406 93, 210, 88, 81, 82, 83, 84, 85, 93, 124,
1407 86, 131, 127, 127, 92, 239, 87, 88, 83, 76,
1408 86, 141, 93, 88, 81, 82, 86, 147, 76, 86,
1409 90, 151, 88, 175, 178, 150, 86, 176, 177, 93,
1410 155, 180, 86, 182, 189, 83, 88, 203, 193, 448,
1411 88, 87, 88, 209, 210, 88, 86, 289, 88, 88,
1412 387, 203, 77, 167, 296, 297, 298, 299, 300, 301,
1413 190, 83, 84, 85, 253, 195, 81, 82, 83, 84,
1414 85, 201, 87, 86, 240, 81, 82, 92, 203, 83,
1415 84, 85, 90, 124, 209, 210, 87, 88, 87, 88,
1416 220, 64, 222, 66, 67, 68, 69, 70, 228, 229,
1417 230, 231, 232, 233, 234, 86, 236, 237, 81, 82,
1418 83, 84, 85, 93, 239, 87, 88, 87, 88, 92,
1419 269, 74, 75, 289, 77, 78, 79, 80, 257, 86,
1420 296, 297, 298, 299, 300, 301, 87, 88, 87, 305,
1421 329, 271, 87, 88, 88, 275, 276, 366, 367, 274,
1422 87, 88, 87, 88, 279, 86, 286, 379, 324, 325,
1423 379, 88, 203, 88, 289, 295, 86, 88, 209, 210,
1424 86, 296, 297, 298, 299, 300, 301, 57, 86, 309,
1425 90, 358, 77, 360, 309, 72, 86, 74, 75, 76,
1426 77, 78, 79, 80, 81, 82, 88, 84, 328, 86,
1427 366, 367, 357, 392, 85, 246, 84, 332, 76, 88,
1428 365, 341, 89, 379, 366, 81, 82, 83, 84, 85,
1429 90, 387, 83, 72, 354, 74, 75, 76, 77, 78,
1430 79, 80, 81, 82, 86, 360, 455, 86, 87, 86,
1431 90, 366, 367, 462, 85, 88, 88, 81, 289, 81,
1432 82, 83, 84, 85, 379, 296, 297, 298, 299, 300,
1433 301, 89, 87, 77, 441, 88, 56, 88, 61, 62,
1434 88, 401, 402, 88, 404, 87, 69, 87, 408, 88,
1435 73, 458, 87, 76, 87, 87, 416, 417, 87, 455,
1436 87, 421, 77, 88, 86, 425, 462, 90, 91, 87,
1437 425, 88, 8, 87, 50, 28, 421, 360, 417, 366,
1438 359, 62, 264, 63, 64, 65, 66, 67, 68, 69,
1439 70, 71, 452, 73, 401, 366, 367, 399, 256, 305,
1440 455, 81, 82, 83, 84, 85, 129, 462, 379, 89,
1441 324, 72, 92, 74, 75, 76, 77, 78, 79, 80,
1442 81, 82, 257, 84, 325, 86, 149, 10, 395, 12,
1443 13, 396, 340, 16, 17, 18, 19, 174, 272, 191,
1444 309, -1, 165, 166, 77, 28, -1, 30, 31, -1,
1445 -1, -1, 35, 176, 177, 38, 39, 180, 41, 182,
1446 43, -1, 45, -1, -1, -1, 49, -1, -1, 52,
1447 53, 74, 75, 76, 77, 78, 79, 80, 81, 82,
1448 -1, 3, 4, 86, 455, 7, 8, 9, -1, 11,
1449 -1, 462, 14, -1, -1, -1, -1, -1, 20, 21,
1450 22, 23, 24, 25, -1, 27, -1, -1, -1, -1,
1451 93, 33, 34, -1, -1, 37, 239, -1, -1, -1,
1452 42, -1, 44, -1, 46, -1, 48, -1, 50, 51,
1453 -1, -1, 54, -1, 56, -1, -1, 59, -1, -1,
1454 -1, 264, -1, -1, 63, 64, 269, 66, 67, 68,
1455 69, 70, -1, -1, 76, 77, -1, -1, -1, -1,
1456 -1, -1, 81, 82, 83, 84, 85, -1, -1, -1,
1457 -1, -1, -1, 92, -1, 3, 4, -1, -1, 7,
1458 8, 9, 305, 11, 307, -1, 14, -1, -1, -1,
1459 -1, -1, 20, 21, 22, 23, 24, 25, -1, 27,
1460 -1, 324, 325, -1, -1, 33, 34, -1, -1, 37,
1461 -1, -1, -1, -1, 42, -1, 44, 340, 46, 342,
1462 48, -1, 50, 51, -1, -1, 54, -1, -1, -1,
1463 -1, 59, -1, 10, -1, 12, 13, -1, -1, 16,
1464 17, 18, 19, -1, -1, -1, -1, -1, 76, 26,
1465 -1, 28, -1, 30, 31, -1, -1, -1, 35, -1,
1466 -1, 38, 39, -1, 41, -1, 43, -1, 45, -1,
1467 -1, 10, 49, 12, 13, 52, 53, -1, 17, 18,
1468 19, -1, -1, -1, -1, -1, -1, -1, -1, 28,
1469 -1, 30, -1, -1, -1, -1, 35, -1, -1, 38,
1470 39, -1, 41, -1, 43, -1, 45, -1, -1, -1,
1471 49, -1, -1, 52, 53, 63, 64, 65, 66, 67,
1472 68, 69, 70, 71, -1, 73, -1, -1, -1, -1,
1473 -1, -1, -1, 81, 82, 83, 84, 85, -1, 87,
1474 88, -1, -1, -1, 92, 63, 64, 65, 66, 67,
1475 68, 69, 70, 71, -1, 73, -1, -1, -1, -1,
1476 -1, -1, -1, 81, 82, 83, 84, 85, -1, 87,
1477 -1, -1, -1, -1, 92, 63, 64, 65, 66, 67,
1478 68, 69, 70, 71, -1, 73, -1, -1, -1, -1,
1479 -1, -1, -1, 81, 82, 83, 84, 85, -1, 87,
1480 -1, -1, -1, -1, 92, 63, 64, 65, 66, 67,
1481 68, 69, 70, 71, -1, 73, -1, -1, -1, -1,
1482 -1, -1, -1, 81, 82, 83, 84, 85, -1, 87,
1483 -1, -1, -1, -1, 92, 63, 64, 65, 66, 67,
1484 68, 69, 70, 71, -1, 73, -1, -1, -1, -1,
1485 -1, -1, -1, 81, 82, 83, 84, 85, -1, -1,
1486 -1, 89, -1, -1, 92, 63, 64, 65, 66, 67,
1487 68, 69, 70, 71, -1, 73, -1, -1, -1, -1,
1488 -1, -1, -1, 81, 82, 83, 84, 85, -1, 87,
1489 -1, -1, -1, -1, 92, 63, 64, 65, 66, 67,
1490 68, 69, 70, 71, -1, 73, -1, -1, -1, -1,
1491 -1, -1, -1, 81, 82, 83, 84, 85, -1, -1,
1492 88, -1, -1, -1, 92, 63, 64, 65, 66, 67,
1493 68, 69, 70, 71, -1, 73, -1, -1, -1, -1,
1494 -1, -1, -1, 81, 82, 83, 84, 85, -1, 87,
1495 -1, -1, -1, -1, 92, 63, 64, 65, 66, 67,
1496 68, 69, 70, 71, -1, 73, -1, -1, -1, -1,
1497 -1, -1, -1, 81, 82, 83, 84, 85, -1, 87,
1498 -1, -1, -1, -1, 92, 63, 64, 65, 66, 67,
1499 68, 69, 70, 71, -1, 73, -1, -1, -1, -1,
1500 -1, -1, -1, 81, 82, 83, 84, 85, -1, -1,
1501 88, -1, -1, -1, 92, 63, 64, 65, 66, 67,
1502 68, 69, 70, 71, -1, 73, -1, -1, -1, -1,
1503 -1, -1, -1, 81, 82, 83, 84, 85, -1, -1,
1504 -1, -1, 63, 64, 92, 66, 67, 68, 69, 70,
1505 -1, -1, 73, -1, -1, -1, -1, -1, -1, -1,
1506 81, 82, 83, 84, 85, -1, -1, -1, -1, -1,
1507 64, 92, 66, 67, 68, 69, 70, -1, -1, -1,
1508 -1, -1, -1, -1, -1, -1, -1, 81, 82, 83,
1509 84, 85, -1, -1, -1, -1, -1, 72, 92, 74,
1510 75, 76, 77, 78, 79, 80, 81, 82, -1, 84,
1511 -1, 86, 87, 72, -1, 74, 75, 76, 77, 78,
1512 79, 80, 81, 82, -1, 84, 72, 86, 74, 75,
1513 76, 77, 78, 79, 80, 81, 82, -1, 84, 72,
1514 86, 74, 75, 76, 77, 78, 79, 80, 81, 82,
1515 -1, -1, -1, 86, 74, 75, 76, 77, 78, 79,
1516 80, 81, 82, -1, 84, -1, 86, 74, 75, 76,
1517 77, 78, 79, 80, 81, 82, -1, 84, -1, 86,
1518 74, 75, 76, 77, 78, 79, 80, 81, 82, -1,
1526 0, 10, 13, 18, 19, 38, 41, 49, 96, 97,
1527 101, 184, 185, 186, 0, 97, 98, 100, 6, 32,
1528 47, 55, 206, 84, 187, 16, 31, 93, 104, 105,
1529 106, 107, 139, 160, 26, 103, 76, 178, 181, 77,
1530 86, 200, 76, 86, 161, 165, 166, 176, 177, 188,
1531 99, 105, 93, 12, 17, 28, 30, 35, 39, 43,
1532 45, 52, 53, 108, 140, 143, 144, 145, 150, 151,
1533 153, 154, 158, 159, 167, 173, 185, 3, 4, 7,
1534 8, 9, 11, 14, 20, 21, 22, 23, 24, 25,
1535 27, 33, 34, 37, 42, 44, 46, 48, 50, 51,
1536 54, 59, 102, 109, 110, 111, 112, 115, 122, 123,
1537 124, 125, 126, 127, 129, 130, 131, 132, 133, 134,
1538 135, 136, 138, 188, 204, 205, 88, 207, 93, 86,
1539 182, 72, 74, 75, 77, 78, 79, 80, 81, 82,
1540 84, 86, 188, 192, 193, 197, 198, 202, 161, 83,
1541 88, 86, 189, 103, 93, 86, 155, 156, 177, 180,
1542 168, 169, 185, 179, 181, 86, 86, 83, 92, 141,
1543 142, 152, 176, 141, 88, 88, 88, 88, 207, 146,
1544 152, 176, 88, 146, 146, 198, 58, 77, 188, 199,
1545 86, 176, 86, 176, 199, 86, 191, 192, 191, 191,
1546 180, 90, 84, 86, 116, 188, 194, 195, 197, 202,
1547 86, 161, 84, 87, 176, 183, 93, 192, 87, 192,
1548 63, 64, 65, 66, 67, 68, 69, 70, 71, 73,
1549 81, 82, 83, 84, 85, 87, 92, 203, 192, 88,
1550 86, 162, 163, 164, 176, 196, 201, 202, 165, 87,
1551 190, 191, 192, 86, 157, 188, 88, 88, 86, 174,
1552 175, 176, 176, 181, 88, 179, 180, 146, 146, 152,
1553 146, 86, 147, 146, 57, 86, 90, 128, 58, 207,
1554 192, 182, 137, 199, 207, 192, 86, 113, 192, 86,
1555 116, 117, 118, 177, 194, 88, 81, 82, 83, 84,
1556 85, 92, 194, 195, 116, 83, 87, 88, 87, 88,
1557 192, 192, 192, 192, 192, 192, 192, 192, 192, 192,
1558 192, 176, 196, 83, 88, 84, 197, 87, 88, 89,
1559 191, 87, 88, 156, 169, 76, 170, 171, 172, 87,
1560 88, 90, 88, 83, 142, 146, 84, 148, 149, 192,
1561 187, 188, 192, 192, 86, 188, 87, 87, 88, 86,
1562 87, 84, 87, 114, 192, 87, 88, 90, 87, 119,
1563 120, 121, 192, 194, 194, 194, 194, 194, 194, 88,
1564 162, 84, 176, 188, 190, 192, 128, 88, 163, 164,
1565 192, 191, 89, 188, 87, 88, 81, 175, 192, 176,
1566 87, 88, 89, 87, 88, 192, 128, 56, 207, 199,
1567 137, 56, 109, 199, 77, 87, 88, 207, 118, 84,
1568 195, 88, 116, 83, 128, 88, 87, 87, 196, 87,
1569 191, 171, 172, 147, 148, 84, 192, 192, 87, 192,
1570 87, 88, 84, 192, 119, 121, 87, 87, 188, 87,
1571 87, 87, 88, 199, 77, 86, 128, 192, 88, 195,
1572 87, 199, 88, 195, 87
1578 0, 95, 96, 96, 98, 99, 97, 100, 97, 101,
1579 102, 103, 104, 104, 104, 105, 106, 105, 107, 105,
1580 105, 108, 108, 108, 108, 108, 108, 108, 108, 108,
1581 108, 109, 109, 109, 109, 109, 109, 109, 109, 109,
1582 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
1583 110, 111, 111, 112, 113, 113, 114, 114, 114, 114,
1584 115, 115, 115, 115, 116, 116, 117, 117, 118, 118,
1585 118, 119, 119, 120, 120, 121, 122, 123, 124, 125,
1586 126, 127, 127, 128, 128, 129, 130, 131, 132, 133,
1587 134, 135, 136, 136, 136, 136, 137, 137, 138, 138,
1588 139, 140, 140, 140, 141, 141, 142, 142, 143, 143,
1589 144, 144, 145, 145, 146, 147, 147, 148, 148, 149,
1590 149, 149, 149, 150, 150, 150, 150, 151, 152, 152,
1591 153, 154, 155, 155, 156, 157, 157, 158, 158, 159,
1592 160, 160, 161, 161, 162, 162, 163, 163, 164, 164,
1593 164, 165, 165, 166, 167, 168, 168, 169, 170, 170,
1594 171, 171, 172, 173, 174, 174, 175, 176, 177, 178,
1595 179, 180, 181, 182, 182, 182, 183, 183, 183, 183,
1596 184, 184, 185, 186, 186, 186, 186, 186, 186, 186,
1597 187, 187, 187, 187, 188, 188, 188, 188, 189, 189,
1598 190, 190, 191, 191, 192, 192, 192, 192, 192, 193,
1599 193, 193, 193, 193, 193, 193, 193, 193, 193, 193,
1600 193, 193, 193, 193, 194, 194, 195, 195, 195, 195,
1601 195, 195, 195, 195, 195, 196, 197, 197, 197, 197,
1602 197, 197, 198, 199, 200, 201, 201, 202, 202, 203,
1603 203, 203, 203, 203, 203, 204, 204, 204, 204, 204,
1604 204, 204, 204, 204, 205, 205, 206, 206, 206, 206,
1611 0, 2, 1, 2, 0, 0, 5, 0, 3, 5,
1612 3, 2, 1, 2, 3, 1, 0, 2, 0, 2,
1613 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1614 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1615 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1616 2, 2, 3, 1, 2, 3, 1, 3, 2, 4,
1617 2, 4, 6, 11, 1, 1, 1, 3, 3, 3,
1618 1, 0, 1, 1, 3, 1, 2, 2, 1, 5,
1619 3, 5, 6, 4, 6, 1, 1, 1, 5, 5,
1620 5, 9, 2, 6, 6, 2, 1, 3, 4, 3,
1621 1, 1, 2, 2, 1, 3, 1, 1, 2, 3,
1622 2, 3, 2, 3, 3, 0, 3, 1, 3, 1,
1623 1, 3, 3, 2, 3, 3, 4, 1, 1, 3,
1624 7, 2, 1, 3, 3, 1, 3, 2, 3, 1,
1625 5, 6, 1, 3, 1, 3, 1, 3, 1, 5,
1626 1, 1, 1, 6, 2, 1, 3, 4, 1, 3,
1627 1, 3, 1, 4, 1, 3, 3, 1, 1, 1,
1628 1, 1, 1, 0, 2, 3, 1, 1, 3, 3,
1629 1, 0, 2, 1, 1, 1, 1, 1, 1, 1,
1630 0, 4, 4, 2, 1, 2, 6, 7, 2, 3,
1631 1, 3, 1, 0, 1, 3, 5, 6, 8, 1,
1632 1, 2, 3, 3, 3, 3, 3, 3, 3, 3,
1633 3, 3, 2, 3, 1, 3, 1, 1, 2, 3,
1634 3, 3, 3, 3, 3, 2, 1, 1, 1, 1,
1635 1, 1, 1, 1, 1, 0, 1, 1, 1, 1,
1636 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1637 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1644 #define yyerrok (yyerrstatus = 0)
1645 #define yyclearin (yychar = YYEMPTY)
1647 #define YYACCEPT goto yyacceptlab
1648 #define YYABORT goto yyabortlab
1649 #define YYERROR goto yyerrorlab
1650 #define YYNOMEM goto yyexhaustedlab
1653 #define YYRECOVERING() (!!yyerrstatus)
1655 #define YYBACKUP(Token, Value) \
1657 if (yychar == YYEMPTY) \
1661 YYPOPSTACK (yylen); \
1667 yyerror (YY_("syntax error: cannot back up")); \
1674 #define YYERRCODE YYUNDEF
1682 # define YYFPRINTF fprintf
1685 # define YYDPRINTF(Args) \
1694 # define YY_SYMBOL_PRINT(Title, Kind, Value, Location) \
1698 YYFPRINTF (stderr, "%s ", Title); \
1699 yy_symbol_print (stderr, \
1701 YYFPRINTF (stderr, "\n"); \
1714 FILE *yyoutput = yyo;
1748 for (; yybottom <= yytop; yybottom++)
1750 int yybot = *yybottom;
1756 # define YY_STACK_PRINT(Bottom, Top) \
1759 yy_stack_print ((Bottom), (Top)); \
1772 int yynrhs =
yyr2[yyrule];
1774 YYFPRINTF (stderr,
"Reducing stack by rule %d (line %d):\n",
1777 for (yyi = 0; yyi < yynrhs; yyi++)
1782 &yyvsp[(yyi + 1) - (yynrhs)]);
1787 # define YY_REDUCE_PRINT(Rule) \
1790 yy_reduce_print (yyssp, yyvsp, Rule); \
1797 # define YYDPRINTF(Args) ((void) 0)
1798 # define YY_SYMBOL_PRINT(Title, Kind, Value, Location)
1799 # define YY_STACK_PRINT(Bottom, Top)
1800 # define YY_REDUCE_PRINT(Rule)
1806 # define YYINITDEPTH 200
1817 # define YYMAXDEPTH 10000
1864 int yyerrstatus = 0;
1893 #define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
1899 YYDPRINTF ((stderr,
"Starting parse\n"));
1919 YYDPRINTF ((stderr,
"Entering state %d\n", yystate));
1926 if (yyss + yystacksize - 1 <= yyssp)
1927 #if !defined yyoverflow && !defined YYSTACK_RELOCATE
1934 # if defined yyoverflow
1946 yyoverflow (
YY_(
"memory exhausted"),
1947 &yyss1, yysize *
YYSIZEOF (*yyssp),
1948 &yyvs1, yysize *
YYSIZEOF (*yyvsp),
1970 # undef YYSTACK_RELOCATE
1976 yyssp = yyss + yysize - 1;
1977 yyvsp = yyvs + yysize - 1;
1980 YYDPRINTF ((stderr,
"Stack size increased to %ld\n",
1981 YY_CAST (
long, yystacksize)));
1984 if (yyss + yystacksize - 1 <= yyssp)
2013 YYDPRINTF ((stderr,
"Reading a token\n"));
2021 YYDPRINTF ((stderr,
"Now at end of input.\n"));
2095 yyval = yyvsp[1-yylen];
2104 "Multiple modules in one file! Check fsplit!");}
2105 #line 2106 "y.tab.c"
2111 #line 2112 "y.tab.c"
2117 #line 2118 "y.tab.c"
2123 #line 2124 "y.tab.c"
2131 #line 2132 "y.tab.c"
2144 ParserError(
"Syntax",
"ENTRY are not directly processed. "
2145 "Set property PARSER_SUBSTITUTE_ENTRIES to allow "
2146 "entry substitutions");
2149 #line 2150 "y.tab.c"
2155 #line 2156 "y.tab.c"
2171 "DATA as an executable statement, moved up...\n");
2179 #line 2180 "y.tab.c"
2185 #line 2186 "y.tab.c"
2191 #line 2192 "y.tab.c"
2200 #line 2201 "y.tab.c"
2208 #line 2209 "y.tab.c"
2214 #line 2215 "y.tab.c"
2220 #line 2221 "y.tab.c"
2226 #line 2227 "y.tab.c"
2232 #line 2233 "y.tab.c"
2238 #line 2239 "y.tab.c"
2244 #line 2245 "y.tab.c"
2250 #line 2251 "y.tab.c"
2256 #line 2257 "y.tab.c"
2262 #line 2263 "y.tab.c"
2268 #line 2269 "y.tab.c"
2274 #line 2275 "y.tab.c"
2280 #line 2281 "y.tab.c"
2286 #line 2287 "y.tab.c"
2292 #line 2293 "y.tab.c"
2298 #line 2299 "y.tab.c"
2304 #line 2305 "y.tab.c"
2310 #line 2311 "y.tab.c"
2316 #line 2317 "y.tab.c"
2322 #line 2323 "y.tab.c"
2328 #line 2329 "y.tab.c"
2334 #line 2335 "y.tab.c"
2340 #line 2341 "y.tab.c"
2346 #line 2347 "y.tab.c"
2352 #line 2353 "y.tab.c"
2357 { (yyval.
liste) = NULL; }
2358 #line 2359 "y.tab.c"
2363 { (yyval.
liste) = (yyvsp[-1].liste); }
2364 #line 2365 "y.tab.c"
2372 #line 2373 "y.tab.c"
2380 #line 2381 "y.tab.c"
2391 #line 2392 "y.tab.c"
2402 #line 2403 "y.tab.c"
2410 #line 2411 "y.tab.c"
2418 #line 2419 "y.tab.c"
2424 #line 2425 "y.tab.c"
2430 #line 2431 "y.tab.c"
2436 #line 2437 "y.tab.c"
2441 { (yyval.
liste) = (yyvsp[0].liste); }
2442 #line 2443 "y.tab.c"
2454 #line 2455 "y.tab.c"
2461 (void) strcpy(
buffer, (yyvsp[-2].
string));
2462 free((yyvsp[-2].
string));
2468 (void) strcat(
buffer,
"=");
2475 #line 2476 "y.tab.c"
2482 (void) strcpy(
buffer, (yyvsp[-2].
string));
2483 free((yyvsp[-2].
string));
2485 if(strcmp(
buffer,
"UNIT")!=0 && strcmp(
buffer,
"FMT")!=0) {
2487 "Illegal default option '*' in IO control list\n");
2490 (void) strcat(
buffer,
"=");
2499 #line 2500 "y.tab.c"
2513 ParserError(
"Syntax",
"The unit identifier and the format identifier"
2514 " must be first and second in the control info list (standard Page F-12)");
2518 #line 2519 "y.tab.c"
2523 { (yyval.
liste) = NULL; }
2524 #line 2525 "y.tab.c"
2530 #line 2531 "y.tab.c"
2536 #line 2537 "y.tab.c"
2542 #line 2543 "y.tab.c"
2548 #line 2549 "y.tab.c"
2554 #line 2555 "y.tab.c"
2560 #line 2561 "y.tab.c"
2566 #line 2567 "y.tab.c"
2575 #line 2576 "y.tab.c"
2584 #line 2585 "y.tab.c"
2595 #line 2596 "y.tab.c"
2606 #line 2607 "y.tab.c"
2616 #line 2617 "y.tab.c"
2627 #line 2628 "y.tab.c"
2633 #line 2634 "y.tab.c"
2639 #line 2640 "y.tab.c"
2645 #line 2646 "y.tab.c"
2658 #line 2659 "y.tab.c"
2669 #line 2670 "y.tab.c"
2679 #line 2680 "y.tab.c"
2689 #line 2690 "y.tab.c"
2697 #line 2698 "y.tab.c"
2707 #line 2708 "y.tab.c"
2717 ParserError(
"parser",
"assigned goto statement prohibited"
2718 " unless property PARSER_SUBSTITUTE_ASSIGNED_GOTO is set\n");
2721 #line 2722 "y.tab.c"
2728 ParserError(
"parser",
"assigned goto statement cannot be"
2729 " desugared without a target list\n");
2732 ParserError(
"parser",
"assigned goto statement prohibited\n");
2735 #line 2736 "y.tab.c"
2743 #line 2744 "y.tab.c"
2751 #line 2752 "y.tab.c"
2762 ParserError(
"parser",
"ASSIGN statement prohibited by PIPS"
2763 " unless property PARSER_SUBSTITUTE_ASSIGNED_GOTO is set\n");
2766 #line 2767 "y.tab.c"
2782 #line 2783 "y.tab.c"
2792 #line 2793 "y.tab.c"
2798 #line 2799 "y.tab.c"
2804 #line 2805 "y.tab.c"
2810 #line 2811 "y.tab.c"
2818 #line 2819 "y.tab.c"
2826 #line 2827 "y.tab.c"
2835 #line 2836 "y.tab.c"
2843 #line 2844 "y.tab.c"
2849 #line 2850 "y.tab.c"
2864 FatalError(
"yyparse",
"ill. type for CurrentType\n");
2889 #line 2890 "y.tab.c"
2895 (yyval.
liste) = NULL;
2897 #line 2898 "y.tab.c"
2903 (yyval.
liste) = (yyvsp[-1].liste);
2905 #line 2906 "y.tab.c"
2913 #line 2914 "y.tab.c"
2921 #line 2922 "y.tab.c"
2933 "Array sized with a non-integer expression");
2936 #line 2937 "y.tab.c"
2946 #line 2947 "y.tab.c"
2956 #line 2957 "y.tab.c"
2970 "Array sized with a non-integer expression");
2973 #line 2974 "y.tab.c"
2982 #line 2983 "y.tab.c"
2991 #line 2992 "y.tab.c"
3000 #line 3001 "y.tab.c"
3009 #line 3010 "y.tab.c"
3013 #line 1000 "yacc.in"
3017 #line 3018 "y.tab.c"
3021 #line 1006 "yacc.in"
3025 #line 3026 "y.tab.c"
3029 #line 1010 "yacc.in"
3033 #line 3034 "y.tab.c"
3037 #line 1016 "yacc.in"
3041 #line 3042 "y.tab.c"
3045 #line 1029 "yacc.in"
3047 #line 3048 "y.tab.c"
3051 #line 1033 "yacc.in"
3055 #line 3056 "y.tab.c"
3059 #line 1037 "yacc.in"
3065 #line 3066 "y.tab.c"
3069 #line 1045 "yacc.in"
3072 #line 3073 "y.tab.c"
3076 #line 1048 "yacc.in"
3079 #line 3080 "y.tab.c"
3083 #line 1053 "yacc.in"
3087 #line 3088 "y.tab.c"
3091 #line 1059 "yacc.in"
3096 #line 3097 "y.tab.c"
3100 #line 1064 "yacc.in"
3105 #line 3106 "y.tab.c"
3109 #line 1071 "yacc.in"
3113 #line 3114 "y.tab.c"
3117 #line 1075 "yacc.in"
3121 #line 3122 "y.tab.c"
3125 #line 1082 "yacc.in"
3129 #line 3130 "y.tab.c"
3133 #line 1086 "yacc.in"
3137 #line 3138 "y.tab.c"
3141 #line 1092 "yacc.in"
3145 #line 3146 "y.tab.c"
3149 #line 1096 "yacc.in"
3153 #line 3154 "y.tab.c"
3157 #line 1102 "yacc.in"
3161 #line 3162 "y.tab.c"
3165 #line 1106 "yacc.in"
3169 #line 3170 "y.tab.c"
3173 #line 1110 "yacc.in"
3186 user_warning(
"gram",
"Symbolic constant expected: %s\n",
3190 "Might be a non supported hexadecimal constant\n");
3195 #line 3196 "y.tab.c"
3199 #line 1144 "yacc.in"
3203 #line 3204 "y.tab.c"
3207 #line 1148 "yacc.in"
3209 #line 3210 "y.tab.c"
3213 #line 1152 "yacc.in"
3220 #line 3221 "y.tab.c"
3224 #line 1161 "yacc.in"
3229 #line 3230 "y.tab.c"
3233 #line 1168 "yacc.in"
3236 #line 3237 "y.tab.c"
3240 #line 1171 "yacc.in"
3243 #line 3244 "y.tab.c"
3247 #line 1176 "yacc.in"
3250 #line 3251 "y.tab.c"
3254 #line 1181 "yacc.in"
3257 #line 3258 "y.tab.c"
3261 #line 1184 "yacc.in"
3264 #line 3265 "y.tab.c"
3268 #line 1189 "yacc.in"
3277 #line 3278 "y.tab.c"
3281 #line 1198 "yacc.in"
3290 #line 3291 "y.tab.c"
3294 #line 1209 "yacc.in"
3296 (yyval.
character) = (yyvsp[0].
string)[0];
free((yyvsp[0].
string));
3298 #line 3299 "y.tab.c"
3302 #line 1222 "yacc.in"
3306 #line 3307 "y.tab.c"
3310 #line 1228 "yacc.in"
3328 free((yyvsp[0].
string));
3330 #line 3331 "y.tab.c"
3334 #line 1250 "yacc.in"
3335 { (yyval.
string) = (yyvsp[0].
string); }
3336 #line 3337 "y.tab.c"
3340 #line 1254 "yacc.in"
3346 free((yyvsp[0].
string));
3349 #line 3350 "y.tab.c"
3353 #line 1265 "yacc.in"
3357 free((yyvsp[0].
string));
3359 #line 3360 "y.tab.c"
3363 #line 1273 "yacc.in"
3367 free((yyvsp[0].
string));
3369 #line 3370 "y.tab.c"
3373 #line 1281 "yacc.in"
3374 { (yyval.
string) = (yyvsp[0].
string); }
3375 #line 3376 "y.tab.c"
3379 #line 1285 "yacc.in"
3381 (yyval.
liste) = NULL;
3383 #line 3384 "y.tab.c"
3387 #line 1289 "yacc.in"
3389 (yyval.
liste) = NULL;
3391 #line 3392 "y.tab.c"
3395 #line 1293 "yacc.in"
3399 (yyval.
liste) = (yyvsp[-1].liste);
3401 #line 3402 "y.tab.c"
3405 #line 1301 "yacc.in"
3409 #line 3410 "y.tab.c"
3413 #line 1305 "yacc.in"
3421 #line 3422 "y.tab.c"
3425 #line 1313 "yacc.in"
3429 #line 3430 "y.tab.c"
3433 #line 1317 "yacc.in"
3441 #line 3442 "y.tab.c"
3445 #line 1327 "yacc.in"
3449 #line 3450 "y.tab.c"
3453 #line 1331 "yacc.in"
3457 #line 3458 "y.tab.c"
3461 #line 1337 "yacc.in"
3472 #line 3473 "y.tab.c"
3476 #line 1350 "yacc.in"
3481 #line 3482 "y.tab.c"
3485 #line 1355 "yacc.in"
3490 #line 3491 "y.tab.c"
3494 #line 1360 "yacc.in"
3499 #line 3500 "y.tab.c"
3503 #line 1365 "yacc.in"
3508 #line 3509 "y.tab.c"
3512 #line 1370 "yacc.in"
3517 #line 3518 "y.tab.c"
3521 #line 1375 "yacc.in"
3526 #line 3527 "y.tab.c"
3530 #line 1380 "yacc.in"
3535 #line 3536 "y.tab.c"
3539 #line 1387 "yacc.in"
3551 #line 3552 "y.tab.c"
3555 #line 1399 "yacc.in"
3559 #line 3560 "y.tab.c"
3563 #line 1403 "yacc.in"
3567 #line 3568 "y.tab.c"
3571 #line 1407 "yacc.in"
3575 #line 3576 "y.tab.c"
3579 #line 1413 "yacc.in"
3584 #line 3585 "y.tab.c"
3588 #line 1418 "yacc.in"
3593 #line 3594 "y.tab.c"
3597 #line 1423 "yacc.in"
3601 #line 3602 "y.tab.c"
3605 #line 1427 "yacc.in"
3609 #line 3610 "y.tab.c"
3613 #line 1433 "yacc.in"
3614 { (yyval.
liste) = NULL; }
3615 #line 3616 "y.tab.c"
3619 #line 1435 "yacc.in"
3621 #line 3622 "y.tab.c"
3625 #line 1439 "yacc.in"
3629 #line 3630 "y.tab.c"
3633 #line 1443 "yacc.in"
3637 #line 3638 "y.tab.c"
3641 #line 1449 "yacc.in"
3647 #line 3648 "y.tab.c"
3651 #line 1455 "yacc.in"
3653 #line 3654 "y.tab.c"
3657 #line 1459 "yacc.in"
3659 #line 3660 "y.tab.c"
3663 #line 1461 "yacc.in"
3665 #line 3666 "y.tab.c"
3669 #line 1463 "yacc.in"
3674 ParserError(
"Syntax",
"Illegal complex constant\n");
3678 #line 3679 "y.tab.c"
3682 #line 1472 "yacc.in"
3684 #line 3685 "y.tab.c"
3688 #line 1474 "yacc.in"
3690 #line 3691 "y.tab.c"
3694 #line 1478 "yacc.in"
3698 #line 3699 "y.tab.c"
3702 #line 1482 "yacc.in"
3706 #line 3707 "y.tab.c"
3710 #line 1486 "yacc.in"
3712 if ((yyvsp[-1].integer) == -1)
3717 #line 3718 "y.tab.c"
3721 #line 1493 "yacc.in"
3725 #line 3726 "y.tab.c"
3729 #line 1497 "yacc.in"
3733 #line 3734 "y.tab.c"
3737 #line 1501 "yacc.in"
3741 #line 3742 "y.tab.c"
3745 #line 1505 "yacc.in"
3749 #line 3750 "y.tab.c"
3753 #line 1509 "yacc.in"
3758 #line 3759 "y.tab.c"
3762 #line 1514 "yacc.in"
3766 #line 3767 "y.tab.c"
3770 #line 1518 "yacc.in"
3775 #line 3776 "y.tab.c"
3779 #line 1523 "yacc.in"
3784 #line 3785 "y.tab.c"
3788 #line 1528 "yacc.in"
3794 #line 3795 "y.tab.c"
3798 #line 1534 "yacc.in"
3804 #line 3805 "y.tab.c"
3808 #line 1540 "yacc.in"
3813 #line 3814 "y.tab.c"
3817 #line 1545 "yacc.in"
3822 #line 3823 "y.tab.c"
3826 #line 1553 "yacc.in"
3828 #line 3829 "y.tab.c"
3832 #line 1557 "yacc.in"
3836 #line 3837 "y.tab.c"
3840 #line 1562 "yacc.in"
3844 #line 3845 "y.tab.c"
3848 #line 1566 "yacc.in"
3850 if ((yyvsp[-1].integer) == -1)
3855 #line 3856 "y.tab.c"
3859 #line 1573 "yacc.in"
3863 #line 3864 "y.tab.c"
3867 #line 1577 "yacc.in"
3871 #line 3872 "y.tab.c"
3875 #line 1581 "yacc.in"
3879 #line 3880 "y.tab.c"
3883 #line 1585 "yacc.in"
3887 #line 3888 "y.tab.c"
3891 #line 1589 "yacc.in"
3896 #line 3897 "y.tab.c"
3900 #line 1594 "yacc.in"
3905 #line 3906 "y.tab.c"
3909 #line 1601 "yacc.in"
3911 if ((yyvsp[-1].integer) == -1)
3917 #line 3918 "y.tab.c"
3921 #line 1611 "yacc.in"
3925 #line 3926 "y.tab.c"
3929 #line 1615 "yacc.in"
3933 #line 3934 "y.tab.c"
3937 #line 1619 "yacc.in"
3941 #line 3942 "y.tab.c"
3945 #line 1623 "yacc.in"
3949 free((yyvsp[0].
string));
3951 #line 3952 "y.tab.c"
3955 #line 1629 "yacc.in"
3958 free((yyvsp[0].
string));
3960 #line 3961 "y.tab.c"
3964 #line 1634 "yacc.in"
3967 free((yyvsp[0].
string));
3969 #line 3970 "y.tab.c"
3973 #line 1641 "yacc.in"
3976 free((yyvsp[0].
string));
3978 #line 3979 "y.tab.c"
3982 #line 1648 "yacc.in"
3984 (yyval.
string) = (yyvsp[0].
string);
3986 #line 3987 "y.tab.c"
3990 #line 1654 "yacc.in"
3992 (yyval.
integer) = atoi((yyvsp[0].
string));
3993 free((yyvsp[0].
string));
3995 #line 3996 "y.tab.c"
3999 #line 1661 "yacc.in"
4003 #line 4004 "y.tab.c"
4007 #line 1665 "yacc.in"
4009 (yyval.
integer) = (yyvsp[0].integer);
4011 #line 4012 "y.tab.c"
4015 #line 1671 "yacc.in"
4019 #line 4020 "y.tab.c"
4023 #line 1675 "yacc.in"
4027 #line 4028 "y.tab.c"
4031 #line 1681 "yacc.in"
4035 #line 4036 "y.tab.c"
4039 #line 1685 "yacc.in"
4043 #line 4044 "y.tab.c"
4047 #line 1689 "yacc.in"
4051 #line 4052 "y.tab.c"
4055 #line 1693 "yacc.in"
4059 #line 4060 "y.tab.c"
4063 #line 1697 "yacc.in"
4067 #line 4068 "y.tab.c"
4071 #line 1701 "yacc.in"
4075 #line 4076 "y.tab.c"
4079 #line 1707 "yacc.in"
4081 #line 4082 "y.tab.c"
4085 #line 1709 "yacc.in"
4087 #line 4088 "y.tab.c"
4091 #line 1711 "yacc.in"
4093 #line 4094 "y.tab.c"
4097 #line 1713 "yacc.in"
4099 #line 4100 "y.tab.c"
4103 #line 1715 "yacc.in"
4105 #line 4106 "y.tab.c"
4109 #line 1717 "yacc.in"
4111 #line 4112 "y.tab.c"
4115 #line 1719 "yacc.in"
4117 #line 4118 "y.tab.c"
4121 #line 1721 "yacc.in"
4123 #line 4124 "y.tab.c"
4127 #line 1723 "yacc.in"
4129 #line 4130 "y.tab.c"
4133 #line 1727 "yacc.in"
4135 #line 4136 "y.tab.c"
4139 #line 1729 "yacc.in"
4141 #line 4142 "y.tab.c"
4145 #line 1733 "yacc.in"
4147 #line 4148 "y.tab.c"
4151 #line 1735 "yacc.in"
4154 #line 4155 "y.tab.c"
4158 #line 1738 "yacc.in"
4161 #line 4162 "y.tab.c"
4165 #line 1741 "yacc.in"
4167 #line 4168 "y.tab.c"
4171 #line 4172 "y.tab.c"
4198 const int yyi =
yypgoto[yylhs] + *yyssp;
4199 yystate = (0 <= yyi && yyi <=
YYLAST &&
yycheck[yyi] == *yyssp
4221 if (yyerrstatus == 3)
4350 while (yyssp != yyss)
4364 #line 1747 "yacc.in"
call make_call(entity a1, list a2)
value make_value_unknown(void)
expression make_expression(syntax a1, normalized a2)
basic make_basic(enum basic_utype tag, void *val)
value make_value_constant(constant _field_)
type copy_type(type p)
TYPE.
value make_value(enum value_utype tag, void *val)
reference make_reference(entity a1, list a2)
constant make_constant_int(intptr_t _field_)
dimension make_dimension(expression a1, expression a2, list a3)
syntax make_syntax(enum syntax_utype tag, void *val)
range make_range(expression a1, expression a2, expression a3)
expression MakeCharacterConstantExpression(string s)
END_EOLE.
expression MakeComplexConstantExpression(expression r, expression i)
entity SafeMakeConstant(string name, tag bt, bool(*error_manager)(const char *, const char *))
END_EOLE.
bool complex_constant_expression_p(expression cce)
value MakeValueSymbolic(expression e)
this function creates a value for a symbolic constant.
static const char * yysymbol_name(yysymbol_kind_t yysymbol) YY_ATTRIBUTE_UNUSED
The user-facing name of the symbol whose (internal) number is YYSYMBOL.
static void yy_symbol_print(FILE *yyo, yysymbol_kind_t yykind, YYSTYPE const *const yyvaluep)
-----------------------—.
static const yytype_int16 yyrline[]
YYRLINE[YYN] – Source line where rule number YYN was defined.
static void yy_symbol_value_print(FILE *yyo, yysymbol_kind_t yykind, YYSTYPE const *const yyvaluep)
-------------------------------—.
static void yy_reduce_print(yy_state_t *yyssp, YYSTYPE *yyvsp, int yyrule)
--------------------------------------------—.
static const char *const yytname[]
YYTNAME[SYMBOL-NUM] – String name of the symbol SYMBOL-NUM.
static void yy_stack_print(yy_state_t *yybottom, yy_state_t *yytop)
--------------------------------------------------------------—.
#define YYFPRINTF
Enable debugging if requested.
entity SafeFindOrCreateEntity(const char *package, const char *name)
Problem: A functional global entity may be referenced without parenthesis or CALL keyword in a functi...
void cr_implicit(tag t, int l, int lettre_d, int lettre_f)
this function updates the data structure used to compute implicit types.
void SaveCommon(entity c)
this function transforms a dynamic common into a static one.
void DeclareVariable(entity e, type t, list d, storage s, value v)
void DeclareVariable(e, t, d, s, v): update entity e description as declaration statements are encoun...
void MakeDataStatement(list ldr, list ldv)
Receives as first input an implicit list of references, including implicit DO, and as second input an...
void ProcessSave(entity v)
void save_all_entities()
functions for the SAVE declaration
void DeclareIntrinsic(entity e)
Intrinsic e is used in the current module.
entity NameToCommon(string n)
void retype_formal_parameters()
If an IMPLICIT statement is encountered, it must be applied to the formal parameters,...
void DeclarePointer(entity ptr, entity pointed_array, list decl_dims)
type MakeFortranType(tag t, value v)
this function creates a type that represents a fortran type.
void AddVariableToCommon(entity c, entity v)
This function adds a variable v to a common block c.
atom MakeEquivAtom(syntax s)
this function creates an atom of an equivalence chain.
void StoreEquivChain(chain c)
This function is called when an equivalence chain has been completely parsed.
bool get_bool_property(const string)
FC 2015-07-20: yuk, moved out to prevent an include cycle dependency include "properties....
yysymbol_kind_t
!YY_GENREAD_Y_TAB_H_INCLUDED
unsigned char yytype_uint8
Work around bug in HP-UX 11.23, which defines these macros incorrectly for preprocessor constants.
int yy_state_fast_t
State numbers in computations.
signed char yytype_int8
On compilers that do not define PTRDIFF_MAX etc., make sure <limits.h> and (if available) <stdint....
yytype_int8 yy_state_t
Stored state numbers (used for stacks).
entity get_current_module_entity(void)
Get the entity of the current module.
#define NIL
The empty list (nil in Lisp)
#define CONS(_t_, _i_, _l_)
List element cell constructor (insert an element at the beginning of a list)
list gen_nconc(list cp1, list cp2)
physically concatenates CP1 and CP2 but do not duplicates the elements
#define pips_user_warning
#define pips_assert(what, predicate)
common macros, two flavors depending on NDEBUG
#define user_warning(fn,...)
#define LIST_DIRECTED_FORMAT_NAME
#define TOP_LEVEL_MODULE_NAME
Module containing the global variables in Fortran and C.
#define BLANK_COMMON_LOCAL_NAME
#define ATOM(x)
newgen_equivalences_domain_defined
void MakeCurrentFunction(type t, int msf, const char *cfn, list lfp)
this function creates one entity cf that represents the Fortran function f being analyzed.
void EndOfProcedure()
This function is called when the parsing of a procedure is completed.
void BeginingOfProcedure()
this function is called each time a new procedure is encountered.
void init_ghost_variable_entities()
procedure.c
entity DeclareExternalFunction(entity e)
instruction MakeEntry(entity e, list lfp)
An ENTRY statement is substituted by a labelled continue.
entity NameToFunctionalEntity(string name)
void append_data_current_stmt_buffer_to_declarations(void)
#define UNBOUNDED_DIMENSION_NAME
#define DEFAULT_LOGICAL_TYPE_SIZE
#define REPEAT_VALUE_NAME
#define DEFAULT_INTEGER_TYPE_SIZE
#define DEFAULT_REAL_TYPE_SIZE
The standard C integer types are represented as follow char = 1 short_int = 2 int = 4 long_int = 6 lo...
#define DEFAULT_COMPLEX_TYPE_SIZE
#define DEFAULT_DOUBLECOMPLEX_TYPE_SIZE
#define DEFAULT_CHARACTER_TYPE_SIZE
Default type sizes.
#define DEFAULT_DOUBLEPRECISION_TYPE_SIZE
entity FindEntity(const char *package, const char *name)
Retrieve an entity from its package/module name and its local name.
const char * entity_local_name(entity e)
entity_local_name modified so that it does not core when used in vect_fprint, since someone thought t...
entity FindOrCreateEntity(const char *package, const char *local_name)
Problem: A functional global entity may be referenced without parenthesis or CALL keyword in a functi...
entity CreateIntrinsic(string name)
this function does not create an intrinsic function because they must all be created beforehand by th...
value EvalExpression(expression e)
Evaluate statically an expression.
expression make_call_expression(entity e, list l)
Build an expression that call an function entity with an argument list.
expression entity_to_expression(entity e)
if v is a constant, returns a constant call.
expression int_to_expression(_int i)
transform an int into an expression and generate the corresponding entity if necessary; it is not cle...
expression MakeNullaryCall(entity f)
Creates a call expression to a function with zero arguments.
expression MakeUnaryCall(entity f, expression a)
Creates a call expression to a function with one argument.
bool expression_implied_do_p(e)
type expression_to_type(expression)
For an array declared as int a[10][20], the type returned for a[i] is int [20].
bool scalar_integer_type_p(type)
void AddEntityToDeclarations(entity, entity)
END_EOLE.
entity generate_pseudo_formal_variable_for_formal_label(const char *, int)
expression generate_string_for_alternate_return_argument(string)
_int SizeOfElements(basic)
This function returns the length in bytes of the Fortran or C type represented by a basic,...
type MakeTypeVariable(basic, cons *)
BEGIN_EOLE.
bool symbolic_constant_entity_p(entity)
BEGIN_EOLE.
#define normalized_undefined
#define value_intrinsic_p(x)
#define value_constant_p(x)
#define EXPRESSION(x)
EXPRESSION.
#define instruction_undefined
#define entity_undefined_p(x)
#define expression_undefined
#define expression_undefined_p(x)
#define basic_string_p(x)
#define type_variable_p(x)
#define variable_basic(x)
#define storage_undefined
#define int_least8_t
7.18.1.2.
The structure used to build lists in NewGen.
static const yytype_uint8 yyr1[]
YYR1[RULE-NUM] – Symbol kind of the left-hand side of rule RULE-NUM.
#define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
#define YYMAXDEPTH
YYMAXDEPTH – maximum size the stacks can grow to (effective only if the built-in stack extension meth...
static const yytype_int8 yytranslate[]
YYTRANSLATE[TOKEN-NUM] – Symbol number corresponding to TOKEN-NUM as returned by yylex.
yysymbol_kind_t
!YY_SYN_Y_TAB_H_INCLUDED
@ YYSYMBOL_intrinsic_inst
savename
@ YYSYMBOL_TK_WRITE
TK_WHILE
@ YYSYMBOL_TK_FORMAT
TK_EXTERNAL
@ YYSYMBOL_TK_ENTRY
TK_END
@ YYSYMBOL_TK_REAL
TK_READ
@ YYSYMBOL_TK_SAVE
TK_REWIND
@ YYSYMBOL_equivchain
lequivchain
@ YYSYMBOL_bdo_inst
do_inst
@ YYSYMBOL_decl_tableau
declaration
@ YYSYMBOL_io_f_u_id
io_inst
@ YYSYMBOL_dataconst
dataval
@ YYSYMBOL_TK_NAME
TK_FALSE
@ YYSYMBOL_TK_EQUALS
TK_COLON
@ YYSYMBOL_TK_POWER
TK_STAR
@ YYSYMBOL_licon
goto_inst
@ YYSYMBOL_TK_INQUIRE
TK_INCLUDE
@ YYSYMBOL_lg_fortran_type
fortran_basic_type
@ YYSYMBOL_TK_POINTER
TK_PAUSE
@ YYSYMBOL_TK_MINUS
TK_DCON
@ YYSYMBOL_common_name
common
@ YYSYMBOL_TK_PROGRAM
TK_PRINT
@ YYSYMBOL_TK_ENDDO
TK_ENDFILE
@ YYSYMBOL_ldataval
ldatavar
@ YYSYMBOL_TK_CLOSE
TK_CHARACTER
@ YYSYMBOL_TK_GOTO
TK_FUNCTION
@ YYSYMBOL_unsigned_const_simple
const_simple
@ YYSYMBOL_TK_CONTINUE
TK_COMPLEX
@ YYSYMBOL_TK_CONCAT
TK_CURRENCY
@ YYSYMBOL_unpar_io_expr
io_expr
@ YYSYMBOL_TK_EXIT
TK_EQUIVALENCE
@ YYSYMBOL_TK_LOGICAL
TK_IOSTAT
@ YYSYMBOL_ldatavar
data_inst
@ YYSYMBOL_TK_SCON
TK_ICON
@ YYSYMBOL_limplicit
implicit_inst
@ YYSYMBOL_TK_BLANK
TK_BACKSPACE
@ YYSYMBOL_TK_LPAR
TK_POWER
@ YYSYMBOL_TK_DATA
TK_CYCLE
@ YYSYMBOL_implicit_inst
dataidl
@ YYSYMBOL_do_inst
continue_inst
@ YYSYMBOL_implicit
limplicit
@ YYSYMBOL_TK_COLON
TK_COMMA
@ YYSYMBOL_inst_exec
inst_spec
@ YYSYMBOL_TK_END
TK_ENDIF
@ YYSYMBOL_YYerror
"end of file"
@ YYSYMBOL_TK_FUNCTION
TK_FORMAT
@ YYSYMBOL_parameter_inst
letter
@ YYSYMBOL_TK_DOUBLEPRECISION
TK_DIMENSION
@ YYSYMBOL_io_inst
arguments
@ YYSYMBOL_TK_IOLPAR
TK_EOS
@ YYSYMBOL_TK_INOUT
TK_WRITE
@ YYSYMBOL_linstruction
end_inst
@ YYSYMBOL_opt_lio_elem
ci
@ YYSYMBOL_l_letter_letter
implicit
@ YYSYMBOL_dim_tableau
ldim_tableau
@ YYSYMBOL_savename
lsavename
@ YYSYMBOL_opt_virgule
psf_keyword
@ YYSYMBOL_prg_exec
lprg_exec
@ YYSYMBOL_TK_ASSIGN
"invalid token"
@ YYSYMBOL_wdo_inst
bdo_inst
@ YYSYMBOL_lequivchain
equivalence_inst
@ YYSYMBOL_io_expr
sous_expression
@ YYSYMBOL_lexpression
indices
@ YYSYMBOL_equivalence_inst
pointer_inst
@ YYSYMBOL_elseif_inst
else_inst
@ YYSYMBOL_fortran_type
opt_fortran_type
@ YYSYMBOL_global_name
functional_entity_name
@ YYSYMBOL_letter
letter_letter
@ YYSYMBOL_module_name
name
@ YYSYMBOL_lsavename
save_inst
@ YYSYMBOL_expression
opt_expression
@ YYSYMBOL_io_keyword
oper_rela
@ YYSYMBOL_tk_call
call_inst
@ YYSYMBOL_common
common_inst
@ YYSYMBOL_call_inst
return_inst
@ YYSYMBOL_oper_rela
signe
@ YYSYMBOL_io_elem
lio_elem
@ YYSYMBOL_latom
equivchain
@ YYSYMBOL_arguments
parameters
@ YYSYMBOL_TK_THEN
TK_SUBROUTINE
@ YYSYMBOL_opt_expression
lexpression
@ YYSYMBOL_TK_STATIC
TK_SAVE
@ YYSYMBOL_letter_letter
l_letter_letter
@ YYSYMBOL_iobuf_keyword
io_keyword
@ YYSYMBOL_TK_EXTERNAL
TK_EXIT
@ YYSYMBOL_arithmif_inst
logicalif_inst
@ YYSYMBOL_TK_INTRINSIC
TK_INTEGER
@ YYSYMBOL_atom
lg_fortran_type
@ YYSYMBOL_TK_DCON
TK_RCON
@ YYSYMBOL_TK_ENDIF
TK_ENDDO
@ YYSYMBOL_const_simple
unpar_io_expr
@ YYSYMBOL_return_inst
inst_exec
@ YYSYMBOL_TK_DOUBLECOMPLEX
TK_DOUBLEPRECISION
@ YYSYMBOL_106_4
instruction
@ YYSYMBOL_save_inst
format_inst
@ YYSYMBOL_TK_REWIND
TK_RETURN
@ YYSYMBOL_TK_IMPLICIT
TK_IF
@ YYSYMBOL_format_inst
assignment_inst
@ YYSYMBOL_TK_SUBROUTINE
TK_STOP
@ YYSYMBOL_entry_inst
begin_inst
@ YYSYMBOL_TK_DO
TK_DOUBLECOMPLEX
@ YYSYMBOL_type_inst
external_inst
@ YYSYMBOL_parametre
lparametre
@ YYSYMBOL_TK_EQUIVALENCE
TK_ENTRY
@ YYSYMBOL_declaration
type_inst
@ YYSYMBOL_name
entity_name
@ YYSYMBOL_instruction
linstruction
@ YYSYMBOL_blockif_inst
elseif_inst
@ YYSYMBOL_global_entity_name
module_name
@ YYSYMBOL_logicalif_inst
blockif_inst
@ YYSYMBOL_dimension
dimension_inst
@ YYSYMBOL_dataidl
datavar
@ YYSYMBOL_TK_BACKSPACE
TK_ASSIGN
@ YYSYMBOL_TK_INTEGER
TK_INQUIRE
@ YYSYMBOL_endif_inst
do_plage
@ YYSYMBOL_pointer_inst
common_name
@ YYSYMBOL_YYACCEPT
TK_IOLPAR
@ YYSYMBOL_TK_READ
TK_PROGRAM
@ YYSYMBOL_fortran_basic_type
fortran_type
@ YYSYMBOL_TK_PRINT
TK_POINTER
@ YYSYMBOL_data_inst
dimension
@ YYSYMBOL_TK_FALSE
TK_TRUE
@ YYSYMBOL_TK_RPAR
TK_LPAR
@ YYSYMBOL_TK_CALL
TK_BUFFEROUT
@ YYSYMBOL_TK_COMPLEX
TK_COMMON
@ YYSYMBOL_TK_PAUSE
TK_PARAMETER
@ YYSYMBOL_TK_SLASH
TK_PLUS
@ YYSYMBOL_TK_INCLUDE
TK_IMPLICIT
@ YYSYMBOL_lprg_exec
$accept
@ YYSYMBOL_pause_inst
io_elem
@ YYSYMBOL_TK_CURRENCY
TK_EQUALS
@ YYSYMBOL_TK_STOP
TK_STATIC
@ YYSYMBOL_TK_CYCLE
TK_CONTINUE
@ YYSYMBOL_TK_COMMA
TK_RPAR
@ YYSYMBOL_parameters
tk_call
@ YYSYMBOL_TK_DIMENSION
TK_DATA
@ YYSYMBOL_TK_EOS
TK_CONCAT
@ YYSYMBOL_dimension_inst
latom
@ YYSYMBOL_opt_fortran_type
lformalparameter
@ YYSYMBOL_TK_PLUS
TK_MINUS
@ YYSYMBOL_goto_inst
arithmif_inst
@ YYSYMBOL_psf_keyword
iobuf_keyword
@ YYSYMBOL_TK_ELSE
TK_ELSEIF
@ YYSYMBOL_enddo_inst
endif_inst
@ YYSYMBOL_TK_ENDFILE
TK_ELSE
@ YYSYMBOL_continue_inst
stop_inst
@ YYSYMBOL_assignment_inst
licon
@ YYSYMBOL_entity_name
parametre
@ YYSYMBOL_TK_STAR
TK_SLASH
@ YYSYMBOL_TK_BLOCKDATA
TK_BLANK
@ YYSYMBOL_sous_expression
expression
@ YYSYMBOL_end_inst
entry_inst
@ YYSYMBOL_TK_RCON
TK_SCON
@ YYSYMBOL_external_inst
intrinsic_inst
@ YYSYMBOL_TK_COMMON
TK_CLOSE
@ YYSYMBOL_functional_entity_name
global_entity_name
@ YYSYMBOL_else_inst
enddo_inst
@ YYSYMBOL_datavar
dataconst
@ YYSYMBOL_icon
unsigned_const_simple
@ YYSYMBOL_lformalparameter
opt_lformalparameter
@ YYSYMBOL_ldim_tableau
decl_tableau
@ YYSYMBOL_TK_ELSEIF
TK_DO
@ YYSYMBOL_TK_RETURN
TK_REAL
@ YYSYMBOL_TK_PARAMETER
TK_OPEN
@ YYSYMBOL_lparametre
parameter_inst
@ YYSYMBOL_lio_elem
opt_lio_elem
@ YYSYMBOL_TK_ICON
TK_NAME
@ YYSYMBOL_dataval
ldataval
@ YYSYMBOL_stop_inst
pause_inst
@ YYSYMBOL_signe
opt_signe
@ YYSYMBOL_TK_IOSTAT
TK_INTRINSIC
@ YYSYMBOL_TK_CHARACTER
TK_CALL
@ YYSYMBOL_do_plage
wdo_inst
@ YYSYMBOL_TK_BUFFERIN
TK_BLOCKDATA
@ YYSYMBOL_opt_lformalparameter
global_name
@ YYSYMBOL_TK_BUFFEROUT
TK_BUFFERIN
@ YYSYMBOL_TK_OPEN
TK_LOGICAL
@ YYSYMBOL_common_inst
dim_tableau
#define YY_IGNORE_MAYBE_UNINITIALIZED_END
#define YYNSTATES
YYNSTATES – Number of states.
#define YY_IGNORE_USELESS_CAST_END
static const yytype_int16 yydefact[]
YYDEFACT[STATE-NUM] – Default reduction number in state STATE-NUM.
#define YYSTACK_BYTES(N)
The size of an array large to enough to hold all stacks, each with N elements.
yytype_int16 yy_state_t
Stored state numbers (used for stacks).
static const yytype_int16 yydefgoto[]
YYDEFGOTO[NTERM-NUM].
#define YY_REDUCE_PRINT(Rule)
#define YY_CAST(Type, Val)
intptr_t CurrentTypeSize
the type in a type or dimension or common statement
static void yydestruct(const char *yymsg, yysymbol_kind_t yykind, YYSTYPE *yyvaluep)
-------------------------------------------—.
static const yytype_int16 yypact[]
YYPACT[STATE-NUM] – Index in YYTABLE of the portion describing STATE-NUM.
#define YYFINAL
!YYCOPY_NEEDED
#define YY_ACCESSING_SYMBOL(State)
Accessing symbol of state STATE.
#define YY_SYMBOL_PRINT(Title, Kind, Value, Location)
static const yytype_int16 yypgoto[]
YYPGOTO[NTERM-NUM].
#define YYNTOKENS
YYNTOKENS – Number of terminals.
unsigned char yytype_uint8
Work around bug in HP-UX 11.23, which defines these macros incorrectly for preprocessor constants.
#define YY_STACK_PRINT(Bottom, Top)
#define YY_IGNORE_USELESS_CAST_BEGIN
static const yytype_int8 yyr2[]
YYR2[RULE-NUM] – Number of symbols on the right-hand side of rule RULE-NUM.
static const yytype_int16 yytable[]
YYTABLE[YYPACT[STATE-NUM]] – What to do in state STATE-NUM.
#define yytable_value_is_error(Yyn)
#define YYTRANSLATE(YYX)
YYTRANSLATE(TOKEN-NUM) – Symbol number corresponding to TOKEN-NUM as returned by yylex,...
#define YY_ATTRIBUTE_UNUSED
type CurrentType
to count control specifications in IO statements
static const yytype_uint8 yystos[]
YYSTOS[STATE-NUM] – The symbol kind of the accessing symbol of state STATE-NUM.
enum yytokentype yytoken_kind_t
int yy_state_fast_t
State numbers in computations.
#define TK_DOUBLEPRECISION
unsigned short yytype_uint16
#define YYEMPTY
Token kinds.
static expression MakeDataValueSet(expression n, expression c)
number of bytes to store a value of that type
#define YYLAST
YYLAST – Last index in YYTABLE.
#define YYSTACK_RELOCATE(Stack_alloc, Stack)
Relocate STACK from its old location to the new one.
#define yypact_value_is_default(Yyn)
#define YYINITDEPTH
!YYDEBUG
signed char yytype_int8
On compilers that do not define PTRDIFF_MAX etc., make sure <limits.h> and (if available) <stdint....
static const yytype_int16 yycheck[]
#define YYSTACK_ALLOC
The parser invokes alloca or malloc; define the necessary symbols.
#define YYDPRINTF(Args)
Enable debugging if requested.
#define YY_USE(E)
Suppress unused-variable warnings by "using" E.
syntax MakeAtom(entity e, cons *indices, expression fc, expression lc, int HasParenthesis)
MakeAtom: this function creates a syntax, ie.
entity make_Fortran_constant_entity(string name, tag bt, size_t size)
expression MakeImpliedDo(syntax v, range r, cons *l)
expressions from input output lists might contain implied do loops.
cons * MakeIoList(cons *l)
This function takes a list of io elements (i, j, t(i,j)), and returns the same list,...
syntax CheckLeftHandSide(syntax s)
If a left hand side is a call, it should be a substring operator or a macro.
list FortranExpressionList(list l)
Make sure that no call to implied do is in l.
entity MakeParameter(entity e, expression x)
lint
expression MakeFortranUnaryCall(entity op, expression e1)
expression MakeFortranBinaryCall(entity op, expression e1, expression e2)
char FormatValue[FORMATLENGTH]
a string that will contain the value of the format in case of format statement
bool ParserError(const char *f, const char *m)
const char * CurrentPackage
the name of the current package, i.e.
void set_current_number_of_alternate_returns()
void set_alternate_returns()
void uses_alternate_return(bool use)
void add_alternate_return(string label_name)
void reset_alternate_returns()
instruction MakeReturn(expression e)
int get_current_number_of_alternate_returns()
void check_first_statement()
This function is called each time an executable statement is encountered but is effective the first t...
void set_first_format_statement()
void check_in_declarations()
instruction MakeZeroOrOneArgCallInst(char *s, expression e)
this function creates a simple Fortran statement such as RETURN, CONTINUE, ...
instruction MakeArithmIfInst(expression e, string l1, string l2, string l3)
this function transforms an arithmetic if statement into a set of regular tests.
instruction MakeCallInst(entity e, cons *l)
this function creates a call statement.
expression fix_if_condition(expression e)
void MakeDoInst(syntax s, range r, string l)
this function creates a do loop statement.
instruction MakeComputedGotoInst(list ll, expression e)
instruction MakeGotoInst(string n)
this function creates a goto instruction.
instruction MakeIoInstB(int keyword, expression e1, expression e2, expression e3, expression e4)
this function creates a BUFFER IN or BUFFER OUT io statement.
bool first_executable_statement_seen()
instruction MakeSimpleIoInst2(int keyword, expression f, list io_list)
void MakeBlockIfInst(expression e, int elsif)
this function and the two next ones create a block if statement.
instruction MakeAssignedGotoInst(list ll, entity i)
void LinkInstToCurrentBlock(instruction i, bool number_it)
this function links the instruction i to the current block of statements.
instruction MakeLogicalIfInst(expression e, instruction i)
this function creates a logical if statement.
void MakeWhileDoInst(expression c, string l)
This function creates a while do loop statement.
instruction MakeIoInstA(int keyword, list lci, list lio)
this function creates an IO statement.
void reset_first_statement()
instruction MakeAssignInst(syntax l, expression e)
this function creates an affectation statement.
instruction MakeSimpleIoInst1(int keyword, expression unit)
int MakeElseInst(bool is_else_p)
This function is used to handle either an ELSE or an ELSEIF construct.
INFRINGES ON USER NAME SPACE.