fortran.c

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

     0,   276,   281,    93,     0,   276,    97,   262,    95,    93,
     0,    26,     0,   278,   281,    93,     0,   278,    97,   262,
    95,    93,     0,    47,     0,    45,    55,     0,   280,   281,
    93,     0,   280,    97,   262,    95,    93,     0,    81,     0,
   300,     0,    99,     0,   308,     0,    99,     0,     0,    56,
   284,    93,     0,   325,    97,   286,    95,     0,     0,   287,
     0,   288,     0,   287,    98,   288,     0,   324,     0,     0,
   293,   290,    93,     0,     0,   293,    97,    95,   291,    93,
     0,     0,   293,    97,   294,    95,   292,    93,     0,    30,
   327,     0,   300,     0,    99,   330,   331,     0,   294,    98,
   300,     0,   294,    98,    99,   330,   331,     0,    80,    93,
     0,    80,   312,    93,     0,   297,    97,   298,    95,     0,
   325,     0,     0,   299,     0,   300,     0,   299,    98,   300,
     0,   301,     0,   300,    19,   301,     0,   300,    20,   301,
     0,   302,     0,   301,    18,   302,     0,   303,     0,   302,
    17,   303,     0,   304,     0,    21,   304,     0,   305,     0,
   304,    16,   304,     0,   306,     0,   101,   306,     0,   104,
   306,     0,   305,   104,   306,     0,   305,   101,   306,     0,
   307,     0,   306,    96,   307,     0,   306,    99,   307,     0,
   308,     0,   308,    22,   307,     0,   309,     0,   309,   103,
   308,     0,   308,    23,   309,     0,   324,     0,   317,     0,
   296,     0,   320,     0,   310,     0,    97,   300,    95,     0,
   311,     0,    12,     0,    13,     0,    11,     0,     6,     0,
     7,     0,     8,     0,     9,     0,    10,     0,   305,     0,
   305,     0,   305,     0,   305,     0,   326,    97,   318,    95,
     0,   326,    97,   318,    95,     0,   319,     0,   318,    98,
   319,     0,   300,     0,   297,   322,     0,   317,   322,     0,
   325,   322,     0,   316,   322,     0,    97,   100,    95,     0,
    97,   323,   100,    95,     0,    97,   100,   323,    95,     0,
    97,   323,   100,   323,    95,     0,   305,     0,   325,     0,
   326,     0,     3,     0,     4,     0,     3,     0,     4,     0,
   311,     0,   101,   311,     0,   104,   311,     0,    11,     0,
    12,     0,    13,     0,     6,     0,     0,     6,     0
};

#endif

