fortran.c

linux 下的源代码分析阅读器 red hat公司新版

  3. common variable lists
       token.subclass = flag: COMMA_FLAG used to handle extra/missing commas
*/

enum {
	SEQ_HEADER = 1,
	SEQ_IMPLICIT,
	SEQ_SPECIF,
	SEQ_STMT_FUN,
	SEQ_EXEC,
	SEQ_END
};

#ifndef YYSTYPE
#define YYSTYPE int
#endif
#include <stdio.h>

#ifndef __cplusplus
#ifndef __STDC__
#define const
#endif
#endif



#define	YYFINAL		802
#define	YYFLAG		-32768
#define	YYNTBASE	105

#define YYTRANSLATE(x) ((unsigned)(x) <= 347 ? yytranslate[x] : 332)

static const char yytranslate[] = {     0,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,    97,
    95,    99,   104,    98,   101,   103,    96,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,   100,     2,     2,
   102,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,    93,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     1,     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,    94
};

#if YYDEBUG != 0
static const short yyprhs[] = {     0,
     0,     2,     3,     5,     8,    10,    12,    14,    16,    18,
    21,    23,    25,    27,    29,    31,    34,    36,    38,    40,
    42,    44,    47,    50,    54,    56,    58,    60,    62,    64,
    66,    68,    70,    72,    74,    76,    78,    80,    82,    84,
    86,    87,    97,    99,   102,   104,   106,   108,   110,   112,
   114,   116,   118,   120,   122,   124,   126,   128,   130,   132,
   134,   136,   138,   140,   142,   144,   146,   148,   150,   152,
   154,   156,   158,   160,   162,   164,   166,   168,   170,   171,
   176,   180,   187,   191,   198,   202,   209,   212,   214,   216,
   218,   220,   224,   231,   233,   234,   236,   238,   242,   244,
   246,   249,   253,   256,   258,   262,   264,   268,   273,   275,
   279,   281,   285,   287,   291,   292,   297,   301,   307,   311,
   315,   317,   319,   321,   326,   329,   332,   336,   340,   345,
   346,   349,   351,   354,   355,   359,   363,   366,   368,   370,
   373,   375,   378,   380,   382,   386,   388,   391,   394,   398,
   400,   403,   405,   408,   412,   416,   420,   425,   429,   431,
   435,   437,   439,   441,   443,   445,   448,   450,   453,   455,
   457,   462,   464,   468,   470,   474,   476,   478,   480,   484,
   486,   490,   492,   496,   498,   500,   504,   510,   512,   516,
   520,   522,   523,   528,   529,   535,   537,   541,   543,   547,
   551,   553,   557,   563,   565,   569,   570,   575,   579,   581,
   585,   589,   591,   595,   598,   602,   604,   608,   610,   614,
   618,   620,   623,   627,   628,   629,   636,   638,   642,   644,
   646,   648,   652,   654,   658,   660,   662,   664,   666,   668,
   672,   674,   676,   684,   688,   694,   695,   696,   703,   705,
   709,   711,   713,   715,   722,   727,   734,   742,   746,   753,
   761,   763,   766,   769,   774,   785,   788,   792,   793,   799,
   802,   803,   804,   813,   816,   819,   823,   829,   830,   838,
   839,   846,   850,   855,   858,   862,   868,   872,   875,   878,
   882,   886,   887,   889,   891,   893,   894,   898,   899,   904,
   905,   911,   917,   924,   932,   936,   942,   944,   948,   954,
   958,   959,   960,   968,   972,   973,   974,   982,   984,   988,
   992,   994,   996,  1000,  1004,  1008,  1010,  1012,  1016,  1018,
  1020,  1028,  1029,  1036,  1037,  1044,  1045,  1052,  1056,  1062,
  1064,  1068,  1074,  1076,  1079,  1083,  1089,  1091,  1093,  1095,
  1097,  1099,  1100,  1104,  1109,  1110,  1112,  1114,  1118,  1120,
  1121,  1125,  1126,  1132,  1133,  1140,  1143,  1145,  1149,  1153,
  1159,  1162,  1166,  1171,  1173,  1174,  1176,  1178,  1182,  1184,
  1188,  1192,  1194,  1198,  1200,  1204,  1206,  1209,  1211,  1215,
  1217,  1220,  1223,  1227,  1231,  1233,  1237,  1241,  1243,  1247,
  1249,  1253,  1257,  1259,  1261,  1263,  1265,  1267,  1271,  1273,
  1275,  1277,  1279,  1281,  1283,  1285,  1287,  1289,  1291,  1293,
  1295,  1297,  1302,  1307,  1309,  1313,  1315,  1318,  1321,  1324,
  1327,  1331,  1336,  1341,  1347,  1349,  1351,  1353,  1355,  1357,
  1359,  1361,  1363,  1366,  1369,  1371,  1373,  1375,  1377,  1378
};