#if YYDEBUG != 0
static const short yyrline[] = { 0,
   274,   275,   278,   279,   283,   305,   306,   314,   315,   318,
   324,   327,   332,   336,   349,   355,   369,   373,   377,   381,
   387,   388,   391,   394,   407,   413,   422,   426,   432,   438,
   439,   442,   443,   444,   445,   446,   447,   448,   449,   450,
   453,   469,   475,   476,   479,   484,   486,   489,   490,   491,
   492,   493,   496,   497,   498,   499,   500,   501,   502,   503,
   504,   505,   506,   507,   508,   509,   510,   511,   512,   515,
   517,   520,   522,   523,   524,   527,   528,   529,   533,   534,
   547,   552,   566,   574,   587,   594,   608,   614,   620,   624,
   625,   634,   642,   656,   662,   666,   669,   673,   679,   684,
   694,   708,   718,   722,   729,   732,   733,   737,   743,   749,
   756,   764,   774,   778,   785,   786,   789,   790,   793,   797,
   804,   808,   812,   818,   822,   823,   827,   837,   838,   849,
   865,   871,   875,   883,   900,   913,   918,   922,   928,   933,
   942,   947,   954,   959,   972,   975,   976,   982,   989,   995,
   999,  1008,  1014,  1023,  1027,  1028,  1029,  1030,  1033,  1038,
  1055,  1058,  1063,  1068,  1073,  1080,  1085,  1090,  1095,  1100,
  1105,  1113,  1121,  1127,  1128,  1131,  1136,  1143,  1144,  1147,
  1152,  1157,  1162,  1169,  1176,  1177,  1180,  1185,  1188,  1198,
  1209,  1210,  1212,  1216,  1217,  1220,  1221,  1224,  1230,  1241,
  1243,  1245,  1257,  1260,  1261,  1264,  1265,  1275,  1278,  1282,
  1289,  1292,  1296,  1303,  1307,  1310,  1311,  1314,  1318,  1325,
  1328,  1329,  1330,  1333,  1336,  1337,  1340,  1341,  1344,  1348,
  1351,  1352,  1355,  1356,  1359,  1360,  1366,  1367,  1374,  1375,
  1378,  1382,  1385,  1392,  1393,  1398,  1400,  1407,  1415,  1416,
  1420,  1421,  1422,  1428,  1436,  1440,  1441,  1445,  1449,  1453,
  1459,  1463,  1469,  1470,  1474,  1479,  1483,  1486,  1486,  1499,
  1500,  1500,  1509,  1513,  1517,  1518,  1529,  1553,  1554,  1562,
  1563,  1573,  1574,  1575,  1582,  1586,  1592,  1593,  1597,  1601,
  1605,  1608,  1609,  1610,  1614,  1618,  1620,  1620,  1622,  1624,
  1625,  1633,  1634,  1635,  1636,  1637,  1639,  1642,  1643,  1647,
  1648,  1650,  1651,  1653,  1654,  1656,  1657,  1660,  1664,  1673,
  1677,  1703,  1711,  1716,  1722,  1726,  1733,  1734,  1737,  1747,
  1751,  1758,  1759,  1763,  1764,  1768,  1769,  1773,  1774,  1776,
  1780,  1781,  1783,  1784,  1788,  1789,  1791,  1799,  1800,  1804,
  1810,  1814,  1815,  1820,  1834,  1838,  1841,  1845,  1852,  1856,
  1862,  1862,  1868,  1868,  1877,  1879,  1904,  1912,  1916,  1924,
  1931,  1935,  1942,  1979,  1990,  1995,  1998,  2006,  2018,  2020,
  2025,  2032,  2034,  2041,  2043,  2050,  2052,  2058,  2060,  2068,
  2070,  2074,  2078,  2083,  2090,  2092,  2102,  2109,  2111,  2118,
  2120,  2125,  2132,  2134,  2136,  2138,  2140,  2148,  2163,  2168,
  2173,  2182,  2189,  2193,  2197,  2201,  2205,  2212,  2221,  2232,
  2246,  2269,  2281,  2293,  2297,  2303,  2317,  2325,  2331,  2335,
  2341,  2347,  2352,  2357,  2364,  2382,  2383,  2386,  2412,  2435,
  2450,  2468,  2469,  2470,  2471,  2472,  2473,  2479,  2495,  2502
};
#endif


#if YYDEBUG != 0 || defined (YYERROR_VERBOSE)

static const char * const yytname[] = {   "$","error","$undefined.","tok_identifier",
"tok_array_identifier","tok_label","tok_integer_const","tok_real_const","tok_dp_const",
"tok_complex_const","tok_dcomplex_const","tok_logical_const","tok_string","tok_hollerith",
"tok_edit_descriptor","tok_letter","tok_relop","tok_AND","tok_OR","tok_EQV",
"tok_NEQV","tok_NOT","tok_power","tok_concat","tok_ACCEPT","tok_ASSIGN","tok_BACKSPACE",
"tok_BLOCK","tok_BLOCKDATA","tok_BYTE","tok_CALL","tok_CHARACTER","tok_CLOSE",
"tok_COMMON","tok_COMPLEX","tok_CONTINUE","tok_DATA","tok_DIMENSION","tok_DO",
"tok_DOUBLE","tok_DOUBLECOMPLEX","tok_DOUBLEPRECISION","tok_DOWHILE","tok_ELSE",
"tok_ELSEIF","tok_END","tok_ENDDO","tok_ENDFILE","tok_ENDIF","tok_ENDMAP","tok_ENDSTRUCTURE",
"tok_ENDUNION","tok_ENTRY","tok_EQUIVALENCE","tok_EXTERNAL","tok_FILE","tok_FORMAT",
"tok_FUNCTION","tok_GO","tok_GOTO","tok_IF","tok_IMPLICIT","tok_INCLUDE","tok_INQUIRE",
"tok_INTEGER","tok_INTRINSIC","tok_LOGICAL","tok_MAP","tok_NAMELIST","tok_NONE",
"tok_OPEN","tok_PARAMETER","tok_PAUSE","tok_POINTER","tok_PRECISION","tok_PRINT",
"tok_PROGRAM","tok_READ","tok_REAL","tok_RECORD","tok_RETURN","tok_REWIND","tok_SAVE",
"tok_STOP","tok_STRUCTURE","tok_SUBROUTINE","tok_UNION","tok_THEN","tok_TO",
"tok_TYPE","tok_WHILE","tok_WRITE","tok_illegal","EOS","REDUCE","')'","'/'",
"'('","','","'*'","':'","'-'","'='","'.'","'+'","prog_body","stmt_list","stmt_list_item",
"ordinary_stmt","stmt","unlabeled_stmt","subprogram_header","end_stmt","unlabeled_end_stmt",
"include_stmt","specification_stmt","anywhere_stmt","specif_stmt","struct_stmt",
"@1","struct_list","struct_item","executable_stmt","transfer_stmt","nontransfer_stmt",
"restricted_stmt","restricted_nontransfer_stmt","else_or_endif_stmt","prog_stmt",
"@2","entry_stmt","function_stmt","typed_function_handle","plain_function_handle",
"type_name","subroutine_stmt","subroutine_handle","dummy_argument_list","non_empty_arg_list",
"dummy_argument","block_data_stmt","block_data_handle","dimension_stmt","array_declarator_list",
"array_declarator","dim_bound_list","dim_bound_item","equivalence_stmt","@3",
"equivalence_list","equivalence_list_item","equiv_entity","array_equiv_name",
"substring_equiv_name","common_stmt","blank_common_block","@4","common_block_list",
"labeled_common_block","@5","common_block_name","common_variable_list","common_list_item",
"common_entity","namelist_stmt","namelist_list","namelist_decl","namelist_name",
"namelist_var_list","namelist_item","type_stmt","arith_type_name","sizeable_type_name",
"unsizeable_type_name","plain_char_type_name","char_type_name","arith_type_decl_list",
"arith_type_decl_item","char_type_decl_list","char_type_decl_item","pointer_type_name",
"pointer_type_decl_list","pointer_type_decl_item","implicit_handle","implicit_stmt",
"implicit_decl_list","@6","implicit_decl_item","@7","letter_list","letter_list_item",
"len_specification","parameter_stmt","parameter_defn_list","parameter_defn_item",
"@8","external_stmt","external_name_list","intrinsic_stmt","intrinsic_name_list",
"save_stmt","save_list","save_item","data_stmt","data_defn_list","data_defn_item",
"@9","@10","data_defn_assignee_list","data_defn_assignee","data_value_list",
"data_value","data_repeat_factor","data_constant_value","data_dlist","data_dlist_item",
"data_implied_do_list","data_do_loop_bounds","assignment_stmt","@11","@12","lvalue",
"assign_stmt","unconditional_goto","computed_goto","assigned_goto","goto","goto_list",
"arithmetic_if_stmt","logical_if_stmt","block_if_stmt","if_handle","@13","else_if_stmt",
"@14","@15","else_stmt","end_if_stmt","do_stmt","@16","@17","do_handle","do_loop_bounds",
"enddo_stmt","continue_stmt","stop_stmt","pause_stmt","stop_info","write_stmt",
"@18","@19","write_handle","@20","read_stmt","read_handle","accept_stmt","print_stmt",
"@21","@22","type_output_stmt","@23","@24","control_info_list","control_info_item",
"open_info_list","open_info_item","io_list","io_item","io_implied_do_list","open_stmt",
"@25","close_stmt","@26","inquire_stmt","@27","backspace_stmt","backspace_handle",
"endfile_stmt","endfile_handle","rewind_stmt","rewind_handle","unit_id","format_id",
"format_stmt","@28","stmt_function_handle","stmt_function_dummy_list","nonempty_stmt_fun_dummy_list",
"stmt_function_dummy_arg","call_stmt","@29","@30","@31","call_handle","expr_list",
"return_stmt","function_reference","fun_or_substr_handle","fun_arg_list","nonempty_fun_arg_list",
"expr","log_disjunct","log_term","log_factor","log_primary","arith_expr","term",
"factor","char_expr","primary","literal_const","numeric_const","integer_expr",
"int_real_dp_expr","int_constant_expr","dim_bound_expr","array_element_lvalue",
"array_element_name","subscript_list","subscript","substring_name","substring_lvalue",
"substring_interval","substr_index_expr","variable_name","scalar_name","array_name",
"symbolic_name","data_constant","nonzero_unsigned_int_const","pre_label","label", NULL
};
#endif