static const short yyrhs[] = {   106,
     0,     0,   107,     0,   106,   107,     0,   108,     0,   114,
     0,    93,     0,   109,     0,   112,     0,     5,   110,     0,
   110,     0,   111,     0,   115,     0,   122,     0,   125,     0,
     1,    93,     0,   128,     0,   131,     0,   135,     0,   140,
     0,   113,     0,     5,   113,     0,    45,    93,     0,    62,
    12,    93,     0,   116,     0,   192,     0,   184,     0,   203,
     0,   117,     0,   130,     0,   283,     0,   142,     0,   147,
     0,   154,     0,   164,     0,   170,     0,   196,     0,   198,
     0,   200,     0,   118,     0,     0,    84,    96,   327,    96,
    93,   119,   120,    50,    93,     0,   121,     0,   120,   121,
     0,   170,     0,   123,     0,   124,     0,   223,     0,   225,
     0,   228,     0,   245,     0,   295,     0,   218,     0,   222,
     0,   224,     0,   244,     0,   246,     0,   253,     0,   255,
     0,   248,     0,   256,     0,   259,     0,   279,     0,   275,
     0,   277,     0,   269,     0,   271,     0,   273,     0,   289,
     0,   126,     0,   127,     0,   229,     0,   230,     0,   238,
     0,   243,     0,   233,     0,   236,     0,   237,     0,     0,
    76,   129,   327,    93,     0,    52,   327,    93,     0,    52,
   327,    97,   137,    95,    93,     0,   132,   327,    93,     0,
   132,   327,    97,   137,    95,    93,     0,   133,   327,    93,
     0,   133,   327,    97,   137,    95,    93,     0,   134,    57,
     0,    57,     0,   171,     0,   174,     0,   175,     0,   136,
   327,    93,     0,   136,   327,    97,   137,    95,    93,     0,
    85,     0,     0,   138,     0,   139,     0,   138,    98,   139,
     0,   327,     0,    99,     0,   141,    93,     0,   141,   327,
    93,     0,    27,    36,     0,    28,     0,    37,   143,    93,
     0,   144,     0,   143,    98,   144,     0,   327,    97,   145,
    95,     0,   146,     0,   145,    98,   146,     0,   315,     0,
   315,   100,   315,     0,    99,     0,   315,   100,    99,     0,
     0,    53,   148,   149,    93,     0,    97,   150,    95,     0,
   149,    98,    97,   150,    95,     0,   151,    98,   151,     0,
   150,    98,   151,     0,   327,     0,   152,     0,   153,     0,
   327,    97,   318,    95,     0,   327,   322,     0,   152,   322,
     0,    33,   155,    93,     0,    33,   157,    93,     0,    33,
   155,   157,    93,     0,     0,   156,   161,     0,   158,     0,
   157,   158,     0,     0,   160,   159,   161,     0,    96,   327,
    96,     0,    96,    96,     0,    23,     0,   162,     0,   161,
   162,     0,   163,     0,   163,    98,     0,   327,     0,   144,
     0,    68,   165,    93,     0,   166,     0,   165,   166,     0,
   167,   168,     0,    96,   327,    96,     0,   169,     0,   168,
   169,     0,   327,     0,   327,    98,     0,   171,   176,    93,
     0,   174,   178,    93,     0,   175,   178,    93,     0,   175,
    98,   178,    93,     0,   180,   181,    93,     0,   172,     0,
   172,    99,   329,     0,   173,     0,    64,     0,    78,     0,
    34,     0,    66,     0,    39,    74,     0,    41,     0,    39,
    34,     0,    40,     0,    29,     0,    79,    96,   327,    96,
     0,    31,     0,   174,    99,   191,     0,   177,     0,   176,
    98,   177,     0,   327,     0,   144,     0,   179,     0,   178,
    98,   179,     0,   327,     0,   327,    99,   191,     0,   144,
     0,   144,    99,   191,     0,    73,     0,   182,     0,   181,
    98,   182,     0,    97,   327,    98,   327,    95,     0,    61,
     0,   183,   185,    93,     0,   183,    69,    93,     0,   187,
     0,     0,   185,    98,   186,   187,     0,     0,   134,    97,
   188,   189,    95,     0,   190,     0,   189,    98,   190,     0,
    15,     0,    15,   101,    15,     0,    97,    99,    95,     0,
   329,     0,    97,   314,    95,     0,    71,    97,   193,    95,
    93,     0,   194,     0,   193,    98,   194,     0,     0,   327,
   195,   102,   300,     0,    54,   197,    93,     0,   327,     0,
   197,    98,   327,     0,    65,   199,    93,     0,   327,     0,
   199,    98,   327,     0,    82,    93,     0,    82,   201,    93,
     0,   202,     0,   201,    98,   202,     0,   327,     0,    96,
   327,    96,     0,    36,   204,    93,     0,   205,     0,   204,
   205,     0,   204,    98,   205,     0,     0,     0,   208,    96,
   206,   210,   207,    96,     0,   209,     0,   208,    98,   209,
     0,   221,     0,   216,     0,   211,     0,   210,    98,   211,
     0,   213,     0,   212,    99,   213,     0,   329,     0,   327,
     0,   328,     0,   327,     0,   215,     0,   214,    98,   215,
     0,   316,     0,   216,     0,    97,   214,    98,   327,   102,
   217,    95,     0,   314,    98,   314,     0,   314,    98,   314,
    98,   314,     0,     0,     0,   221,   102,   219,   300,   220,
    93,     0,   324,     0,   221,   103,   221,     0,   316,     0,
   321,     0,   285,     0,    25,   330,   331,    88,   324,    93,
     0,   226,   330,   331,    93,     0,   226,    97,   227,    95,
   312,    93,     0,   226,    97,   227,    95,    98,   312,    93,
     0,   226,   327,    93,     0,   226,   327,    97,   227,    95,
    93,     0,   226,   327,    98,    97,   227,    95,    93,     0,
    59,     0,    58,    88,     0,   330,   331,     0,   227,    98,
   330,   331,     0,   231,   330,   331,    98,   330,   331,    98,
   330,   331,    93,     0,   231,   122,     0,   231,    87,    93,
     0,     0,    60,    97,   232,   300,    95,     0,    43,   230,
     0,     0,     0,    44,    97,   234,   300,    95,   235,    87,
    93,     0,    43,    93,     0,    48,    93,     0,    45,    60,
    93,     0,   241,   324,   102,   242,    93,     0,     0,   241,
    90,    97,   239,   300,    95,    93,     0,     0,    42,    97,
   240,   300,    95,    93,     0,    38,   330,   331,     0,    38,
   330,   331,    98,     0,    38,   330,     0,   313,    98,   313,
     0,   313,    98,   313,    98,   313,     0,    45,    38,    93,
     0,    46,    93,     0,    35,    93,     0,    83,   247,    93,
     0,    72,   247,    93,     0,     0,     6,     0,   327,     0,
    12,     0,     0,   251,   249,    93,     0,     0,   251,   266,
   250,    93,     0,     0,    91,   252,    97,   262,    95,     0,
   254,    97,   262,    95,    93,     0,   254,    97,   262,    95,
   266,    93,     0,   254,    97,   262,    95,    98,   266,    93,
     0,   254,   282,    93,     0,   254,   282,    98,   266,    93,
     0,    77,     0,    24,   282,    93,     0,    24,   282,    98,
   266,    93,     0,    75,   282,    93,     0,     0,     0,    75,
   282,    98,   257,   266,   258,    93,     0,    89,   282,    93,
     0,     0,     0,    89,   282,    98,   260,   266,   261,    93,
     0,   263,     0,   262,    98,   263,     0,   327,   102,   281,
     0,   281,     0,   281,     0,   327,   102,   281,     0,   264,
    98,   265,     0,   327,   102,   281,     0,   327,     0,   267,
     0,   266,    98,   267,     0,   300,     0,   268,     0,    97,
   266,    98,   324,   102,   242,    95,     0,     0,    70,   270,
    97,   264,    95,    93,     0,     0,    32,   272,    97,   262,
    95,    93,     0,     0,    63,   274,    97,   262,    95,    93,