static const short yyr1[] = {     0,
   105,   105,   106,   106,   107,   107,   107,   108,   108,   109,
   109,   110,   110,   110,   110,   110,   111,   111,   111,   111,
   112,   112,   113,   114,   115,   115,   115,   115,   115,   116,
   116,   117,   117,   117,   117,   117,   117,   117,   117,   117,
   119,   118,   120,   120,   121,   122,   122,   123,   123,   123,
   123,   123,   124,   124,   124,   124,   124,   124,   124,   124,
   124,   124,   124,   124,   124,   124,   124,   124,   124,   125,
   125,   126,   126,   126,   126,   127,   127,   127,   129,   128,
   130,   130,   131,   131,   131,   131,   132,   133,   134,   134,
   134,   135,   135,   136,   137,   137,   138,   138,   139,   139,
   140,   140,   141,   141,   142,   143,   143,   144,   145,   145,
   146,   146,   146,   146,   148,   147,   149,   149,   150,   150,
   151,   151,   151,   152,   153,   153,   154,   154,   154,   156,
   155,   157,   157,   159,   158,   160,   160,   160,   161,   161,
   162,   162,   163,   163,   164,   165,   165,   166,   167,   168,
   168,   169,   169,   170,   170,   170,   170,   170,   171,   171,
   171,   172,   172,   172,   172,   173,   173,   173,   173,   173,
   173,   174,   175,   176,   176,   177,   177,   178,   178,   179,
   179,   179,   179,   180,   181,   181,   182,   183,   184,   184,
   185,   186,   185,   188,   187,   189,   189,   190,   190,   191,
   191,   191,   192,   193,   193,   195,   194,   196,   197,   197,
   198,   199,   199,   200,   200,   201,   201,   202,   202,   203,
   204,   204,   204,   206,   207,   205,   208,   208,   209,   209,
   210,   210,   211,   211,   212,   212,   213,   213,   214,   214,
   215,   215,   216,   217,   217,   219,   220,   218,   221,   221,
   221,   221,   221,   222,   223,   224,   224,   225,   225,   225,
   226,   226,   227,   227,   228,   229,   230,   232,   231,   233,
   234,   235,   233,   236,   237,   237,   238,   239,   238,   240,
   238,   241,   241,   241,   242,   242,   243,   243,   244,   245,
   246,   247,   247,   247,   247,   249,   248,   250,   248,   252,
   251,   253,   253,   253,   253,   253,   254,   255,   255,   256,
   257,   258,   256,   259,   260,   261,   259,   262,   262,   263,
   263,   264,   264,   264,   265,   265,   266,   266,   267,   267,
   268,   270,   269,   272,   271,   274,   273,   275,   275,   276,
   277,   277,   278,   278,   279,   279,   280,   281,   281,   282,
   282,   284,   283,   285,   286,   286,   287,   287,   288,   290,
   289,   291,   289,   292,   289,   293,   294,   294,   294,   294,
   295,   295,   296,   297,   298,   298,   299,   299,   300,   300,
   300,   301,   301,   302,   302,   303,   303,   304,   304,   305,
   305,   305,   305,   305,   306,   306,   306,   307,   307,   308,
   308,   308,   309,   309,   309,   309,   309,   309,   310,   310,
   310,   310,   311,   311,   311,   311,   311,   312,   313,   314,
   315,   316,   317,   318,   318,   319,   320,   320,   321,   321,
   322,   322,   322,   322,   323,   324,   324,   325,   326,   327,
   327,   328,   328,   328,   328,   328,   328,   329,   330,   331
};

static const short yyr2[] = {     0,
     1,     0,     1,     2,     1,     1,     1,     1,     1,     2,
     1,     1,     1,     1,     1,     2,     1,     1,     1,     1,
     1,     2,     2,     3,     1,     1,     1,     1,     1,     1,
     1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
     0,     9,     1,     2,     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,     0,     4,
     3,     6,     3,     6,     3,     6,     2,     1,     1,     1,
     1,     3,     6,     1,     0,     1,     1,     3,     1,     1,
     2,     3,     2,     1,     3,     1,     3,     4,     1,     3,
     1,     3,     1,     3,     0,     4,     3,     5,     3,     3,
     1,     1,     1,     4,     2,     2,     3,     3,     4,     0,
     2,     1,     2,     0,     3,     3,     2,     1,     1,     2,
     1,     2,     1,     1,     3,     1,     2,     2,     3,     1,
     2,     1,     2,     3,     3,     3,     4,     3,     1,     3,
     1,     1,     1,     1,     1,     2,     1,     2,     1,     1,
     4,     1,     3,     1,     3,     1,     1,     1,     3,     1,
     3,     1,     3,     1,     1,     3,     5,     1,     3,     3,
     1,     0,     4,     0,     5,     1,     3,     1,     3,     3,
     1,     3,     5,     1,     3,     0,     4,     3,     1,     3,
     3,     1,     3,     2,     3,     1,     3,     1,     3,     3,
     1,     2,     3,     0,     0,     6,     1,     3,     1,     1,
     1,     3,     1,     3,     1,     1,     1,     1,     1,     3,
     1,     1,     7,     3,     5,     0,     0,     6,     1,     3,