Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
00001 /* 00002 00003 Copyright (C) 2000, 2001 Silicon Graphics, Inc. All Rights Reserved. 00004 00005 This program is free software; you can redistribute it and/or modify it 00006 under the terms of version 2 of the GNU General Public License as 00007 published by the Free Software Foundation. 00008 00009 This program is distributed in the hope that it would be useful, but 00010 WITHOUT ANY WARRANTY; without even the implied warranty of 00011 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 00012 00013 Further, this software is distributed without any warranty that it is 00014 free of the rightful claim of any third person regarding infringement 00015 or the like. Any license provided herein, whether implied or 00016 otherwise, applies only to this software file. Patent licenses, if 00017 any, provided herein do not apply to combinations of this program with 00018 other software, or any other product whatsoever. 00019 00020 You should have received a copy of the GNU General Public License along 00021 with this program; if not, write the Free Software Foundation, Inc., 59 00022 Temple Place - Suite 330, Boston MA 02111-1307, USA. 00023 00024 Contact information: Silicon Graphics, Inc., 1600 Amphitheatre Pky, 00025 Mountain View, CA 94043, or: 00026 00027 http://www.sgi.com 00028 00029 For further information regarding this notice, see: 00030 00031 http://oss.sgi.com/projects/GenInfo/NoticeExplan 00032 00033 */ 00034 00035 00036 00037 /* USMID: "\n@(#)5.0_pl/headers/p_driver.h 5.1 04/29/99 21:22:31\n" */ 00038 00039 static int blk_err_msgs[] = { 00040 160, /* Unknown_Blk */ 00041 15, /* Blockdata_Blk */ 00042 19, /* Module_Blk */ 00043 16, /* Program_Blk */ 00044 261, /* Function_Blk */ 00045 272, /* Subroutine_Blk */ 00046 164, /* Internal_Blk */ 00047 165, /* Module_Proc_Blk */ 00048 271, /* Interface_Body_Blk */ 00049 268, /* Do_Blk */ 00050 1597, /* Forall_Blk */ 00051 160, /* If_Blk */ 00052 267, /* If_Then_Blk */ 00053 162, /* If_Else_If_Blk */ 00054 163, /* If_Else_Blk */ 00055 269, /* Select_Blk */ 00056 183, /* Case_Blk */ 00057 270, /* Where_Then_Blk */ 00058 270, /* Where_Else_Blk */ 00059 270, /* Where_Else_Mask_Blk*/ 00060 1588, /* Parallel_Blk */ 00061 1588, /* Doall_Blk */ 00062 1588, /* Do_Parallel_Blk */ 00063 1588, /* Guard_Blk */ 00064 1588, /* Parallel_Case_Blk */ 00065 1588, /* Wait_Blk */ 00066 1588, /* SGI_Doacross_Blk */ 00067 1588, /* SGI_Psection_Blk */ 00068 1588, /* SGI_Section_Blk */ 00069 1588, /* SGI_Pdo_Blk */ 00070 1588, /* SGI_Parallel_Do_Blk*/ 00071 1588, /* SGI_Parallel_Blk */ 00072 1588, /* SGI_Critical_Section_Blk */ 00073 1588, /* SGI_Single_Process_Blk */ 00074 1588, /* SGI_Region_Blk */ 00075 1588, /* Open_Mp_Parallel_Blk */ 00076 1588, /* Open_Mp_Do_Blk */ 00077 1588, /* Open_Mp_Parallel_Sections_Blk*/ 00078 1588, /* Open_Mp_Sections_Blk */ 00079 1588, /* Open_Mp_Section_Blk */ 00080 1588, /* Open_Mp_Single_Blk */ 00081 1588, /* Open_Mp_Parallel_Do_Blk */ 00082 1588, /* Open_Mp_Master_Blk */ 00083 1588, /* Open_Mp_Critical_Blk */ 00084 1588, /* Open_Mp_Ordered_Blk */ 00085 1588, /* Open_Mp_Parallel_Workshare_Blk*/ 00086 1588, /* Open_Mp_Workshare_Blk */ 00087 264, /* Contains_Blk */ 00088 26, /* Interface_Blk */ 00089 25 /* Derived_Type_Blk */ 00090 }; 00091 00092 blk_stk_type *blk_stk; 00093 int blk_stk_idx = NULL_IDX; 00094 int blk_stk_inc = 20; 00095 int blk_stk_init_size = 20; 00096 int blk_stk_size = 0; 00097 int blk_stk_limit = (1 << 24) - 1; 00098 int blk_stk_num_wds = NUM_BLK_STK_WDS; 00099 int blk_stk_largest_idx = NULL_IDX; 00100 00101 boolean colon_recovery = FALSE; 00102 stmt_category_type curr_stmt_category; 00103 00104 boolean EOPU_encountered; 00105 00106 /* The following entity is used in IF statement processing. */ 00107 /* Make the following variable static because only one copy is needed */ 00108 /* by parse_if_stmt (even though it is called recursively to process */ 00109 /* a logical IF statement.) */ 00110 00111 int if_stmt_lbl_idx; 00112 00113 boolean label_ok = TRUE; 00114 token_type label_token; 00115 00116 token_type main_token; 00117 intent_type new_intent; 00118 00119 int stmt_construct_idx; 00120 00121 00122 00123 /* These strings are used to put out error messages about something that is */ 00124 /* being added to the symbol table entry. */ 00125 00126 char *obj_str[Obj_Done] = { 00127 "CHARACTER*(*)", "explicit-shape DIMENSION", 00128 "assumed-size DIMENSION", "deferred-shape DIMENSION", 00129 "assumed-shape DIMENSION", "co-array DIMENSION", 00130 "ALLOCATABLE", "PARAMETER", 00131 "INTENT", "OPTIONAL", 00132 "PRIVATE", "PUBLIC", 00133 "TARGET", "EQUIVALENCE", 00134 "SAVE", "AUTOMATIC", 00135 "POINTER", "EXTERNAL", 00136 "INTRINSIC", "DATA initialized", 00137 00138 /* NOTE: type-spec needs to be long, because it is */ 00139 /* replaced by the type (ie: REAL) or each call*/ 00140 00141 "type-spec ", 00142 "VOLATILE", 00143 00144 /* directives */ 00145 00146 "COPY_ASSUMED_SHAPE", "AUXILIARY", 00147 "VFUNCTION", "NO SIDE EFFECTS", 00148 "SYMMETRIC", "INLINE", 00149 "IPA", 00150 "ALIGN_SYMBOL", "FILL_SYMBOL", 00151 "SECTION_GP", "SECTION_NON_GP", 00152 "IGNORE_TYPE_AND_KIND", "OPTIONAL", 00153 "NAME", 00154 00155 "Cray pointer", "Cray pointee", 00156 "Cray character pointee", "result-name", 00157 "dummy-argument", 00158 "common-block-object", "namelist-group-object", 00159 "module-subprogram", "type-name", 00160 "generic-name", "namelist-group-name", 00161 "statement function", "construct-name", 00162 "function entry", "subroutine entry", 00163 "internal function", "internal subroutine", 00164 "module procedure function", 00165 "module procedure subroutine", 00166 "statement function dummy argument", 00167 " ", 00168 " ", 00169 " ", 00170 " ", 00171 " ", 00172 " ", 00173 " ", 00174 " ", 00175 " " 00176 }; 00177 00178 00179 /******************************************************************************/ 00180 /* token_to_stmt_type TABLE */ 00181 /* */ 00182 /* THIS TABLE IS ORDER/ADDITION/DELETION DEPENDENT ON THE token_values */ 00183 /* enumeration defined in tokens.h */ 00184 /* */ 00185 /* NOTE: except for Tok_Id, an entry in this table of Assignment_Stmt implies */ 00186 /* that the token is not a valid beginning-of-stmt keyword */ 00187 /******************************************************************************/ 00188 00189 static stmt_type_type token_to_stmt_type [] = { 00190 Assignment_Stmt, /* Tok_Label */ 00191 Assignment_Stmt, /* Tok_Id */ 00192 Allocatable_Stmt, /* Tok_Kwd_Allocatable */ 00193 Allocate_Stmt, /* Tok_Kwd_Allocate */ 00194 Assign_Stmt, /* Tok_Kwd_Assign */ 00195 Assignment_Stmt, /* Tok_Kwd_Assignment */ 00196 Automatic_Stmt, /* Tok_Kwd_Automatic */ 00197 Backspace_Stmt, /* Tok_Kwd_Backspace */ 00198 Blockdata_Stmt, /* Tok_Kwd_Block */ 00199 Buffer_Stmt, /* Tok_Kwd_Buffer */ 00200 Type_Decl_Stmt, /* Tok_Kwd_Byte */ 00201 Call_Stmt, /* Tok_Kwd_Call */ 00202 Case_Stmt, /* Tok_Kwd_Case */ 00203 Type_Decl_Stmt, /* Tok_Kwd_Character */ 00204 Close_Stmt, /* Tok_Kwd_Close */ 00205 Common_Stmt, /* Tok_Kwd_Common */ 00206 Type_Decl_Stmt, /* Tok_Kwd_Complex */ 00207 Contains_Stmt, /* Tok_Kwd_Contains */ 00208 Continue_Stmt, /* Tok_Kwd_Continue */ 00209 Cycle_Stmt, /* Tok_Kwd_Cycle */ 00210 Data_Stmt, /* Tok_Kwd_Data */ 00211 Deallocate_Stmt, /* Tok_Kwd_Deallocate */ 00212 Decode_Stmt, /* Tok_Kwd_Decode */ 00213 Assignment_Stmt, /* Tok_Kwd_Default */ 00214 Dimension_Stmt, /* Tok_Kwd_Dimension */ 00215 Directive_Stmt, /* Tok_Kwd_Dir */ 00216 Do_Iterative_Stmt, /* Tok_Kwd_Do */ 00217 Type_Decl_Stmt, /* Tok_Kwd_Double */ 00218 Elemental_Stmt, /* Tok_Kwd_Elemental */ 00219 Else_Stmt, /* Tok_Kwd_Else */ 00220 Encode_Stmt, /* Tok_Kwd_Encode */ 00221 End_Stmt, /* Tok_Kwd_End */ 00222 Entry_Stmt, /* Tok_Kwd_Entry */ 00223 Equivalence_Stmt, /* Tok_Kwd_Equivalence */ 00224 Exit_Stmt, /* Tok_Kwd_Exit */ 00225 External_Stmt, /* Tok_Kwd_External */ 00226 Assignment_Stmt, /* Tok_Kwd_File */ 00227 Forall_Cstrct_Stmt, /* Tok_Kwd_Forall */ 00228 Format_Stmt, /* Tok_Kwd_Format */ 00229 Function_Stmt, /* Tok_Kwd_Function */ 00230 Goto_Stmt, /* Tok_Kwd_Go */ 00231 If_Cstrct_Stmt, /* Tok_Kwd_If */ 00232 Implicit_Stmt, /* Tok_Kwd_Implicit */ 00233 Assignment_Stmt, /* Tok_Kwd_In */ 00234 Inquire_Stmt, /* Tok_Kwd_Inquire */ 00235 Type_Decl_Stmt, /* Tok_Kwd_Integer */ 00236 Intent_Stmt, /* Tok_Kwd_Intent */ 00237 Interface_Stmt, /* Tok_Kwd_Interface */ 00238 Intrinsic_Stmt, /* Tok_Kwd_Intrinsic */ 00239 Assignment_Stmt, /* Tok_Kwd_Kind */ 00240 Assignment_Stmt, /* Tok_Kwd_Len */ 00241 Type_Decl_Stmt, /* Tok_Kwd_Logical */ 00242 Module_Stmt, /* Tok_Kwd_Module */ 00243 Namelist_Stmt, /* Tok_Kwd_Namelist */ 00244 Assignment_Stmt, /* Tok_Kwd_None */ 00245 Nullify_Stmt, /* Tok_Kwd_Nullify */ 00246 Assignment_Stmt, /* Tok_Kwd_Only */ 00247 Open_Stmt, /* Tok_Kwd_Open */ 00248 Assignment_Stmt, /* Tok_Kwd_Operator */ 00249 Optional_Stmt, /* Tok_Kwd_Optional */ 00250 Assignment_Stmt, /* Tok_Kwd_Out */ 00251 Parameter_Stmt, /* Tok_Kwd_Parameter */ 00252 Pause_Stmt, /* Tok_Kwd_Pause */ 00253 Pointer_Stmt, /* Tok_Kwd_Pointer */ 00254 Assignment_Stmt, /* Tok_Kwd_Precision */ 00255 Print_Stmt, /* Tok_Kwd_Print */ 00256 Private_Stmt, /* Tok_Kwd_Private */ 00257 Assignment_Stmt, /* Tok_Kwd_Procedure */ 00258 Program_Stmt, /* Tok_Kwd_Program */ 00259 Public_Stmt, /* Tok_Kwd_Public */ 00260 Pure_Stmt, /* Tok_Kwd_Pure */ 00261 Read_Stmt, /* Tok_Kwd_Read */ 00262 Type_Decl_Stmt, /* Tok_Kwd_Real */ 00263 Recursive_Stmt, /* Tok_Kwd_Recursive */ 00264 Assignment_Stmt, /* Tok_Kwd_Result */ 00265 Return_Stmt, /* Tok_Kwd_Return */ 00266 Rewind_Stmt, /* Tok_Kwd_Rewind */ 00267 Save_Stmt, /* Tok_Kwd_Save */ 00268 Select_Stmt, /* Tok_Kwd_Select */ 00269 Sequence_Stmt, /* Tok_Kwd_Sequence */ 00270 Assignment_Stmt, /* Tok_Kwd_Span */ 00271 Assignment_Stmt, /* Tok_Kwd_Stat */ 00272 Assignment_Stmt, /* Tok_Kwd_Static */ 00273 Stop_Stmt, /* Tok_Kwd_Stop */ 00274 Subroutine_Stmt, /* Tok_Kwd_Subroutine */ 00275 Target_Stmt, /* Tok_Kwd_Target */ 00276 Task_Common_Stmt, /* Tok_Kwd_Task */ 00277 Assignment_Stmt, /* Tok_Kwd_Then */ 00278 Assignment_Stmt, /* Tok_Kwd_To */ 00279 Type_Decl_Stmt, /* Tok_Kwd_Type */ 00280 Use_Stmt, /* Tok_Kwd_Use */ 00281 Assignment_Stmt, /* Tok_Kwd_Undefined */ 00282 Volatile_Stmt, /* Tok_Kwd_Volatile */ 00283 Where_Cstrct_Stmt, /* Tok_Kwd_Where */ 00284 Assignment_Stmt, /* Tok_Kwd_While */ 00285 Write_Stmt, /* Tok_Kwd_Write */ 00286 Subroutine_Stmt, /* Tok_Kwd_CoSubroutine */ 00287 Function_Stmt }; /* Tok_Kwd_CoFunction */ 00288 00289 /******************************************************************************/ 00290 /* stmt_parsers TABLE */ 00291 /* */ 00292 /* This table defines an array-of-pointers-to-functions-returning boolean */ 00293 /* and is indexed by an object of type stmt_type_type which is the reason for */ 00294 /* the following dependency: */ 00295 /* */ 00296 /* THIS TABLE IS ORDER/ADDITION/DELETION DEPENDENT ON THE stmt_type_values */ 00297 /* enumeration defined in globals.h */ 00298 /******************************************************************************/ 00299 00300 void (*stmt_parsers[]) () = { 00301 parse_bad_stmt, /* Illegal stmt type */ 00302 00303 parse_allocatable_stmt, /* Allocatable_Stmt */ 00304 parse_automatic_stmt, /* Automatic_Stmt */ 00305 parse_common_stmt, /* Common_Stmt */ 00306 parse_contains_stmt, /* Contains_Stmt */ 00307 parse_type_dcl_stmt, /* Cpnt_Decl_Stmt */ 00308 parse_data_stmt, /* Data_Stmt */ 00309 parse_type_dcl_stmt, /* Derived_Type_Stmt */ 00310 parse_dimension_stmt, /* Dimension_Stmt */ 00311 parse_directive_stmt, /* Directive_Stmt */ 00312 parse_equivalence_stmt, /* Equivalence_Stmt */ 00313 parse_external_stmt, /* External_Stmt */ 00314 parse_format_stmt, /* Format_Stmt */ 00315 parse_implicit_stmt, /* Implicit_Stmt */ 00316 parse_implicit_stmt, /* Implicit_None_Stmt */ 00317 parse_intent_stmt, /* Intent_Stmt */ 00318 parse_interface_stmt, /* Interface_Stmt */ 00319 parse_intrinsic_stmt, /* Intrinsic_Stmt */ 00320 parse_module_stmt, /* Module_Proc_Stmt */ 00321 parse_namelist_stmt, /* Namelist_Stmt */ 00322 parse_optional_stmt, /* Optional_Stmt */ 00323 parse_parameter_stmt, /* Parameter_Stmt */ 00324 parse_pointer_stmt, /* Pointer_Stmt */ 00325 parse_access_stmt, /* Private_Stmt */ 00326 parse_access_stmt, /* Public_Stmt */ 00327 parse_save_stmt, /* Save_Stmt */ 00328 parse_sequence_stmt, /* Sequence_Stmt */ 00329 parse_stmt_func_stmt, /* Stmt_Func_Stmt */ 00330 parse_target_stmt, /* Target_Stmt */ 00331 parse_common_stmt, /* Task_Common_Stmt */ 00332 parse_type_dcl_stmt, /* Type_Decl_Stmt */ 00333 parse_use_stmt, /* Use_Stmt */ 00334 00335 parse_block_stmt, /* Blockdata_Stmt */ 00336 parse_elemental_stmt, /* Elemental_Stmt */ 00337 parse_function_stmt, /* Function_Stmt */ 00338 parse_module_stmt, /* Module_Stmt */ 00339 parse_program_stmt, /* Program_Stmt */ 00340 parse_pure_stmt, /* Pure_Stmt */ 00341 parse_recursive_stmt, /* Recursive_Stmt */ 00342 parse_subroutine_stmt, /* Subroutine_Stmt */ 00343 00344 parse_end_stmt, /* End_Blockdata_Stmt */ 00345 parse_end_stmt, /* End_Do_Stmt */ 00346 parse_end_stmt, /* End_Function_Stmt */ 00347 parse_end_stmt, /* End_If_Stmt */ 00348 parse_end_stmt, /* End_Interface_Stmt */ 00349 parse_end_stmt, /* End_Module_Stmt */ 00350 parse_end_stmt, /* End_Program_Stmt */ 00351 parse_end_stmt, /* End_Select_Stmt */ 00352 parse_end_stmt, /* End_Stmt */ 00353 parse_end_stmt, /* End_Subroutine_Stmt*/ 00354 parse_end_stmt, /* End_Type_Stmt */ 00355 parse_end_stmt, /* End_Where_Stmt */ 00356 00357 parse_allocate_stmt, /* Allocate_Stmt */ 00358 parse_if_stmt, /* Arith_If_Stmt */ 00359 parse_assign_stmt, /* Assign_Stmt */ 00360 parse_assignment_stmt, /* Assignment_Stmt */ 00361 parse_backspace_stmt, /* Backspace_Stmt */ 00362 parse_buffer_stmt, /* Buffer_Stmt */ 00363 parse_call_stmt, /* Call_Stmt */ 00364 parse_case_stmt, /* Case_Stmt */ 00365 parse_close_stmt, /* Close_Stmt */ 00366 parse_continue_stmt, /* Continue_Stmt */ 00367 parse_cycle_stmt, /* Cycle_Stmt */ 00368 parse_deallocate_stmt, /* Deallocate_Stmt */ 00369 parse_decode_stmt, /* Decode_Stmt */ 00370 parse_do_stmt, /* Do_Iterative_Stmt */ 00371 parse_do_stmt, /* Do_While_Stmt */ 00372 parse_do_stmt, /* Do_Infinite_Stmt */ 00373 parse_else_stmt, /* Else_Stmt */ 00374 parse_else_stmt, /* Else_If_Stmt */ 00375 parse_else_stmt, /* Else_Where_Stmt */ 00376 parse_encode_stmt, /* Encode_Stmt */ 00377 parse_endfile_stmt, /* Endfile_Stmt */ 00378 parse_entry_stmt, /* Entry_Stmt */ 00379 parse_exit_stmt, /* Exit_Stmt */ 00380 parse_goto_stmt, /* Goto_Stmt */ 00381 parse_if_stmt, /* If_Cstrct_Stmt */ 00382 parse_if_stmt, /* If_Stmt */ 00383 parse_inquire_stmt, /* Inquire_Stmt */ 00384 parse_nullify_stmt, /* Nullify_Stmt */ 00385 parse_open_stmt, /* Open_Stmt */ 00386 parse_if_stmt, /* Outmoded_If_Stmt */ 00387 parse_stop_pause_stmt, /* Pause_Stmt */ 00388 parse_print_stmt, /* Print_Stmt */ 00389 parse_read_stmt, /* Read_Stmt */ 00390 parse_return_stmt, /* Return_Stmt */ 00391 parse_rewind_stmt, /* Rewind_Stmt */ 00392 parse_select_stmt, /* Select_Stmt */ 00393 parse_stop_pause_stmt, /* Stop_Stmt */ 00394 parse_if_stmt, /* Then_Stmt */ 00395 parse_where_stmt, /* Where_Cstrct_Stmt */ 00396 parse_where_stmt, /* Where_Stmt */ 00397 parse_write_stmt, /* Write_Stmt */ 00398 parse_bad_stmt, /* Type_Init_Stmt */ 00399 00400 parse_bad_stmt, /* Label_Def */ 00401 parse_bad_stmt, /* Construct_Def */ 00402 00403 parse_bad_stmt, /* Automatic_Base_Calc*/ 00404 parse_bad_stmt, /* Automatic_Base_Size*/ 00405 parse_directive_stmt, /* End_Parallel_Stmt */ 00406 parse_directive_stmt, /* End_Do_Parallel_Stmt */ 00407 parse_directive_stmt, /*End_Parallel_Case_Stmt*/ 00408 parse_directive_stmt, /* Parallel_Case_Stmt */ 00409 parse_directive_stmt, /* End_Guard_Stmt */ 00410 parse_bad_stmt, /* Statement_Num_Stmt */ 00411 parse_directive_stmt, /* SGI_Section_Stmt */ 00412 parse_directive_stmt,/* SGI_End_Psection_Stmt */ 00413 parse_directive_stmt, /* SGI_End_Pdo_Stmt */ 00414 parse_directive_stmt, 00415 /* SGI_End_Parallel_Stmt */ 00416 parse_directive_stmt, 00417 /* SGI_End_Critical_Section_Stmt*/ 00418 parse_directive_stmt, 00419 /*SGI_End_Single_Process_Stmt */ 00420 parse_directive_stmt, /* SGI_Region_End_Stmt*/ 00421 parse_directive_stmt, 00422 /* Open_MP_Section_Stmt */ 00423 parse_directive_stmt, 00424 /* Open_MP_End_Parallel_Stmt */ 00425 parse_directive_stmt, 00426 /* Open_MP_End_Do_Stmt */ 00427 parse_directive_stmt, 00428 /* Open_MP_End_Parallel_Sections_Stmt */ 00429 parse_directive_stmt, 00430 /* Open_MP_End_Sections_Stmt */ 00431 parse_directive_stmt, 00432 /* Open_MP_End_Section_Stmt */ 00433 parse_directive_stmt, 00434 /* Open_MP_End_Single_Stmt */ 00435 parse_directive_stmt, 00436 /* Open_MP_End_Parallel_Do_Stmt */ 00437 parse_directive_stmt, 00438 /* Open_MP_End_Master_Stmt */ 00439 parse_directive_stmt, 00440 /* Open_MP_End_Critical_Stmt */ 00441 parse_directive_stmt, 00442 /* Open_MP_End_Ordered_Stmt */ 00443 parse_directive_stmt, 00444 /* Open_MP_End_Parallel_Workshare_Stmt */ 00445 parse_directive_stmt, 00446 /* Open_MP_End_Workshare_Stmt */ 00447 parse_forall, /* Forall_Cstrct_Stmt */ 00448 parse_forall, /* Forall_Stmt */ 00449 parse_end_stmt, /* End_Forall_Stmt */ 00450 parse_else_stmt, /* Else_Where_Mask_Stmt*/ 00451 parse_volatile_stmt /* Volatile_Stmt */ 00452 }; 00453 00454 00455 /* ************************************************************************** */ 00456 /* stmt_in_blk */ 00457 /* Dependent on stmt_type. Blocks listed are blocks that the stmt can NOT be */ 00458 /* in. Label_Def and Construct_Def do NOT exist in this table because they */ 00459 /* are not user statement types. */ 00460 /* ************************************************************************** */ 00461 00462 # ifdef _HOST32 00463 # define ONE 1LL 00464 # else 00465 # define ONE 1L 00466 # endif 00467 00468 long long stmt_in_blk [] = { 00469 00470 /***** Null_Stmt *****/ 00471 00472 ((ONE << Unknown_Blk) | 00473 (ONE << Blockdata_Blk) | 00474 (ONE << Module_Blk) | 00475 (ONE << Program_Blk) | 00476 (ONE << Function_Blk) | 00477 (ONE << Subroutine_Blk) | 00478 (ONE << Internal_Blk) | 00479 (ONE << Module_Proc_Blk) | 00480 (ONE << Interface_Body_Blk) | 00481 (ONE << Forall_Blk) | 00482 (ONE << If_Blk) | 00483 (ONE << If_Then_Blk) | 00484 (ONE << If_Else_If_Blk) | 00485 (ONE << If_Else_Blk) | 00486 (ONE << Do_Blk) | 00487 (ONE << Select_Blk) | 00488 (ONE << Case_Blk) | 00489 (ONE << Where_Then_Blk) | 00490 (ONE << Where_Else_Blk) | 00491 (ONE << Where_Else_Mask_Blk) | 00492 (ONE << Parallel_Blk) | 00493 (ONE << SGI_Parallel_Blk) | 00494 (ONE << Doall_Blk) | 00495 (ONE << Wait_Blk) | 00496 (ONE << SGI_Doacross_Blk) | 00497 (ONE << SGI_Parallel_Do_Blk) | 00498 (ONE << Do_Parallel_Blk) | 00499 (ONE << SGI_Pdo_Blk) | 00500 (ONE << Guard_Blk) | 00501 (ONE << SGI_Critical_Section_Blk) | 00502 (ONE << Parallel_Case_Blk) | 00503 (ONE << SGI_Psection_Blk) | 00504 (ONE << SGI_Section_Blk) | 00505 (ONE << SGI_Single_Process_Blk) | 00506 (ONE << SGI_Region_Blk) | 00507 (ONE << Open_Mp_Parallel_Blk) | 00508 (ONE << Open_Mp_Do_Blk) | 00509 (ONE << Open_Mp_Parallel_Sections_Blk) | 00510 (ONE << Open_Mp_Sections_Blk) | 00511 (ONE << Open_Mp_Section_Blk) | 00512 (ONE << Open_Mp_Single_Blk) | 00513 (ONE << Open_Mp_Parallel_Do_Blk) | 00514 (ONE << Open_Mp_Master_Blk) | 00515 (ONE << Open_Mp_Critical_Blk) | 00516 (ONE << Open_Mp_Ordered_Blk) | 00517 (ONE << Open_Mp_Parallel_Workshare_Blk) | 00518 (ONE << Open_Mp_Workshare_Blk) | 00519 (ONE << Contains_Blk) | 00520 (ONE << Interface_Blk) | 00521 (ONE << Derived_Type_Blk)), 00522 00523 /***** Allocatable_Stmt *****/ 00524 00525 ((ONE << Unknown_Blk) | 00526 (ONE << Blockdata_Blk) | 00527 (ONE << Forall_Blk) | 00528 (ONE << If_Blk) | 00529 (ONE << If_Then_Blk) | 00530 (ONE << If_Else_If_Blk) | 00531 (ONE << If_Else_Blk) | 00532 (ONE << Do_Blk) | 00533 (ONE << Select_Blk) | 00534 (ONE << Case_Blk) | 00535 (ONE << Where_Then_Blk) | 00536 (ONE << Where_Else_Blk) | 00537 (ONE << Where_Else_Mask_Blk) | 00538 (ONE << Parallel_Blk) | 00539 (ONE << SGI_Parallel_Blk) | 00540 (ONE << Doall_Blk) | 00541 (ONE << Wait_Blk) | 00542 (ONE << SGI_Doacross_Blk) | 00543 (ONE << SGI_Parallel_Do_Blk) | 00544 (ONE << Do_Parallel_Blk) | 00545 (ONE << SGI_Pdo_Blk) | 00546 (ONE << Guard_Blk) | 00547 (ONE << SGI_Critical_Section_Blk) | 00548 (ONE << Parallel_Case_Blk) | 00549 (ONE << SGI_Psection_Blk) | 00550 (ONE << SGI_Section_Blk) | 00551 (ONE << SGI_Single_Process_Blk) | 00552 (ONE << Open_Mp_Parallel_Blk) | 00553 (ONE << Open_Mp_Do_Blk) | 00554 (ONE << Open_Mp_Parallel_Sections_Blk) | 00555 (ONE << Open_Mp_Sections_Blk) | 00556 (ONE << Open_Mp_Section_Blk) | 00557 (ONE << Open_Mp_Single_Blk) | 00558 (ONE << Open_Mp_Parallel_Do_Blk) | 00559 (ONE << Open_Mp_Master_Blk) | 00560 (ONE << Open_Mp_Critical_Blk) | 00561 (ONE << Open_Mp_Ordered_Blk) | 00562 (ONE << Open_Mp_Parallel_Workshare_Blk) | 00563 (ONE << Open_Mp_Workshare_Blk) | 00564 (ONE << Contains_Blk) | 00565 (ONE << Interface_Blk) | 00566 (ONE << Derived_Type_Blk)), 00567 00568 /***** Automatic_Stmt *****/ 00569 00570 ((ONE << Unknown_Blk) | 00571 (ONE << Module_Blk) | 00572 (ONE << Forall_Blk) | 00573 (ONE << If_Blk) | 00574 (ONE << If_Then_Blk) | 00575 (ONE << If_Else_If_Blk) | 00576 (ONE << If_Else_Blk) | 00577 (ONE << Do_Blk) | 00578 (ONE << Select_Blk) | 00579 (ONE << Case_Blk) | 00580 (ONE << Where_Then_Blk) | 00581 (ONE << Where_Else_Blk) | 00582 (ONE << Where_Else_Mask_Blk) | 00583 (ONE << Parallel_Blk) | 00584 (ONE << SGI_Parallel_Blk) | 00585 (ONE << Doall_Blk) | 00586 (ONE << Wait_Blk) | 00587 (ONE << SGI_Doacross_Blk) | 00588 (ONE << SGI_Parallel_Do_Blk) | 00589 (ONE << Do_Parallel_Blk) | 00590 (ONE << SGI_Pdo_Blk) | 00591 (ONE << Guard_Blk) | 00592 (ONE << SGI_Critical_Section_Blk) | 00593 (ONE << Parallel_Case_Blk) | 00594 (ONE << SGI_Psection_Blk) | 00595 (ONE << SGI_Section_Blk) | 00596 (ONE << SGI_Single_Process_Blk) | 00597 (ONE << Open_Mp_Parallel_Blk) | 00598 (ONE << Open_Mp_Do_Blk) | 00599 (ONE << Open_Mp_Parallel_Sections_Blk) | 00600 (ONE << Open_Mp_Sections_Blk) | 00601 (ONE << Open_Mp_Section_Blk) | 00602 (ONE << Open_Mp_Single_Blk) | 00603 (ONE << Open_Mp_Parallel_Do_Blk) | 00604 (ONE << Open_Mp_Master_Blk) | 00605 (ONE << Open_Mp_Critical_Blk) | 00606 (ONE << Open_Mp_Ordered_Blk) | 00607 (ONE << Open_Mp_Parallel_Workshare_Blk) | 00608 (ONE << Open_Mp_Workshare_Blk) | 00609 (ONE << Contains_Blk) | 00610 (ONE << Interface_Blk) | 00611 (ONE << Derived_Type_Blk)), 00612 00613 /***** Common_Stmt *****/ 00614 00615 ((ONE << Unknown_Blk) | 00616 (ONE << Forall_Blk) | 00617 (ONE << If_Blk) | 00618 (ONE << If_Then_Blk) | 00619 (ONE << If_Else_If_Blk) | 00620 (ONE << If_Else_Blk) | 00621 (ONE << Do_Blk) | 00622 (ONE << Select_Blk) | 00623 (ONE << Case_Blk) | 00624 (ONE << Where_Then_Blk) | 00625 (ONE << Where_Else_Blk) | 00626 (ONE << Where_Else_Mask_Blk) | 00627 (ONE << Parallel_Blk) | 00628 (ONE << SGI_Parallel_Blk) | 00629 (ONE << Doall_Blk) | 00630 (ONE << Wait_Blk) | 00631 (ONE << SGI_Doacross_Blk) | 00632 (ONE << SGI_Parallel_Do_Blk) | 00633 (ONE << Do_Parallel_Blk) | 00634 (ONE << SGI_Pdo_Blk) | 00635 (ONE << Guard_Blk) | 00636 (ONE << SGI_Critical_Section_Blk) | 00637 (ONE << Parallel_Case_Blk) | 00638 (ONE << SGI_Psection_Blk) | 00639 (ONE << SGI_Section_Blk) | 00640 (ONE << SGI_Single_Process_Blk) | 00641 (ONE << Open_Mp_Parallel_Blk) | 00642 (ONE << Open_Mp_Do_Blk) | 00643 (ONE << Open_Mp_Parallel_Sections_Blk) | 00644 (ONE << Open_Mp_Sections_Blk) | 00645 (ONE << Open_Mp_Section_Blk) | 00646 (ONE << Open_Mp_Single_Blk) | 00647 (ONE << Open_Mp_Parallel_Do_Blk) | 00648 (ONE << Open_Mp_Master_Blk) | 00649 (ONE << Open_Mp_Critical_Blk) | 00650 (ONE << Open_Mp_Ordered_Blk) | 00651 (ONE << Open_Mp_Parallel_Workshare_Blk) | 00652 (ONE << Open_Mp_Workshare_Blk) | 00653 (ONE << Contains_Blk) | 00654 (ONE << Interface_Blk) | 00655 (ONE << Derived_Type_Blk)), 00656 00657 /***** Contains_Stmt *****/ 00658 00659 ((ONE << Unknown_Blk) | 00660 (ONE << Blockdata_Blk) | 00661 (ONE << Interface_Body_Blk) | 00662 (ONE << Internal_Blk) | 00663 (ONE << Forall_Blk) | 00664 (ONE << If_Blk) | 00665 (ONE << If_Then_Blk) | 00666 (ONE << If_Else_If_Blk) | 00667 (ONE << If_Else_Blk) | 00668 (ONE << Do_Blk) | 00669 (ONE << Select_Blk) | 00670 (ONE << Case_Blk) | 00671 (ONE << Where_Then_Blk) | 00672 (ONE << Where_Else_Blk) | 00673 (ONE << Where_Else_Mask_Blk) | 00674 (ONE << Parallel_Blk) | 00675 (ONE << SGI_Parallel_Blk) | 00676 (ONE << Doall_Blk) | 00677 (ONE << Wait_Blk) | 00678 (ONE << SGI_Doacross_Blk) | 00679 (ONE << SGI_Parallel_Do_Blk) | 00680 (ONE << Do_Parallel_Blk) | 00681 (ONE << SGI_Pdo_Blk) | 00682 (ONE << Guard_Blk) | 00683 (ONE << SGI_Critical_Section_Blk) | 00684 (ONE << Parallel_Case_Blk) | 00685 (ONE << SGI_Psection_Blk) | 00686 (ONE << SGI_Section_Blk) | 00687 (ONE << SGI_Single_Process_Blk) | 00688 (ONE << Open_Mp_Parallel_Blk) | 00689 (ONE << Open_Mp_Do_Blk) | 00690 (ONE << Open_Mp_Parallel_Sections_Blk) | 00691 (ONE << Open_Mp_Sections_Blk) | 00692 (ONE << Open_Mp_Section_Blk) | 00693 (ONE << Open_Mp_Single_Blk) | 00694 (ONE << Open_Mp_Parallel_Do_Blk) | 00695 (ONE << Open_Mp_Master_Blk) | 00696 (ONE << Open_Mp_Critical_Blk) | 00697 (ONE << Open_Mp_Ordered_Blk) | 00698 (ONE << Open_Mp_Parallel_Workshare_Blk) | 00699 (ONE << Open_Mp_Workshare_Blk) | 00700 (ONE << Contains_Blk) | 00701 (ONE << Interface_Blk) | 00702 (ONE << Derived_Type_Blk)), 00703 00704 /***** Cpnt_Decl_Stmt *****/ 00705 00706 ((ONE << Unknown_Blk) | 00707 (ONE << Blockdata_Blk) | 00708 (ONE << Module_Blk) | 00709 (ONE << Program_Blk) | 00710 (ONE << Function_Blk) | 00711 (ONE << Subroutine_Blk) | 00712 (ONE << Internal_Blk) | 00713 (ONE << Module_Proc_Blk) | 00714 (ONE << Interface_Body_Blk) | 00715 (ONE << Do_Blk) | 00716 (ONE << Forall_Blk) | 00717 (ONE << If_Blk) | 00718 (ONE << If_Then_Blk) | 00719 (ONE << If_Else_If_Blk) | 00720 (ONE << If_Else_Blk) | 00721 (ONE << Select_Blk) | 00722 (ONE << Case_Blk) | 00723 (ONE << Where_Then_Blk) | 00724 (ONE << Where_Else_Blk) | 00725 (ONE << Where_Else_Mask_Blk) | 00726 (ONE << Parallel_Blk) | 00727 (ONE << SGI_Parallel_Blk) | 00728 (ONE << Doall_Blk) | 00729 (ONE << Wait_Blk) | 00730 (ONE << SGI_Doacross_Blk) | 00731 (ONE << SGI_Parallel_Do_Blk) | 00732 (ONE << Do_Parallel_Blk) | 00733 (ONE << SGI_Pdo_Blk) | 00734 (ONE << Guard_Blk) | 00735 (ONE << SGI_Critical_Section_Blk) | 00736 (ONE << Parallel_Case_Blk) | 00737 (ONE << SGI_Psection_Blk) | 00738 (ONE << SGI_Section_Blk) | 00739 (ONE << SGI_Single_Process_Blk) | 00740 (ONE << Open_Mp_Parallel_Blk) | 00741 (ONE << Open_Mp_Do_Blk) | 00742 (ONE << Open_Mp_Parallel_Sections_Blk) | 00743 (ONE << Open_Mp_Sections_Blk) | 00744 (ONE << Open_Mp_Section_Blk) | 00745 (ONE << Open_Mp_Single_Blk) | 00746 (ONE << Open_Mp_Parallel_Do_Blk) | 00747 (ONE << Open_Mp_Master_Blk) | 00748 (ONE << Open_Mp_Critical_Blk) | 00749 (ONE << Open_Mp_Ordered_Blk) | 00750 (ONE << Open_Mp_Parallel_Workshare_Blk) | 00751 (ONE << Open_Mp_Workshare_Blk) | 00752 (ONE << Contains_Blk) | 00753 (ONE << Interface_Blk)), 00754 00755 /***** Data_Stmt *****/ 00756 00757 ((ONE << Unknown_Blk) | 00758 (ONE << Interface_Body_Blk) | 00759 (ONE << Forall_Blk) | 00760 (ONE << If_Blk) | 00761 (ONE << Select_Blk) | 00762 (ONE << Where_Then_Blk) | 00763 (ONE << Where_Else_Blk) | 00764 (ONE << Where_Else_Mask_Blk) | 00765 (ONE << SGI_Psection_Blk) | 00766 (ONE << Contains_Blk) | 00767 (ONE << Interface_Blk) | 00768 (ONE << Derived_Type_Blk)), 00769 00770 /***** Derived_Type_Stmt *****/ 00771 00772 ((ONE << Unknown_Blk) | 00773 (ONE << Forall_Blk) | 00774 (ONE << If_Blk) | 00775 (ONE << If_Then_Blk) | 00776 (ONE << If_Else_If_Blk) | 00777 (ONE << If_Else_Blk) | 00778 (ONE << Do_Blk) | 00779 (ONE << Select_Blk) | 00780 (ONE << Case_Blk) | 00781 (ONE << Where_Then_Blk) | 00782 (ONE << Where_Else_Blk) | 00783 (ONE << Where_Else_Mask_Blk) | 00784 (ONE << Parallel_Blk) | 00785 (ONE << SGI_Parallel_Blk) | 00786 (ONE << Doall_Blk) | 00787 (ONE << Wait_Blk) | 00788 (ONE << SGI_Doacross_Blk) | 00789 (ONE << SGI_Parallel_Do_Blk) | 00790 (ONE << Do_Parallel_Blk) | 00791 (ONE << SGI_Pdo_Blk) | 00792 (ONE << Guard_Blk) | 00793 (ONE << SGI_Critical_Section_Blk) | 00794 (ONE << Parallel_Case_Blk) | 00795 (ONE << SGI_Psection_Blk) | 00796 (ONE << SGI_Section_Blk) | 00797 (ONE << SGI_Single_Process_Blk) | 00798 (ONE << Open_Mp_Parallel_Blk) | 00799 (ONE << Open_Mp_Do_Blk) | 00800 (ONE << Open_Mp_Parallel_Sections_Blk) | 00801 (ONE << Open_Mp_Sections_Blk) | 00802 (ONE << Open_Mp_Section_Blk) | 00803 (ONE << Open_Mp_Single_Blk) | 00804 (ONE << Open_Mp_Parallel_Do_Blk) | 00805 (ONE << Open_Mp_Master_Blk) | 00806 (ONE << Open_Mp_Critical_Blk) | 00807 (ONE << Open_Mp_Ordered_Blk) | 00808 (ONE << Open_Mp_Parallel_Workshare_Blk) | 00809 (ONE << Open_Mp_Workshare_Blk) | 00810 (ONE << Contains_Blk) | 00811 (ONE << Interface_Blk) | 00812 (ONE << Derived_Type_Blk)), 00813 00814 /***** Dimension_Stmt *****/ 00815 00816 ((ONE << Unknown_Blk) | 00817 (ONE << Forall_Blk) | 00818 (ONE << If_Blk) | 00819 (ONE << If_Then_Blk) | 00820 (ONE << If_Else_If_Blk) | 00821 (ONE << If_Else_Blk) | 00822 (ONE << Do_Blk) | 00823 (ONE << Select_Blk) | 00824 (ONE << Case_Blk) | 00825 (ONE << Where_Then_Blk) | 00826 (ONE << Where_Else_Blk) | 00827 (ONE << Where_Else_Mask_Blk) | 00828 (ONE << Parallel_Blk) | 00829 (ONE << SGI_Parallel_Blk) | 00830 (ONE << Doall_Blk) | 00831 (ONE << Wait_Blk) | 00832 (ONE << SGI_Doacross_Blk) | 00833 (ONE << SGI_Parallel_Do_Blk) | 00834 (ONE << Do_Parallel_Blk) | 00835 (ONE << SGI_Pdo_Blk) | 00836 (ONE << Guard_Blk) | 00837 (ONE << SGI_Critical_Section_Blk) | 00838 (ONE << Parallel_Case_Blk) | 00839 (ONE << SGI_Psection_Blk) | 00840 (ONE << SGI_Section_Blk) | 00841 (ONE << SGI_Single_Process_Blk) | 00842 (ONE << Open_Mp_Parallel_Blk) | 00843 (ONE << Open_Mp_Do_Blk) | 00844 (ONE << Open_Mp_Parallel_Sections_Blk) | 00845 (ONE << Open_Mp_Sections_Blk) | 00846 (ONE << Open_Mp_Section_Blk) | 00847 (ONE << Open_Mp_Single_Blk) | 00848 (ONE << Open_Mp_Parallel_Do_Blk) | 00849 (ONE << Open_Mp_Master_Blk) | 00850 (ONE << Open_Mp_Critical_Blk) | 00851 (ONE << Open_Mp_Ordered_Blk) | 00852 (ONE << Open_Mp_Parallel_Workshare_Blk) | 00853 (ONE << Open_Mp_Workshare_Blk) | 00854 (ONE << Contains_Blk) | 00855 (ONE << Interface_Blk) | 00856 (ONE << Derived_Type_Blk)), 00857 00858 /***** Directive_Stmt *****/ 00859 00860 ((ONE << Unknown_Blk) | 00861 (ONE << If_Blk)), 00862 00863 /***** Equivalence_Stmt *****/ 00864 00865 ((ONE << Unknown_Blk) | 00866 (ONE << Forall_Blk) | 00867 (ONE << If_Blk) | 00868 (ONE << If_Then_Blk) | 00869 (ONE << If_Else_If_Blk) | 00870 (ONE << If_Else_Blk) | 00871 (ONE << Do_Blk) | 00872 (ONE << Select_Blk) | 00873 (ONE << Case_Blk) | 00874 (ONE << Where_Then_Blk) | 00875 (ONE << Where_Else_Blk) | 00876 (ONE << Where_Else_Mask_Blk) | 00877 (ONE << Parallel_Blk) | 00878 (ONE << SGI_Parallel_Blk) | 00879 (ONE << Doall_Blk) | 00880 (ONE << Wait_Blk) | 00881 (ONE << SGI_Doacross_Blk) | 00882 (ONE << SGI_Parallel_Do_Blk) | 00883 (ONE << Do_Parallel_Blk) | 00884 (ONE << SGI_Pdo_Blk) | 00885 (ONE << Guard_Blk) | 00886 (ONE << SGI_Critical_Section_Blk) | 00887 (ONE << Parallel_Case_Blk) | 00888 (ONE << SGI_Psection_Blk) | 00889 (ONE << SGI_Section_Blk) | 00890 (ONE << SGI_Single_Process_Blk) | 00891 (ONE << Open_Mp_Parallel_Blk) | 00892 (ONE << Open_Mp_Do_Blk) | 00893 (ONE << Open_Mp_Parallel_Sections_Blk) | 00894 (ONE << Open_Mp_Sections_Blk) | 00895 (ONE << Open_Mp_Section_Blk) | 00896 (ONE << Open_Mp_Single_Blk) | 00897 (ONE << Open_Mp_Parallel_Do_Blk) | 00898 (ONE << Open_Mp_Master_Blk) | 00899 (ONE << Open_Mp_Critical_Blk) | 00900 (ONE << Open_Mp_Ordered_Blk) | 00901 (ONE << Open_Mp_Parallel_Workshare_Blk) | 00902 (ONE << Open_Mp_Workshare_Blk) | 00903 (ONE << Contains_Blk) | 00904 (ONE << Interface_Blk) | 00905 (ONE << Derived_Type_Blk)), 00906 00907 /***** External_Stmt *****/ 00908 00909 ((ONE << Unknown_Blk) | 00910 (ONE << Blockdata_Blk) | 00911 (ONE << Forall_Blk) | 00912 (ONE << If_Blk) | 00913 (ONE << If_Then_Blk) | 00914 (ONE << If_Else_If_Blk) | 00915 (ONE << If_Else_Blk) | 00916 (ONE << Do_Blk) | 00917 (ONE << Select_Blk) | 00918 (ONE << Case_Blk) | 00919 (ONE << Where_Then_Blk) | 00920 (ONE << Where_Else_Blk) | 00921 (ONE << Where_Else_Mask_Blk) | 00922 (ONE << Parallel_Blk) | 00923 (ONE << SGI_Parallel_Blk) | 00924 (ONE << Doall_Blk) | 00925 (ONE << Wait_Blk) | 00926 (ONE << SGI_Doacross_Blk) | 00927 (ONE << SGI_Parallel_Do_Blk) | 00928 (ONE << Do_Parallel_Blk) | 00929 (ONE << SGI_Pdo_Blk) | 00930 (ONE << Guard_Blk) | 00931 (ONE << SGI_Critical_Section_Blk) | 00932 (ONE << Parallel_Case_Blk) | 00933 (ONE << SGI_Psection_Blk) | 00934 (ONE << SGI_Section_Blk) | 00935 (ONE << SGI_Single_Process_Blk) | 00936 (ONE << Open_Mp_Parallel_Blk) | 00937 (ONE << Open_Mp_Do_Blk) | 00938 (ONE << Open_Mp_Parallel_Sections_Blk) | 00939 (ONE << Open_Mp_Sections_Blk) | 00940 (ONE << Open_Mp_Section_Blk) | 00941 (ONE << Open_Mp_Single_Blk) | 00942 (ONE << Open_Mp_Parallel_Do_Blk) | 00943 (ONE << Open_Mp_Master_Blk) | 00944 (ONE << Open_Mp_Critical_Blk) | 00945 (ONE << Open_Mp_Ordered_Blk) | 00946 (ONE << Open_Mp_Parallel_Workshare_Blk) | 00947 (ONE << Open_Mp_Workshare_Blk) | 00948 (ONE << Contains_Blk) | 00949 (ONE << Interface_Blk) | 00950 (ONE << Derived_Type_Blk)), 00951 00952 /***** Format_Stmt *****/ 00953 00954 ((ONE << Unknown_Blk) | 00955 (ONE << Blockdata_Blk) | 00956 (ONE << Module_Blk) | 00957 (ONE << Interface_Body_Blk) | 00958 (ONE << Forall_Blk) | 00959 (ONE << If_Blk) | 00960 (ONE << Select_Blk) | 00961 (ONE << Where_Then_Blk) | 00962 (ONE << Where_Else_Blk) | 00963 (ONE << Where_Else_Mask_Blk) | 00964 (ONE << SGI_Psection_Blk) | 00965 (ONE << Contains_Blk) | 00966 (ONE << Interface_Blk) | 00967 (ONE << Derived_Type_Blk)), 00968 00969 /***** Implicit_Stmt *****/ 00970 00971 ((ONE << Unknown_Blk) | 00972 (ONE << Forall_Blk) | 00973 (ONE << If_Blk) | 00974 (ONE << If_Then_Blk) | 00975 (ONE << If_Else_If_Blk) | 00976 (ONE << If_Else_Blk) | 00977 (ONE << Do_Blk) | 00978 (ONE << Select_Blk) | 00979 (ONE << Case_Blk) | 00980 (ONE << Where_Then_Blk) | 00981 (ONE << Where_Else_Blk) | 00982 (ONE << Where_Else_Mask_Blk) | 00983 (ONE << Parallel_Blk) | 00984 (ONE << SGI_Parallel_Blk) | 00985 (ONE << Doall_Blk) | 00986 (ONE << Wait_Blk) | 00987 (ONE << SGI_Doacross_Blk) | 00988 (ONE << SGI_Parallel_Do_Blk) | 00989 (ONE << Do_Parallel_Blk) | 00990 (ONE << SGI_Pdo_Blk) | 00991 (ONE << Guard_Blk) | 00992 (ONE << SGI_Critical_Section_Blk) | 00993 (ONE << Parallel_Case_Blk) | 00994 (ONE << SGI_Psection_Blk) | 00995 (ONE << SGI_Section_Blk) | 00996 (ONE << SGI_Single_Process_Blk) | 00997 (ONE << Open_Mp_Parallel_Blk) | 00998 (ONE << Open_Mp_Do_Blk) | 00999 (ONE << Open_Mp_Parallel_Sections_Blk) | 01000 (ONE << Open_Mp_Sections_Blk) | 01001 (ONE << Open_Mp_Section_Blk) | 01002 (ONE << Open_Mp_Single_Blk) | 01003 (ONE << Open_Mp_Parallel_Do_Blk) | 01004 (ONE << Open_Mp_Master_Blk) | 01005 (ONE << Open_Mp_Critical_Blk) | 01006 (ONE << Open_Mp_Ordered_Blk) | 01007 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01008 (ONE << Open_Mp_Workshare_Blk) | 01009 (ONE << Contains_Blk) | 01010 (ONE << Interface_Blk) | 01011 (ONE << Derived_Type_Blk)), 01012 01013 /***** Implicit_None_Stmt *****/ 01014 01015 ((ONE << Unknown_Blk) | 01016 (ONE << Forall_Blk) | 01017 (ONE << If_Blk) | 01018 (ONE << If_Then_Blk) | 01019 (ONE << If_Else_If_Blk) | 01020 (ONE << If_Else_Blk) | 01021 (ONE << Do_Blk) | 01022 (ONE << Select_Blk) | 01023 (ONE << Case_Blk) | 01024 (ONE << Where_Then_Blk) | 01025 (ONE << Where_Else_Blk) | 01026 (ONE << Where_Else_Mask_Blk) | 01027 (ONE << Parallel_Blk) | 01028 (ONE << SGI_Parallel_Blk) | 01029 (ONE << Doall_Blk) | 01030 (ONE << Wait_Blk) | 01031 (ONE << SGI_Doacross_Blk) | 01032 (ONE << SGI_Parallel_Do_Blk) | 01033 (ONE << Do_Parallel_Blk) | 01034 (ONE << SGI_Pdo_Blk) | 01035 (ONE << Guard_Blk) | 01036 (ONE << SGI_Critical_Section_Blk) | 01037 (ONE << Parallel_Case_Blk) | 01038 (ONE << SGI_Psection_Blk) | 01039 (ONE << SGI_Section_Blk) | 01040 (ONE << SGI_Single_Process_Blk) | 01041 (ONE << Open_Mp_Parallel_Blk) | 01042 (ONE << Open_Mp_Do_Blk) | 01043 (ONE << Open_Mp_Parallel_Sections_Blk) | 01044 (ONE << Open_Mp_Sections_Blk) | 01045 (ONE << Open_Mp_Section_Blk) | 01046 (ONE << Open_Mp_Single_Blk) | 01047 (ONE << Open_Mp_Parallel_Do_Blk) | 01048 (ONE << Open_Mp_Master_Blk) | 01049 (ONE << Open_Mp_Critical_Blk) | 01050 (ONE << Open_Mp_Ordered_Blk) | 01051 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01052 (ONE << Open_Mp_Workshare_Blk) | 01053 (ONE << Contains_Blk) | 01054 (ONE << Interface_Blk) | 01055 (ONE << Derived_Type_Blk)), 01056 01057 /***** Intent_Stmt *****/ 01058 01059 ((ONE << Unknown_Blk) | 01060 (ONE << Blockdata_Blk) | 01061 (ONE << Module_Blk) | 01062 (ONE << Program_Blk) | 01063 (ONE << Forall_Blk) | 01064 (ONE << If_Blk) | 01065 (ONE << If_Then_Blk) | 01066 (ONE << If_Else_If_Blk) | 01067 (ONE << If_Else_Blk) | 01068 (ONE << Do_Blk) | 01069 (ONE << Select_Blk) | 01070 (ONE << Case_Blk) | 01071 (ONE << Where_Then_Blk) | 01072 (ONE << Where_Else_Blk) | 01073 (ONE << Where_Else_Mask_Blk) | 01074 (ONE << Parallel_Blk) | 01075 (ONE << SGI_Parallel_Blk) | 01076 (ONE << Doall_Blk) | 01077 (ONE << Wait_Blk) | 01078 (ONE << SGI_Doacross_Blk) | 01079 (ONE << SGI_Parallel_Do_Blk) | 01080 (ONE << Do_Parallel_Blk) | 01081 (ONE << SGI_Pdo_Blk) | 01082 (ONE << Guard_Blk) | 01083 (ONE << SGI_Critical_Section_Blk) | 01084 (ONE << Parallel_Case_Blk) | 01085 (ONE << SGI_Psection_Blk) | 01086 (ONE << SGI_Section_Blk) | 01087 (ONE << SGI_Single_Process_Blk) | 01088 (ONE << Open_Mp_Parallel_Blk) | 01089 (ONE << Open_Mp_Do_Blk) | 01090 (ONE << Open_Mp_Parallel_Sections_Blk) | 01091 (ONE << Open_Mp_Sections_Blk) | 01092 (ONE << Open_Mp_Section_Blk) | 01093 (ONE << Open_Mp_Single_Blk) | 01094 (ONE << Open_Mp_Parallel_Do_Blk) | 01095 (ONE << Open_Mp_Master_Blk) | 01096 (ONE << Open_Mp_Critical_Blk) | 01097 (ONE << Open_Mp_Ordered_Blk) | 01098 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01099 (ONE << Open_Mp_Workshare_Blk) | 01100 (ONE << Contains_Blk) | 01101 (ONE << Interface_Blk) | 01102 (ONE << Derived_Type_Blk)), 01103 01104 /***** Interface_Stmt *****/ 01105 01106 ((ONE << Unknown_Blk) | 01107 (ONE << Blockdata_Blk) | 01108 (0 << Interface_Body_Blk) | 01109 (ONE << Forall_Blk) | 01110 (ONE << If_Blk) | 01111 (ONE << If_Then_Blk) | 01112 (ONE << If_Else_If_Blk) | 01113 (ONE << If_Else_Blk) | 01114 (ONE << Do_Blk) | 01115 (ONE << Select_Blk) | 01116 (ONE << Case_Blk) | 01117 (ONE << Where_Then_Blk) | 01118 (ONE << Where_Else_Blk) | 01119 (ONE << Where_Else_Mask_Blk) | 01120 (ONE << Parallel_Blk) | 01121 (ONE << SGI_Parallel_Blk) | 01122 (ONE << Doall_Blk) | 01123 (ONE << Wait_Blk) | 01124 (ONE << SGI_Doacross_Blk) | 01125 (ONE << SGI_Parallel_Do_Blk) | 01126 (ONE << Do_Parallel_Blk) | 01127 (ONE << SGI_Pdo_Blk) | 01128 (ONE << Guard_Blk) | 01129 (ONE << SGI_Critical_Section_Blk) | 01130 (ONE << Parallel_Case_Blk) | 01131 (ONE << SGI_Psection_Blk) | 01132 (ONE << SGI_Section_Blk) | 01133 (ONE << SGI_Single_Process_Blk) | 01134 (ONE << Open_Mp_Parallel_Blk) | 01135 (ONE << Open_Mp_Do_Blk) | 01136 (ONE << Open_Mp_Parallel_Sections_Blk) | 01137 (ONE << Open_Mp_Sections_Blk) | 01138 (ONE << Open_Mp_Section_Blk) | 01139 (ONE << Open_Mp_Single_Blk) | 01140 (ONE << Open_Mp_Parallel_Do_Blk) | 01141 (ONE << Open_Mp_Master_Blk) | 01142 (ONE << Open_Mp_Critical_Blk) | 01143 (ONE << Open_Mp_Ordered_Blk) | 01144 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01145 (ONE << Open_Mp_Workshare_Blk) | 01146 (ONE << Contains_Blk) | 01147 (ONE << Interface_Blk) | 01148 (ONE << Derived_Type_Blk)), 01149 01150 /***** Intrinsic_Stmt *****/ 01151 01152 ((ONE << Unknown_Blk) | 01153 (ONE << Forall_Blk) | 01154 (ONE << If_Blk) | 01155 (ONE << If_Then_Blk) | 01156 (ONE << If_Else_If_Blk) | 01157 (ONE << If_Else_Blk) | 01158 (ONE << Do_Blk) | 01159 (ONE << Select_Blk) | 01160 (ONE << Case_Blk) | 01161 (ONE << Where_Then_Blk) | 01162 (ONE << Where_Else_Blk) | 01163 (ONE << Where_Else_Mask_Blk) | 01164 (ONE << Parallel_Blk) | 01165 (ONE << SGI_Parallel_Blk) | 01166 (ONE << Doall_Blk) | 01167 (ONE << Wait_Blk) | 01168 (ONE << SGI_Doacross_Blk) | 01169 (ONE << SGI_Parallel_Do_Blk) | 01170 (ONE << Do_Parallel_Blk) | 01171 (ONE << SGI_Pdo_Blk) | 01172 (ONE << Guard_Blk) | 01173 (ONE << SGI_Critical_Section_Blk) | 01174 (ONE << Parallel_Case_Blk) | 01175 (ONE << SGI_Psection_Blk) | 01176 (ONE << SGI_Section_Blk) | 01177 (ONE << SGI_Single_Process_Blk) | 01178 (ONE << Open_Mp_Parallel_Blk) | 01179 (ONE << Open_Mp_Do_Blk) | 01180 (ONE << Open_Mp_Parallel_Sections_Blk) | 01181 (ONE << Open_Mp_Sections_Blk) | 01182 (ONE << Open_Mp_Section_Blk) | 01183 (ONE << Open_Mp_Single_Blk) | 01184 (ONE << Open_Mp_Parallel_Do_Blk) | 01185 (ONE << Open_Mp_Master_Blk) | 01186 (ONE << Open_Mp_Critical_Blk) | 01187 (ONE << Open_Mp_Ordered_Blk) | 01188 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01189 (ONE << Open_Mp_Workshare_Blk) | 01190 (ONE << Contains_Blk) | 01191 (ONE << Interface_Blk) | 01192 (ONE << Derived_Type_Blk)), 01193 01194 /***** Module_Proc_Stmt *****/ 01195 01196 ((ONE << Unknown_Blk) | 01197 (ONE << Blockdata_Blk) | 01198 (ONE << Module_Blk) | 01199 (ONE << Program_Blk) | 01200 (ONE << Function_Blk) | 01201 (ONE << Subroutine_Blk) | 01202 (ONE << Internal_Blk) | 01203 (ONE << Module_Proc_Blk) | 01204 (ONE << Interface_Body_Blk) | 01205 (ONE << Forall_Blk) | 01206 (ONE << If_Blk) | 01207 (ONE << If_Then_Blk) | 01208 (ONE << If_Else_If_Blk) | 01209 (ONE << If_Else_Blk) | 01210 (ONE << Do_Blk) | 01211 (ONE << Select_Blk) | 01212 (ONE << Case_Blk) | 01213 (ONE << Where_Then_Blk) | 01214 (ONE << Where_Else_Blk) | 01215 (ONE << Where_Else_Mask_Blk) | 01216 (ONE << Parallel_Blk) | 01217 (ONE << SGI_Parallel_Blk) | 01218 (ONE << Doall_Blk) | 01219 (ONE << Wait_Blk) | 01220 (ONE << SGI_Doacross_Blk) | 01221 (ONE << SGI_Parallel_Do_Blk) | 01222 (ONE << Do_Parallel_Blk) | 01223 (ONE << SGI_Pdo_Blk) | 01224 (ONE << Guard_Blk) | 01225 (ONE << SGI_Critical_Section_Blk) | 01226 (ONE << Parallel_Case_Blk) | 01227 (ONE << SGI_Psection_Blk) | 01228 (ONE << SGI_Section_Blk) | 01229 (ONE << SGI_Single_Process_Blk) | 01230 (ONE << Open_Mp_Parallel_Blk) | 01231 (ONE << Open_Mp_Do_Blk) | 01232 (ONE << Open_Mp_Parallel_Sections_Blk) | 01233 (ONE << Open_Mp_Sections_Blk) | 01234 (ONE << Open_Mp_Section_Blk) | 01235 (ONE << Open_Mp_Single_Blk) | 01236 (ONE << Open_Mp_Parallel_Do_Blk) | 01237 (ONE << Open_Mp_Master_Blk) | 01238 (ONE << Open_Mp_Critical_Blk) | 01239 (ONE << Open_Mp_Ordered_Blk) | 01240 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01241 (ONE << Open_Mp_Workshare_Blk) | 01242 (ONE << Contains_Blk) | 01243 (ONE << Derived_Type_Blk)), 01244 01245 /***** Namelist_Stmt *****/ 01246 01247 ((ONE << Unknown_Blk) | 01248 (ONE << Blockdata_Blk) | 01249 (ONE << Forall_Blk) | 01250 (ONE << If_Blk) | 01251 (ONE << Select_Blk) | 01252 (ONE << Where_Then_Blk) | 01253 (ONE << Where_Else_Blk) | 01254 (ONE << Where_Else_Mask_Blk) | 01255 (ONE << SGI_Psection_Blk) | 01256 (ONE << Contains_Blk) | 01257 (ONE << Interface_Blk) | 01258 (ONE << Derived_Type_Blk)), 01259 01260 /***** Optional_Stmt *****/ 01261 01262 ((ONE << Unknown_Blk) | 01263 (ONE << Blockdata_Blk) | 01264 (ONE << Module_Blk) | 01265 (ONE << Program_Blk) | 01266 (ONE << Forall_Blk) | 01267 (ONE << If_Blk) | 01268 (ONE << If_Then_Blk) | 01269 (ONE << If_Else_If_Blk) | 01270 (ONE << If_Else_Blk) | 01271 (ONE << Do_Blk) | 01272 (ONE << Select_Blk) | 01273 (ONE << Case_Blk) | 01274 (ONE << Where_Then_Blk) | 01275 (ONE << Where_Else_Blk) | 01276 (ONE << Where_Else_Mask_Blk) | 01277 (ONE << Parallel_Blk) | 01278 (ONE << SGI_Parallel_Blk) | 01279 (ONE << Doall_Blk) | 01280 (ONE << Wait_Blk) | 01281 (ONE << SGI_Doacross_Blk) | 01282 (ONE << SGI_Parallel_Do_Blk) | 01283 (ONE << Do_Parallel_Blk) | 01284 (ONE << SGI_Pdo_Blk) | 01285 (ONE << Guard_Blk) | 01286 (ONE << SGI_Critical_Section_Blk) | 01287 (ONE << Parallel_Case_Blk) | 01288 (ONE << SGI_Psection_Blk) | 01289 (ONE << SGI_Section_Blk) | 01290 (ONE << SGI_Single_Process_Blk) | 01291 (ONE << Open_Mp_Parallel_Blk) | 01292 (ONE << Open_Mp_Do_Blk) | 01293 (ONE << Open_Mp_Parallel_Sections_Blk) | 01294 (ONE << Open_Mp_Sections_Blk) | 01295 (ONE << Open_Mp_Section_Blk) | 01296 (ONE << Open_Mp_Single_Blk) | 01297 (ONE << Open_Mp_Parallel_Do_Blk) | 01298 (ONE << Open_Mp_Master_Blk) | 01299 (ONE << Open_Mp_Critical_Blk) | 01300 (ONE << Open_Mp_Ordered_Blk) | 01301 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01302 (ONE << Open_Mp_Workshare_Blk) | 01303 (ONE << Contains_Blk) | 01304 (ONE << Interface_Blk) | 01305 (ONE << Derived_Type_Blk)), 01306 01307 /***** Parameter_Stmt *****/ 01308 01309 ((ONE << Unknown_Blk) | 01310 (ONE << Forall_Blk) | 01311 (ONE << If_Blk) | 01312 (ONE << If_Then_Blk) | 01313 (ONE << If_Else_If_Blk) | 01314 (ONE << If_Else_Blk) | 01315 (ONE << Do_Blk) | 01316 (ONE << Select_Blk) | 01317 (ONE << Case_Blk) | 01318 (ONE << Where_Then_Blk) | 01319 (ONE << Where_Else_Blk) | 01320 (ONE << Where_Else_Mask_Blk) | 01321 (ONE << Parallel_Blk) | 01322 (ONE << SGI_Parallel_Blk) | 01323 (ONE << Doall_Blk) | 01324 (ONE << Wait_Blk) | 01325 (ONE << SGI_Doacross_Blk) | 01326 (ONE << SGI_Parallel_Do_Blk) | 01327 (ONE << Do_Parallel_Blk) | 01328 (ONE << SGI_Pdo_Blk) | 01329 (ONE << Guard_Blk) | 01330 (ONE << SGI_Critical_Section_Blk) | 01331 (ONE << Parallel_Case_Blk) | 01332 (ONE << SGI_Psection_Blk) | 01333 (ONE << SGI_Section_Blk) | 01334 (ONE << SGI_Single_Process_Blk) | 01335 (ONE << Open_Mp_Parallel_Blk) | 01336 (ONE << Open_Mp_Do_Blk) | 01337 (ONE << Open_Mp_Parallel_Sections_Blk) | 01338 (ONE << Open_Mp_Sections_Blk) | 01339 (ONE << Open_Mp_Section_Blk) | 01340 (ONE << Open_Mp_Single_Blk) | 01341 (ONE << Open_Mp_Parallel_Do_Blk) | 01342 (ONE << Open_Mp_Master_Blk) | 01343 (ONE << Open_Mp_Critical_Blk) | 01344 (ONE << Open_Mp_Ordered_Blk) | 01345 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01346 (ONE << Open_Mp_Workshare_Blk) | 01347 (ONE << Contains_Blk) | 01348 (ONE << Interface_Blk) | 01349 (ONE << Derived_Type_Blk)), 01350 01351 /***** Pointer_Stmt *****/ 01352 01353 ((ONE << Unknown_Blk) | 01354 (ONE << Forall_Blk) | 01355 (ONE << If_Blk) | 01356 (ONE << If_Then_Blk) | 01357 (ONE << If_Else_If_Blk) | 01358 (ONE << If_Else_Blk) | 01359 (ONE << Do_Blk) | 01360 (ONE << Select_Blk) | 01361 (ONE << Case_Blk) | 01362 (ONE << Where_Then_Blk) | 01363 (ONE << Where_Else_Blk) | 01364 (ONE << Where_Else_Mask_Blk) | 01365 (ONE << Parallel_Blk) | 01366 (ONE << SGI_Parallel_Blk) | 01367 (ONE << Doall_Blk) | 01368 (ONE << Wait_Blk) | 01369 (ONE << SGI_Doacross_Blk) | 01370 (ONE << SGI_Parallel_Do_Blk) | 01371 (ONE << Do_Parallel_Blk) | 01372 (ONE << SGI_Pdo_Blk) | 01373 (ONE << Guard_Blk) | 01374 (ONE << SGI_Critical_Section_Blk) | 01375 (ONE << Parallel_Case_Blk) | 01376 (ONE << SGI_Psection_Blk) | 01377 (ONE << SGI_Section_Blk) | 01378 (ONE << SGI_Single_Process_Blk) | 01379 (ONE << Open_Mp_Parallel_Blk) | 01380 (ONE << Open_Mp_Do_Blk) | 01381 (ONE << Open_Mp_Parallel_Sections_Blk) | 01382 (ONE << Open_Mp_Sections_Blk) | 01383 (ONE << Open_Mp_Section_Blk) | 01384 (ONE << Open_Mp_Single_Blk) | 01385 (ONE << Open_Mp_Parallel_Do_Blk) | 01386 (ONE << Open_Mp_Master_Blk) | 01387 (ONE << Open_Mp_Critical_Blk) | 01388 (ONE << Open_Mp_Ordered_Blk) | 01389 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01390 (ONE << Open_Mp_Workshare_Blk) | 01391 (ONE << Contains_Blk) | 01392 (ONE << Interface_Blk) | 01393 (ONE << Derived_Type_Blk)), 01394 01395 /***** Private_Stmt *****/ 01396 01397 ((ONE << Unknown_Blk) | 01398 (ONE << Blockdata_Blk) | 01399 (ONE << Program_Blk) | 01400 (ONE << Function_Blk) | 01401 (ONE << Subroutine_Blk) | 01402 (ONE << Internal_Blk) | 01403 (ONE << Module_Proc_Blk) | 01404 (ONE << Forall_Blk) | 01405 (ONE << If_Blk) | 01406 (ONE << If_Then_Blk) | 01407 (ONE << If_Else_If_Blk) | 01408 (ONE << If_Else_Blk) | 01409 (ONE << Do_Blk) | 01410 (ONE << Select_Blk) | 01411 (ONE << Case_Blk) | 01412 (ONE << Where_Then_Blk) | 01413 (ONE << Where_Else_Blk) | 01414 (ONE << Where_Else_Mask_Blk) | 01415 (ONE << Parallel_Blk) | 01416 (ONE << SGI_Parallel_Blk) | 01417 (ONE << Doall_Blk) | 01418 (ONE << Wait_Blk) | 01419 (ONE << SGI_Doacross_Blk) | 01420 (ONE << SGI_Parallel_Do_Blk) | 01421 (ONE << Do_Parallel_Blk) | 01422 (ONE << SGI_Pdo_Blk) | 01423 (ONE << Guard_Blk) | 01424 (ONE << SGI_Critical_Section_Blk) | 01425 (ONE << Parallel_Case_Blk) | 01426 (ONE << SGI_Psection_Blk) | 01427 (ONE << SGI_Section_Blk) | 01428 (ONE << SGI_Single_Process_Blk) | 01429 (ONE << Open_Mp_Parallel_Blk) | 01430 (ONE << Open_Mp_Do_Blk) | 01431 (ONE << Open_Mp_Parallel_Sections_Blk) | 01432 (ONE << Open_Mp_Sections_Blk) | 01433 (ONE << Open_Mp_Section_Blk) | 01434 (ONE << Open_Mp_Single_Blk) | 01435 (ONE << Open_Mp_Parallel_Do_Blk) | 01436 (ONE << Open_Mp_Master_Blk) | 01437 (ONE << Open_Mp_Critical_Blk) | 01438 (ONE << Open_Mp_Ordered_Blk) | 01439 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01440 (ONE << Open_Mp_Workshare_Blk) | 01441 (ONE << Contains_Blk) | 01442 (ONE << Interface_Blk)), 01443 01444 /***** Public_Stmt *****/ 01445 01446 ((ONE << Unknown_Blk) | 01447 (ONE << Blockdata_Blk) | 01448 (ONE << Program_Blk) | 01449 (ONE << Function_Blk) | 01450 (ONE << Subroutine_Blk) | 01451 (ONE << Internal_Blk) | 01452 (ONE << Module_Proc_Blk) | 01453 (ONE << Forall_Blk) | 01454 (ONE << If_Blk) | 01455 (ONE << If_Then_Blk) | 01456 (ONE << If_Else_If_Blk) | 01457 (ONE << If_Else_Blk) | 01458 (ONE << Do_Blk) | 01459 (ONE << Select_Blk) | 01460 (ONE << Case_Blk) | 01461 (ONE << Where_Then_Blk) | 01462 (ONE << Where_Else_Blk) | 01463 (ONE << Where_Else_Mask_Blk) | 01464 (ONE << Parallel_Blk) | 01465 (ONE << SGI_Parallel_Blk) | 01466 (ONE << Doall_Blk) | 01467 (ONE << Wait_Blk) | 01468 (ONE << SGI_Doacross_Blk) | 01469 (ONE << SGI_Parallel_Do_Blk) | 01470 (ONE << Do_Parallel_Blk) | 01471 (ONE << SGI_Pdo_Blk) | 01472 (ONE << Guard_Blk) | 01473 (ONE << SGI_Critical_Section_Blk) | 01474 (ONE << Parallel_Case_Blk) | 01475 (ONE << SGI_Psection_Blk) | 01476 (ONE << SGI_Section_Blk) | 01477 (ONE << SGI_Single_Process_Blk) | 01478 (ONE << Open_Mp_Parallel_Blk) | 01479 (ONE << Open_Mp_Do_Blk) | 01480 (ONE << Open_Mp_Parallel_Sections_Blk) | 01481 (ONE << Open_Mp_Sections_Blk) | 01482 (ONE << Open_Mp_Section_Blk) | 01483 (ONE << Open_Mp_Single_Blk) | 01484 (ONE << Open_Mp_Parallel_Do_Blk) | 01485 (ONE << Open_Mp_Master_Blk) | 01486 (ONE << Open_Mp_Critical_Blk) | 01487 (ONE << Open_Mp_Ordered_Blk) | 01488 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01489 (ONE << Open_Mp_Workshare_Blk) | 01490 (ONE << Contains_Blk) | 01491 (ONE << Interface_Blk) | 01492 (ONE << Derived_Type_Blk)), 01493 01494 /***** Save_Stmt *****/ 01495 01496 ((ONE << Unknown_Blk) | 01497 (ONE << Forall_Blk) | 01498 (ONE << If_Blk) | 01499 (ONE << If_Then_Blk) | 01500 (ONE << If_Else_If_Blk) | 01501 (ONE << If_Else_Blk) | 01502 (ONE << Do_Blk) | 01503 (ONE << Select_Blk) | 01504 (ONE << Case_Blk) | 01505 (ONE << Where_Then_Blk) | 01506 (ONE << Where_Else_Blk) | 01507 (ONE << Where_Else_Mask_Blk) | 01508 (ONE << Parallel_Blk) | 01509 (ONE << SGI_Parallel_Blk) | 01510 (ONE << Doall_Blk) | 01511 (ONE << Wait_Blk) | 01512 (ONE << SGI_Doacross_Blk) | 01513 (ONE << SGI_Parallel_Do_Blk) | 01514 (ONE << Do_Parallel_Blk) | 01515 (ONE << SGI_Pdo_Blk) | 01516 (ONE << Guard_Blk) | 01517 (ONE << SGI_Critical_Section_Blk) | 01518 (ONE << Parallel_Case_Blk) | 01519 (ONE << SGI_Psection_Blk) | 01520 (ONE << SGI_Section_Blk) | 01521 (ONE << SGI_Single_Process_Blk) | 01522 (ONE << Open_Mp_Parallel_Blk) | 01523 (ONE << Open_Mp_Do_Blk) | 01524 (ONE << Open_Mp_Parallel_Sections_Blk) | 01525 (ONE << Open_Mp_Sections_Blk) | 01526 (ONE << Open_Mp_Section_Blk) | 01527 (ONE << Open_Mp_Single_Blk) | 01528 (ONE << Open_Mp_Parallel_Do_Blk) | 01529 (ONE << Open_Mp_Master_Blk) | 01530 (ONE << Open_Mp_Critical_Blk) | 01531 (ONE << Open_Mp_Ordered_Blk) | 01532 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01533 (ONE << Open_Mp_Workshare_Blk) | 01534 (ONE << Contains_Blk) | 01535 (ONE << Interface_Blk) | 01536 (ONE << Derived_Type_Blk)), 01537 01538 /***** Sequence_Stmt *****/ 01539 01540 ((ONE << Unknown_Blk) | 01541 (ONE << Blockdata_Blk) | 01542 (ONE << Module_Blk) | 01543 (ONE << Program_Blk) | 01544 (ONE << Function_Blk) | 01545 (ONE << Subroutine_Blk) | 01546 (ONE << Internal_Blk) | 01547 (ONE << Module_Proc_Blk) | 01548 (ONE << Interface_Body_Blk) | 01549 (ONE << Forall_Blk) | 01550 (ONE << If_Blk) | 01551 (ONE << If_Then_Blk) | 01552 (ONE << If_Else_If_Blk) | 01553 (ONE << If_Else_Blk) | 01554 (ONE << Do_Blk) | 01555 (ONE << Select_Blk) | 01556 (ONE << Case_Blk) | 01557 (ONE << Where_Then_Blk) | 01558 (ONE << Where_Else_Blk) | 01559 (ONE << Where_Else_Mask_Blk) | 01560 (ONE << Parallel_Blk) | 01561 (ONE << SGI_Parallel_Blk) | 01562 (ONE << Doall_Blk) | 01563 (ONE << Wait_Blk) | 01564 (ONE << SGI_Doacross_Blk) | 01565 (ONE << SGI_Parallel_Do_Blk) | 01566 (ONE << Do_Parallel_Blk) | 01567 (ONE << SGI_Pdo_Blk) | 01568 (ONE << Guard_Blk) | 01569 (ONE << SGI_Critical_Section_Blk) | 01570 (ONE << Parallel_Case_Blk) | 01571 (ONE << SGI_Psection_Blk) | 01572 (ONE << SGI_Section_Blk) | 01573 (ONE << SGI_Single_Process_Blk) | 01574 (ONE << Open_Mp_Parallel_Blk) | 01575 (ONE << Open_Mp_Do_Blk) | 01576 (ONE << Open_Mp_Parallel_Sections_Blk) | 01577 (ONE << Open_Mp_Sections_Blk) | 01578 (ONE << Open_Mp_Section_Blk) | 01579 (ONE << Open_Mp_Single_Blk) | 01580 (ONE << Open_Mp_Parallel_Do_Blk) | 01581 (ONE << Open_Mp_Master_Blk) | 01582 (ONE << Open_Mp_Critical_Blk) | 01583 (ONE << Open_Mp_Ordered_Blk) | 01584 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01585 (ONE << Open_Mp_Workshare_Blk) | 01586 (ONE << Contains_Blk) | 01587 (ONE << Interface_Blk)), 01588 01589 /***** Stmt_Func_Stmt *****/ 01590 01591 ((ONE << Unknown_Blk) | 01592 (ONE << Blockdata_Blk) | 01593 (ONE << Module_Blk) | 01594 (ONE << Interface_Body_Blk) | 01595 (ONE << Forall_Blk) | 01596 (ONE << If_Blk) | 01597 (ONE << If_Then_Blk) | 01598 (ONE << If_Else_If_Blk) | 01599 (ONE << If_Else_Blk) | 01600 (ONE << Do_Blk) | 01601 (ONE << Select_Blk) | 01602 (ONE << Case_Blk) | 01603 (ONE << Where_Then_Blk) | 01604 (ONE << Where_Else_Blk) | 01605 (ONE << Where_Else_Mask_Blk) | 01606 (ONE << Parallel_Blk) | 01607 (ONE << SGI_Parallel_Blk) | 01608 (ONE << Doall_Blk) | 01609 (ONE << Wait_Blk) | 01610 (ONE << SGI_Doacross_Blk) | 01611 (ONE << SGI_Parallel_Do_Blk) | 01612 (ONE << Do_Parallel_Blk) | 01613 (ONE << SGI_Pdo_Blk) | 01614 (ONE << Guard_Blk) | 01615 (ONE << SGI_Critical_Section_Blk) | 01616 (ONE << Parallel_Case_Blk) | 01617 (ONE << SGI_Psection_Blk) | 01618 (ONE << SGI_Section_Blk) | 01619 (ONE << SGI_Single_Process_Blk) | 01620 (ONE << Open_Mp_Parallel_Blk) | 01621 (ONE << Open_Mp_Do_Blk) | 01622 (ONE << Open_Mp_Parallel_Sections_Blk) | 01623 (ONE << Open_Mp_Sections_Blk) | 01624 (ONE << Open_Mp_Section_Blk) | 01625 (ONE << Open_Mp_Single_Blk) | 01626 (ONE << Open_Mp_Parallel_Do_Blk) | 01627 (ONE << Open_Mp_Master_Blk) | 01628 (ONE << Open_Mp_Critical_Blk) | 01629 (ONE << Open_Mp_Ordered_Blk) | 01630 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01631 (ONE << Open_Mp_Workshare_Blk) | 01632 (ONE << Contains_Blk) | 01633 (ONE << Interface_Blk) | 01634 (ONE << Derived_Type_Blk)), 01635 01636 /***** Target_Stmt *****/ 01637 01638 ((ONE << Unknown_Blk) | 01639 (ONE << Forall_Blk) | 01640 (ONE << If_Blk) | 01641 (ONE << If_Then_Blk) | 01642 (ONE << If_Else_If_Blk) | 01643 (ONE << If_Else_Blk) | 01644 (ONE << Do_Blk) | 01645 (ONE << Select_Blk) | 01646 (ONE << Case_Blk) | 01647 (ONE << Where_Then_Blk) | 01648 (ONE << Where_Else_Blk) | 01649 (ONE << Where_Else_Mask_Blk) | 01650 (ONE << Parallel_Blk) | 01651 (ONE << SGI_Parallel_Blk) | 01652 (ONE << Doall_Blk) | 01653 (ONE << Wait_Blk) | 01654 (ONE << SGI_Doacross_Blk) | 01655 (ONE << SGI_Parallel_Do_Blk) | 01656 (ONE << Do_Parallel_Blk) | 01657 (ONE << SGI_Pdo_Blk) | 01658 (ONE << Guard_Blk) | 01659 (ONE << SGI_Critical_Section_Blk) | 01660 (ONE << Parallel_Case_Blk) | 01661 (ONE << SGI_Psection_Blk) | 01662 (ONE << SGI_Section_Blk) | 01663 (ONE << SGI_Single_Process_Blk) | 01664 (ONE << Open_Mp_Parallel_Blk) | 01665 (ONE << Open_Mp_Do_Blk) | 01666 (ONE << Open_Mp_Parallel_Sections_Blk) | 01667 (ONE << Open_Mp_Sections_Blk) | 01668 (ONE << Open_Mp_Section_Blk) | 01669 (ONE << Open_Mp_Single_Blk) | 01670 (ONE << Open_Mp_Parallel_Do_Blk) | 01671 (ONE << Open_Mp_Master_Blk) | 01672 (ONE << Open_Mp_Critical_Blk) | 01673 (ONE << Open_Mp_Ordered_Blk) | 01674 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01675 (ONE << Open_Mp_Workshare_Blk) | 01676 (ONE << Contains_Blk) | 01677 (ONE << Interface_Blk) | 01678 (ONE << Derived_Type_Blk)), 01679 01680 /***** Task_Common_Stmt *****/ 01681 01682 ((ONE << Unknown_Blk) | 01683 (ONE << Module_Blk) | 01684 (ONE << Interface_Body_Blk) | 01685 (ONE << Internal_Blk) | 01686 (ONE << Module_Proc_Blk) | 01687 (ONE << Forall_Blk) | 01688 (ONE << If_Blk) | 01689 (ONE << If_Then_Blk) | 01690 (ONE << If_Else_If_Blk) | 01691 (ONE << If_Else_Blk) | 01692 (ONE << Do_Blk) | 01693 (ONE << Select_Blk) | 01694 (ONE << Case_Blk) | 01695 (ONE << Where_Then_Blk) | 01696 (ONE << Where_Else_Blk) | 01697 (ONE << Where_Else_Mask_Blk) | 01698 (ONE << Parallel_Blk) | 01699 (ONE << SGI_Parallel_Blk) | 01700 (ONE << Doall_Blk) | 01701 (ONE << Wait_Blk) | 01702 (ONE << SGI_Doacross_Blk) | 01703 (ONE << SGI_Parallel_Do_Blk) | 01704 (ONE << Do_Parallel_Blk) | 01705 (ONE << SGI_Pdo_Blk) | 01706 (ONE << Guard_Blk) | 01707 (ONE << SGI_Critical_Section_Blk) | 01708 (ONE << Parallel_Case_Blk) | 01709 (ONE << SGI_Psection_Blk) | 01710 (ONE << SGI_Section_Blk) | 01711 (ONE << SGI_Single_Process_Blk) | 01712 (ONE << Open_Mp_Parallel_Blk) | 01713 (ONE << Open_Mp_Do_Blk) | 01714 (ONE << Open_Mp_Parallel_Sections_Blk) | 01715 (ONE << Open_Mp_Sections_Blk) | 01716 (ONE << Open_Mp_Section_Blk) | 01717 (ONE << Open_Mp_Single_Blk) | 01718 (ONE << Open_Mp_Parallel_Do_Blk) | 01719 (ONE << Open_Mp_Master_Blk) | 01720 (ONE << Open_Mp_Critical_Blk) | 01721 (ONE << Open_Mp_Ordered_Blk) | 01722 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01723 (ONE << Open_Mp_Workshare_Blk) | 01724 (ONE << Contains_Blk) | 01725 (ONE << Interface_Blk) | 01726 (ONE << Derived_Type_Blk)), 01727 01728 /***** Type_Decl_Stmt *****/ 01729 01730 ((ONE << Unknown_Blk) | 01731 (ONE << Forall_Blk) | 01732 (ONE << If_Blk) | 01733 (ONE << If_Then_Blk) | 01734 (ONE << If_Else_If_Blk) | 01735 (ONE << If_Else_Blk) | 01736 (ONE << Do_Blk) | 01737 (ONE << Select_Blk) | 01738 (ONE << Case_Blk) | 01739 (ONE << Where_Then_Blk) | 01740 (ONE << Where_Else_Blk) | 01741 (ONE << Where_Else_Mask_Blk) | 01742 (ONE << Parallel_Blk) | 01743 (ONE << SGI_Parallel_Blk) | 01744 (ONE << Doall_Blk) | 01745 (ONE << SGI_Doacross_Blk) | 01746 (ONE << SGI_Parallel_Do_Blk) | 01747 (ONE << Do_Parallel_Blk) | 01748 (ONE << Wait_Blk) | 01749 (ONE << SGI_Pdo_Blk) | 01750 (ONE << Guard_Blk) | 01751 (ONE << SGI_Critical_Section_Blk) | 01752 (ONE << Parallel_Case_Blk) | 01753 (ONE << SGI_Psection_Blk) | 01754 (ONE << SGI_Section_Blk) | 01755 (ONE << SGI_Single_Process_Blk) | 01756 (ONE << Open_Mp_Parallel_Blk) | 01757 (ONE << Open_Mp_Do_Blk) | 01758 (ONE << Open_Mp_Parallel_Sections_Blk) | 01759 (ONE << Open_Mp_Sections_Blk) | 01760 (ONE << Open_Mp_Section_Blk) | 01761 (ONE << Open_Mp_Single_Blk) | 01762 (ONE << Open_Mp_Parallel_Do_Blk) | 01763 (ONE << Open_Mp_Master_Blk) | 01764 (ONE << Open_Mp_Critical_Blk) | 01765 (ONE << Open_Mp_Ordered_Blk) | 01766 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01767 (ONE << Open_Mp_Workshare_Blk) | 01768 (ONE << Contains_Blk) | 01769 (ONE << Interface_Blk)), 01770 01771 /***** Use_Stmt *****/ 01772 01773 ((ONE << Unknown_Blk) | 01774 (ONE << Forall_Blk) | 01775 (ONE << If_Blk) | 01776 (ONE << If_Then_Blk) | 01777 (ONE << If_Else_If_Blk) | 01778 (ONE << If_Else_Blk) | 01779 (ONE << Do_Blk) | 01780 (ONE << Select_Blk) | 01781 (ONE << Case_Blk) | 01782 (ONE << Where_Then_Blk) | 01783 (ONE << Where_Else_Blk) | 01784 (ONE << Where_Else_Mask_Blk) | 01785 (ONE << Parallel_Blk) | 01786 (ONE << SGI_Parallel_Blk) | 01787 (ONE << Doall_Blk) | 01788 (ONE << SGI_Doacross_Blk) | 01789 (ONE << SGI_Parallel_Do_Blk) | 01790 (ONE << Do_Parallel_Blk) | 01791 (ONE << Wait_Blk) | 01792 (ONE << SGI_Pdo_Blk) | 01793 (ONE << Guard_Blk) | 01794 (ONE << SGI_Critical_Section_Blk) | 01795 (ONE << Parallel_Case_Blk) | 01796 (ONE << SGI_Psection_Blk) | 01797 (ONE << SGI_Section_Blk) | 01798 (ONE << SGI_Single_Process_Blk) | 01799 (ONE << Open_Mp_Parallel_Blk) | 01800 (ONE << Open_Mp_Do_Blk) | 01801 (ONE << Open_Mp_Parallel_Sections_Blk) | 01802 (ONE << Open_Mp_Sections_Blk) | 01803 (ONE << Open_Mp_Section_Blk) | 01804 (ONE << Open_Mp_Single_Blk) | 01805 (ONE << Open_Mp_Parallel_Do_Blk) | 01806 (ONE << Open_Mp_Master_Blk) | 01807 (ONE << Open_Mp_Critical_Blk) | 01808 (ONE << Open_Mp_Ordered_Blk) | 01809 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01810 (ONE << Open_Mp_Workshare_Blk) | 01811 (ONE << Contains_Blk) | 01812 (ONE << Interface_Blk) | 01813 (ONE << Derived_Type_Blk)), 01814 01815 01816 /***** Blockdata_Stmt *****/ 01817 01818 ((ONE << Unknown_Blk) | 01819 (ONE << Blockdata_Blk) | 01820 (ONE << Module_Blk) | 01821 (ONE << Function_Blk) | 01822 (ONE << Subroutine_Blk) | 01823 (ONE << Internal_Blk) | 01824 (ONE << Module_Proc_Blk) | 01825 (ONE << Interface_Body_Blk) | 01826 (ONE << Forall_Blk) | 01827 (ONE << If_Blk) | 01828 (ONE << If_Then_Blk) | 01829 (ONE << If_Else_If_Blk) | 01830 (ONE << If_Else_Blk) | 01831 (ONE << Do_Blk) | 01832 (ONE << Select_Blk) | 01833 (ONE << Case_Blk) | 01834 (ONE << Where_Then_Blk) | 01835 (ONE << Where_Else_Blk) | 01836 (ONE << Where_Else_Mask_Blk) | 01837 (ONE << Parallel_Blk) | 01838 (ONE << SGI_Parallel_Blk) | 01839 (ONE << Doall_Blk) | 01840 (ONE << Wait_Blk) | 01841 (ONE << SGI_Doacross_Blk) | 01842 (ONE << SGI_Parallel_Do_Blk) | 01843 (ONE << Do_Parallel_Blk) | 01844 (ONE << SGI_Pdo_Blk) | 01845 (ONE << Guard_Blk) | 01846 (ONE << SGI_Critical_Section_Blk) | 01847 (ONE << Parallel_Case_Blk) | 01848 (ONE << SGI_Psection_Blk) | 01849 (ONE << SGI_Section_Blk) | 01850 (ONE << SGI_Single_Process_Blk) | 01851 (ONE << Open_Mp_Parallel_Blk) | 01852 (ONE << Open_Mp_Do_Blk) | 01853 (ONE << Open_Mp_Parallel_Sections_Blk) | 01854 (ONE << Open_Mp_Sections_Blk) | 01855 (ONE << Open_Mp_Section_Blk) | 01856 (ONE << Open_Mp_Single_Blk) | 01857 (ONE << Open_Mp_Parallel_Do_Blk) | 01858 (ONE << Open_Mp_Master_Blk) | 01859 (ONE << Open_Mp_Critical_Blk) | 01860 (ONE << Open_Mp_Ordered_Blk) | 01861 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01862 (ONE << Open_Mp_Workshare_Blk) | 01863 (ONE << Contains_Blk) | 01864 (ONE << Interface_Blk) | 01865 (ONE << Derived_Type_Blk)), 01866 01867 /***** Elemental_Stmt *****/ 01868 01869 ((ONE << Unknown_Blk) | 01870 (ONE << Blockdata_Blk) | 01871 (ONE << Module_Blk) | 01872 (ONE << Function_Blk) | 01873 (ONE << Subroutine_Blk) | 01874 (ONE << Internal_Blk) | 01875 (ONE << Module_Proc_Blk) | 01876 (ONE << Interface_Body_Blk) | 01877 (ONE << Forall_Blk) | 01878 (ONE << If_Blk) | 01879 (ONE << If_Then_Blk) | 01880 (ONE << If_Else_If_Blk) | 01881 (ONE << If_Else_Blk) | 01882 (ONE << Do_Blk) | 01883 (ONE << Select_Blk) | 01884 (ONE << Case_Blk) | 01885 (ONE << Where_Then_Blk) | 01886 (ONE << Where_Else_Blk) | 01887 (ONE << Where_Else_Mask_Blk) | 01888 (ONE << Parallel_Blk) | 01889 (ONE << SGI_Parallel_Blk) | 01890 (ONE << Doall_Blk) | 01891 (ONE << Wait_Blk) | 01892 (ONE << SGI_Doacross_Blk) | 01893 (ONE << SGI_Parallel_Do_Blk) | 01894 (ONE << Do_Parallel_Blk) | 01895 (ONE << SGI_Pdo_Blk) | 01896 (ONE << Guard_Blk) | 01897 (ONE << SGI_Critical_Section_Blk) | 01898 (ONE << Parallel_Case_Blk) | 01899 (ONE << SGI_Psection_Blk) | 01900 (ONE << SGI_Section_Blk) | 01901 (ONE << SGI_Single_Process_Blk) | 01902 (ONE << Derived_Type_Blk)), 01903 01904 /***** Function_Stmt *****/ 01905 01906 ((ONE << Unknown_Blk) | 01907 (ONE << Blockdata_Blk) | 01908 (ONE << Module_Blk) | 01909 (ONE << Program_Blk) | 01910 (ONE << Function_Blk) | 01911 (ONE << Subroutine_Blk) | 01912 (ONE << Internal_Blk) | 01913 (ONE << Module_Proc_Blk) | 01914 (ONE << Interface_Body_Blk) | 01915 (ONE << Forall_Blk) | 01916 (ONE << If_Blk) | 01917 (ONE << If_Then_Blk) | 01918 (ONE << If_Else_If_Blk) | 01919 (ONE << If_Else_Blk) | 01920 (ONE << Do_Blk) | 01921 (ONE << Select_Blk) | 01922 (ONE << Case_Blk) | 01923 (ONE << Where_Then_Blk) | 01924 (ONE << Where_Else_Blk) | 01925 (ONE << Where_Else_Mask_Blk) | 01926 (ONE << Parallel_Blk) | 01927 (ONE << SGI_Parallel_Blk) | 01928 (ONE << Doall_Blk) | 01929 (ONE << Wait_Blk) | 01930 (ONE << SGI_Doacross_Blk) | 01931 (ONE << SGI_Parallel_Do_Blk) | 01932 (ONE << Do_Parallel_Blk) | 01933 (ONE << SGI_Pdo_Blk) | 01934 (ONE << Guard_Blk) | 01935 (ONE << SGI_Critical_Section_Blk) | 01936 (ONE << Parallel_Case_Blk) | 01937 (ONE << SGI_Psection_Blk) | 01938 (ONE << SGI_Section_Blk) | 01939 (ONE << SGI_Single_Process_Blk) | 01940 (ONE << Derived_Type_Blk)), 01941 01942 /***** Module_Stmt *****/ 01943 01944 ((ONE << Unknown_Blk) | 01945 (ONE << Blockdata_Blk) | 01946 (ONE << Module_Blk) | 01947 (ONE << Function_Blk) | 01948 (ONE << Subroutine_Blk) | 01949 (ONE << Internal_Blk) | 01950 (ONE << Module_Proc_Blk) | 01951 (ONE << Interface_Body_Blk) | 01952 (ONE << Forall_Blk) | 01953 (ONE << If_Blk) | 01954 (ONE << If_Then_Blk) | 01955 (ONE << If_Else_If_Blk) | 01956 (ONE << If_Else_Blk) | 01957 (ONE << Do_Blk) | 01958 (ONE << Select_Blk) | 01959 (ONE << Case_Blk) | 01960 (ONE << Where_Then_Blk) | 01961 (ONE << Where_Else_Blk) | 01962 (ONE << Where_Else_Mask_Blk) | 01963 (ONE << Parallel_Blk) | 01964 (ONE << SGI_Parallel_Blk) | 01965 (ONE << Doall_Blk) | 01966 (ONE << Wait_Blk) | 01967 (ONE << SGI_Doacross_Blk) | 01968 (ONE << SGI_Parallel_Do_Blk) | 01969 (ONE << Do_Parallel_Blk) | 01970 (ONE << SGI_Pdo_Blk) | 01971 (ONE << Guard_Blk) | 01972 (ONE << SGI_Critical_Section_Blk) | 01973 (ONE << Parallel_Case_Blk) | 01974 (ONE << SGI_Psection_Blk) | 01975 (ONE << SGI_Section_Blk) | 01976 (ONE << SGI_Single_Process_Blk) | 01977 (ONE << Open_Mp_Parallel_Blk) | 01978 (ONE << Open_Mp_Do_Blk) | 01979 (ONE << Open_Mp_Parallel_Sections_Blk) | 01980 (ONE << Open_Mp_Sections_Blk) | 01981 (ONE << Open_Mp_Section_Blk) | 01982 (ONE << Open_Mp_Single_Blk) | 01983 (ONE << Open_Mp_Parallel_Do_Blk) | 01984 (ONE << Open_Mp_Master_Blk) | 01985 (ONE << Open_Mp_Critical_Blk) | 01986 (ONE << Open_Mp_Ordered_Blk) | 01987 (ONE << Open_Mp_Parallel_Workshare_Blk) | 01988 (ONE << Open_Mp_Workshare_Blk) | 01989 (ONE << Contains_Blk) | 01990 (ONE << Interface_Blk) | 01991 (ONE << Derived_Type_Blk)), 01992 01993 /***** Program_Stmt *****/ 01994 01995 ((ONE << Unknown_Blk) | 01996 (ONE << Blockdata_Blk) | 01997 (ONE << Module_Blk) | 01998 (ONE << Function_Blk) | 01999 (ONE << Subroutine_Blk) | 02000 (ONE << Internal_Blk) | 02001 (ONE << Module_Proc_Blk) | 02002 (ONE << Interface_Body_Blk) | 02003 (ONE << Forall_Blk) | 02004 (ONE << If_Blk) | 02005 (ONE << If_Then_Blk) | 02006 (ONE << If_Else_If_Blk) | 02007 (ONE << If_Else_Blk) | 02008 (ONE << Do_Blk) | 02009 (ONE << Select_Blk) | 02010 (ONE << Case_Blk) | 02011 (ONE << Where_Then_Blk) | 02012 (ONE << Where_Else_Blk) | 02013 (ONE << Where_Else_Mask_Blk) | 02014 (ONE << Parallel_Blk) | 02015 (ONE << SGI_Parallel_Blk) | 02016 (ONE << Doall_Blk) | 02017 (ONE << Wait_Blk) | 02018 (ONE << SGI_Doacross_Blk) | 02019 (ONE << SGI_Parallel_Do_Blk) | 02020 (ONE << Do_Parallel_Blk) | 02021 (ONE << SGI_Pdo_Blk) | 02022 (ONE << Guard_Blk) | 02023 (ONE << SGI_Critical_Section_Blk) | 02024 (ONE << Parallel_Case_Blk) | 02025 (ONE << SGI_Psection_Blk) | 02026 (ONE << SGI_Section_Blk) | 02027 (ONE << SGI_Single_Process_Blk) | 02028 (ONE << Open_Mp_Parallel_Blk) | 02029 (ONE << Open_Mp_Do_Blk) | 02030 (ONE << Open_Mp_Parallel_Sections_Blk) | 02031 (ONE << Open_Mp_Sections_Blk) | 02032 (ONE << Open_Mp_Section_Blk) | 02033 (ONE << Open_Mp_Single_Blk) | 02034 (ONE << Open_Mp_Parallel_Do_Blk) | 02035 (ONE << Open_Mp_Master_Blk) | 02036 (ONE << Open_Mp_Critical_Blk) | 02037 (ONE << Open_Mp_Ordered_Blk) | 02038 (ONE << Open_Mp_Parallel_Workshare_Blk) | 02039 (ONE << Open_Mp_Workshare_Blk) | 02040 (ONE << Contains_Blk) | 02041 (ONE << Interface_Blk) | 02042 (ONE << Derived_Type_Blk)), 02043 02044 /***** Pure_Stmt *****/ 02045 02046 ((ONE << Unknown_Blk) | 02047 (ONE << Blockdata_Blk) | 02048 (ONE << Module_Blk) | 02049 (ONE << Function_Blk) | 02050 (ONE << Subroutine_Blk) | 02051 (ONE << Internal_Blk) | 02052 (ONE << Module_Proc_Blk) | 02053 (ONE << Interface_Body_Blk) | 02054 (ONE << Forall_Blk) | 02055 (ONE << If_Blk) | 02056 (ONE << If_Then_Blk) | 02057 (ONE << If_Else_If_Blk) | 02058 (ONE << If_Else_Blk) | 02059 (ONE << Do_Blk) | 02060 (ONE << Select_Blk) | 02061 (ONE << Case_Blk) | 02062 (ONE << Where_Then_Blk) | 02063 (ONE << Where_Else_Blk) | 02064 (ONE << Where_Else_Mask_Blk) | 02065 (ONE << Parallel_Blk) | 02066 (ONE << SGI_Parallel_Blk) | 02067 (ONE << Doall_Blk) | 02068 (ONE << Wait_Blk) | 02069 (ONE << SGI_Doacross_Blk) | 02070 (ONE << SGI_Parallel_Do_Blk) | 02071 (ONE << Do_Parallel_Blk) | 02072 (ONE << SGI_Pdo_Blk) | 02073 (ONE << Guard_Blk) | 02074 (ONE << SGI_Critical_Section_Blk) | 02075 (ONE << Parallel_Case_Blk) | 02076 (ONE << SGI_Psection_Blk) | 02077 (ONE << SGI_Section_Blk) | 02078 (ONE << SGI_Single_Process_Blk) | 02079 (ONE << Derived_Type_Blk)), 02080 02081 /***** Recursive_Stmt *****/ 02082 02083 ((ONE << Unknown_Blk) | 02084 (ONE << Blockdata_Blk) | 02085 (ONE << Module_Blk) | 02086 (ONE << Function_Blk) | 02087 (ONE << Subroutine_Blk) | 02088 (ONE << Internal_Blk) | 02089 (ONE << Module_Proc_Blk) | 02090 (ONE << Interface_Body_Blk) | 02091 (ONE << Forall_Blk) | 02092 (ONE << If_Blk) | 02093 (ONE << If_Then_Blk) | 02094 (ONE << If_Else_If_Blk) | 02095 (ONE << If_Else_Blk) | 02096 (ONE << Do_Blk) | 02097 (ONE << Select_Blk) | 02098 (ONE << Case_Blk) | 02099 (ONE << Where_Then_Blk) | 02100 (ONE << Where_Else_Blk) | 02101 (ONE << Where_Else_Mask_Blk) | 02102 (ONE << Parallel_Blk) | 02103 (ONE << SGI_Parallel_Blk) | 02104 (ONE << Doall_Blk) | 02105 (ONE << Wait_Blk) | 02106 (ONE << SGI_Doacross_Blk) | 02107 (ONE << SGI_Parallel_Do_Blk) | 02108 (ONE << Do_Parallel_Blk) | 02109 (ONE << SGI_Pdo_Blk) | 02110 (ONE << Guard_Blk) | 02111 (ONE << SGI_Critical_Section_Blk) | 02112 (ONE << Parallel_Case_Blk) | 02113 (ONE << SGI_Psection_Blk) | 02114 (ONE << SGI_Section_Blk) | 02115 (ONE << SGI_Single_Process_Blk) | 02116 (ONE << Derived_Type_Blk)), 02117 02118 /***** Subroutine_Stmt *****/ 02119 02120 ((ONE << Unknown_Blk) | 02121 (ONE << Blockdata_Blk) | 02122 (ONE << Module_Blk) | 02123 (ONE << Function_Blk) | 02124 (ONE << Subroutine_Blk) | 02125 (ONE << Internal_Blk) | 02126 (ONE << Module_Proc_Blk) | 02127 (ONE << Interface_Body_Blk) | 02128 (ONE << Forall_Blk) | 02129 (ONE << If_Blk) | 02130 (ONE << If_Then_Blk) | 02131 (ONE << If_Else_If_Blk) | 02132 (ONE << If_Else_Blk) | 02133 (ONE << Do_Blk) | 02134 (ONE << Select_Blk) | 02135 (ONE << Case_Blk) | 02136 (ONE << Where_Then_Blk) | 02137 (ONE << Where_Else_Blk) | 02138 (ONE << Where_Else_Mask_Blk) | 02139 (ONE << Parallel_Blk) | 02140 (ONE << SGI_Parallel_Blk) | 02141 (ONE << Doall_Blk) | 02142 (ONE << Wait_Blk) | 02143 (ONE << SGI_Doacross_Blk) | 02144 (ONE << SGI_Parallel_Do_Blk) | 02145 (ONE << Do_Parallel_Blk) | 02146 (ONE << SGI_Pdo_Blk) | 02147 (ONE << Guard_Blk) | 02148 (ONE << SGI_Critical_Section_Blk) | 02149 (ONE << Parallel_Case_Blk) | 02150 (ONE << SGI_Psection_Blk) | 02151 (ONE << SGI_Section_Blk) | 02152 (ONE << SGI_Single_Process_Blk) | 02153 (ONE << Derived_Type_Blk)), 02154 02155 /***** End_Blockdata_Stmt *****/ 02156 02157 ((ONE << Unknown_Blk) | 02158 (ONE << Module_Blk) | 02159 (ONE << Program_Blk) | 02160 (ONE << Function_Blk) | 02161 (ONE << Subroutine_Blk) | 02162 (ONE << Internal_Blk) | 02163 (ONE << Module_Proc_Blk) | 02164 (ONE << Interface_Body_Blk) | 02165 (ONE << Forall_Blk) | 02166 (ONE << If_Blk) | 02167 (ONE << If_Then_Blk) | 02168 (ONE << If_Else_If_Blk) | 02169 (ONE << If_Else_Blk) | 02170 (ONE << Do_Blk) | 02171 (ONE << Select_Blk) | 02172 (ONE << Case_Blk) | 02173 (ONE << Where_Then_Blk) | 02174 (ONE << Where_Else_Blk) | 02175 (ONE << Where_Else_Mask_Blk) | 02176 (ONE << Parallel_Blk) | 02177 (ONE << SGI_Parallel_Blk) | 02178 (ONE << Doall_Blk) | 02179 (ONE << Wait_Blk) | 02180 (ONE << SGI_Doacross_Blk) | 02181 (ONE << SGI_Parallel_Do_Blk) | 02182 (ONE << Do_Parallel_Blk) | 02183 (ONE << SGI_Pdo_Blk) | 02184 (ONE << Guard_Blk) | 02185 (ONE << SGI_Critical_Section_Blk) | 02186 (ONE << Parallel_Case_Blk) | 02187 (ONE << SGI_Psection_Blk) | 02188 (ONE << SGI_Section_Blk) | 02189 (ONE << SGI_Single_Process_Blk) | 02190 (ONE << SGI_Region_Blk) | 02191 (ONE << Open_Mp_Parallel_Blk) | 02192 (ONE << Open_Mp_Do_Blk) | 02193 (ONE << Open_Mp_Parallel_Sections_Blk) | 02194 (ONE << Open_Mp_Sections_Blk) | 02195 (ONE << Open_Mp_Section_Blk) | 02196 (ONE << Open_Mp_Single_Blk) | 02197 (ONE << Open_Mp_Parallel_Do_Blk) | 02198 (ONE << Open_Mp_Master_Blk) | 02199 (ONE << Open_Mp_Critical_Blk) | 02200 (ONE << Open_Mp_Ordered_Blk) | 02201 (ONE << Open_Mp_Parallel_Workshare_Blk) | 02202 (ONE << Open_Mp_Workshare_Blk) | 02203 (ONE << Contains_Blk) | 02204 (ONE << Interface_Blk) | 02205 (ONE << Derived_Type_Blk)), 02206 02207 /***** End_Do_Stmt *****/ 02208 02209 ((ONE << Unknown_Blk) | 02210 (ONE << Blockdata_Blk) | 02211 (ONE << Module_Blk) | 02212 (ONE << Program_Blk) | 02213 (ONE << Function_Blk) | 02214 (ONE << Subroutine_Blk) | 02215 (ONE << Internal_Blk) | 02216 (ONE << Module_Proc_Blk) | 02217 (ONE << Interface_Body_Blk) | 02218 (ONE << Forall_Blk) | 02219 (ONE << If_Blk) | 02220 (ONE << If_Then_Blk) | 02221 (ONE << If_Else_If_Blk) | 02222 (ONE << If_Else_Blk) | 02223 (ONE << Select_Blk) | 02224 (ONE << Case_Blk) | 02225 (ONE << Where_Then_Blk) | 02226 (ONE << Where_Else_Blk) | 02227 (ONE << Where_Else_Mask_Blk) | 02228 (ONE << Parallel_Blk) | 02229 (ONE << SGI_Parallel_Blk) | 02230 (ONE << Doall_Blk) | 02231 (ONE << Wait_Blk) | 02232 (ONE << SGI_Doacross_Blk) | 02233 (ONE << SGI_Parallel_Do_Blk) | 02234 (ONE << Do_Parallel_Blk) | 02235 (ONE << SGI_Pdo_Blk) | 02236 (ONE << Guard_Blk) | 02237 (ONE << SGI_Critical_Section_Blk) | 02238 (ONE << Parallel_Case_Blk) | 02239 (ONE << SGI_Psection_Blk) | 02240 (ONE << SGI_Section_Blk) | 02241 (ONE << SGI_Single_Process_Blk) | 02242 (ONE << SGI_Region_Blk) | 02243 (ONE << Open_Mp_Parallel_Blk) | 02244 (ONE << Open_Mp_Do_Blk) | 02245 (ONE << Open_Mp_Parallel_Sections_Blk) | 02246 (ONE << Open_Mp_Sections_Blk) | 02247 (ONE << Open_Mp_Section_Blk) | 02248 (ONE << Open_Mp_Single_Blk) | 02249 (ONE << Open_Mp_Parallel_Do_Blk) | 02250 (ONE << Open_Mp_Master_Blk) | 02251 (ONE << Open_Mp_Critical_Blk) | 02252 (ONE << Open_Mp_Ordered_Blk) | 02253 (ONE << Open_Mp_Parallel_Workshare_Blk) | 02254 (ONE << Open_Mp_Workshare_Blk) | 02255 (ONE << Contains_Blk) | 02256 (ONE << Interface_Blk) | 02257 (ONE << Derived_Type_Blk)), 02258 02259 /***** End_Function_Stmt *****/ 02260 02261 ((ONE << Unknown_Blk) | 02262 (ONE << Blockdata_Blk) | 02263 (ONE << Module_Blk) | 02264 (ONE << Program_Blk) | 02265 (ONE << Subroutine_Blk) | 02266 (ONE << Forall_Blk) | 02267 (ONE << If_Blk) | 02268 (ONE << If_Then_Blk) | 02269 (ONE << If_Else_If_Blk) | 02270 (ONE << If_Else_Blk) | 02271 (ONE << Do_Blk) | 02272 (ONE << Select_Blk) | 02273 (ONE << Case_Blk) | 02274 (ONE << Where_Then_Blk) | 02275 (ONE << Where_Else_Blk) | 02276 (ONE << Where_Else_Mask_Blk) | 02277 (ONE << Parallel_Blk) | 02278 (ONE << SGI_Parallel_Blk) | 02279 (ONE << Doall_Blk) | 02280 (ONE << Wait_Blk) | 02281 (ONE << SGI_Doacross_Blk) | 02282 (ONE << SGI_Parallel_Do_Blk) | 02283 (ONE << Do_Parallel_Blk) | 02284 (ONE << SGI_Pdo_Blk) | 02285 (ONE << Guard_Blk) | 02286 (ONE << SGI_Critical_Section_Blk) | 02287 (ONE << Parallel_Case_Blk) | 02288 (ONE << SGI_Psection_Blk) | 02289 (ONE << SGI_Section_Blk) | 02290 (ONE << SGI_Single_Process_Blk) | 02291 (ONE << SGI_Region_Blk) | 02292 (ONE << Open_Mp_Parallel_Blk) | 02293 (ONE << Open_Mp_Do_Blk) | 02294 (ONE << Open_Mp_Parallel_Sections_Blk) | 02295 (ONE << Open_Mp_Sections_Blk) | 02296 (ONE << Open_Mp_Section_Blk) | 02297 (ONE << Open_Mp_Single_Blk) | 02298 (ONE << Open_Mp_Parallel_Do_Blk) | 02299 (ONE << Open_Mp_Master_Blk) | 02300 (ONE << Open_Mp_Critical_Blk) | 02301 (ONE << Open_Mp_Ordered_Blk) | 02302 (ONE << Open_Mp_Parallel_Workshare_Blk) | 02303 (ONE << Open_Mp_Workshare_Blk) | 02304 (ONE << Contains_Blk) | 02305 (ONE << Interface_Blk) | 02306 (ONE << Derived_Type_Blk)), 02307 02308 /***** End_If_Stmt *****/ 02309 02310 ((ONE << Unknown_Blk) | 02311 (ONE << Blockdata_Blk) | 02312 (ONE << Module_Blk) | 02313 (ONE << Program_Blk) | 02314 (ONE << Function_Blk) | 02315 (ONE << Subroutine_Blk) | 02316 (ONE << Internal_Blk) | 02317 (ONE << Module_Proc_Blk) | 02318 (ONE << Interface_Body_Blk) | 02319 (ONE << Forall_Blk) | 02320 (ONE << If_Blk) | 02321 (ONE << Do_Blk) | 02322 (ONE << Select_Blk) | 02323 (ONE << Case_Blk) | 02324 (ONE << Where_Then_Blk) | 02325 (ONE << Where_Else_Blk) | 02326 (ONE << Where_Else_Mask_Blk) | 02327 (ONE << Parallel_Blk) | 02328 (ONE << SGI_Parallel_Blk) | 02329 (ONE << Doall_Blk) | 02330 (ONE << Wait_Blk) | 02331 (ONE << SGI_Doacross_Blk) | 02332 (ONE << SGI_Parallel_Do_Blk) | 02333 (ONE << Do_Parallel_Blk) | 02334 (ONE << SGI_Pdo_Blk) | 02335 (ONE << Guard_Blk) | 02336 (ONE << SGI_Critical_Section_Blk) | 02337 (ONE << Parallel_Case_Blk) | 02338 (ONE << SGI_Psection_Blk) | 02339 (ONE << SGI_Section_Blk) | 02340 (ONE << SGI_Single_Process_Blk) | 02341 (ONE << SGI_Region_Blk) | 02342 (ONE << Open_Mp_Parallel_Blk) | 02343 (ONE << Open_Mp_Do_Blk) | 02344 (ONE << Open_Mp_Parallel_Sections_Blk) | 02345 (ONE << Open_Mp_Sections_Blk) | 02346 (ONE << Open_Mp_Section_Blk) | 02347 (ONE << Open_Mp_Single_Blk) | 02348 (ONE << Open_Mp_Parallel_Do_Blk) | 02349 (ONE << Open_Mp_Master_Blk) | 02350 (ONE << Open_Mp_Critical_Blk) | 02351 (ONE << Open_Mp_Ordered_Blk) | 02352 (ONE << Open_Mp_Parallel_Workshare_Blk) | 02353 (ONE << Open_Mp_Workshare_Blk) | 02354 (ONE << Contains_Blk) | 02355 (ONE << Interface_Blk) | 02356 (ONE << Derived_Type_Blk)), 02357 02358 /***** End_Interface_Stmt *****/ 02359 02360 ((ONE << Unknown_Blk) | 02361 (ONE << Blockdata_Blk) | 02362 (ONE << Module_Blk) | 02363 (ONE << Program_Blk) | 02364 (ONE << Function_Blk) | 02365 (ONE << Subroutine_Blk) | 02366 (ONE << Internal_Blk) | 02367 (ONE << Module_Proc_Blk) | 02368 (ONE << Interface_Body_Blk) | 02369 (ONE << Forall_Blk) | 02370 (ONE << If_Blk) | 02371 (ONE << If_Then_Blk) | 02372 (ONE << If_Else_If_Blk) | 02373 (ONE << If_Else_Blk) | 02374 (ONE << Do_Blk) | 02375 (ONE << Select_Blk) | 02376 (ONE << Case_Blk) | 02377 (ONE << Where_Then_Blk) | 02378 (ONE << Where_Else_Blk) | 02379 (ONE << Where_Else_Mask_Blk) | 02380 (ONE << Parallel_Blk) | 02381 (ONE << SGI_Parallel_Blk) | 02382 (ONE << Doall_Blk) | 02383 (ONE << Wait_Blk) | 02384 (ONE << SGI_Doacross_Blk) | 02385 (ONE << SGI_Parallel_Do_Blk) | 02386 (ONE << Do_Parallel_Blk) | 02387 (ONE << SGI_Pdo_Blk) | 02388 (ONE << Guard_Blk) | 02389 (ONE << SGI_Critical_Section_Blk) | 02390 (ONE << Parallel_Case_Blk) | 02391 (ONE << SGI_Psection_Blk) | 02392 (ONE << SGI_Section_Blk) | 02393 (ONE << SGI_Single_Process_Blk) | 02394 (ONE << SGI_Region_Blk) | 02395 (ONE << Open_Mp_Parallel_Blk) | 02396 (ONE << Open_Mp_Do_Blk) | 02397 (ONE << Open_Mp_Parallel_Sections_Blk) | 02398 (ONE << Open_Mp_Sections_Blk) | 02399 (ONE << Open_Mp_Section_Blk) | 02400 (ONE << Open_Mp_Single_Blk) | 02401 (ONE << Open_Mp_Parallel_Do_Blk) | 02402 (ONE << Open_Mp_Master_Blk) | 02403 (ONE << Open_Mp_Critical_Blk) | 02404 (ONE << Open_Mp_Ordered_Blk) | 02405 (ONE << Open_Mp_Parallel_Workshare_Blk) | 02406 (ONE << Open_Mp_Workshare_Blk) | 02407 (ONE << Contains_Blk) | 02408 (ONE << Derived_Type_Blk)), 02409 02410 /***** End_Module_Stmt *****/ 02411 02412 ((ONE << Unknown_Blk) | 02413 (ONE << Blockdata_Blk) | 02414 (ONE << Program_Blk) | 02415 (ONE << Function_Blk) | 02416 (ONE << Subroutine_Blk) | 02417 (ONE << Internal_Blk) | 02418 (ONE << Module_Proc_Blk) | 02419 (ONE << Interface_Body_Blk) | 02420 (ONE << Forall_Blk) | 02421 (ONE << If_Blk) | 02422 (ONE << If_Then_Blk) | 02423 (ONE << If_Else_If_Blk) | 02424 (ONE << If_Else_Blk) | 02425 (ONE << Do_Blk) | 02426 (ONE << Select_Blk) | 02427 (ONE << Case_Blk) | 02428 (ONE << Where_Then_Blk) | 02429 (ONE << Where_Else_Blk) | 02430 (ONE << Where_Else_Mask_Blk) | 02431 (ONE << Parallel_Blk) | 02432 (ONE << SGI_Parallel_Blk) | 02433 (ONE << Doall_Blk) | 02434 (ONE << Wait_Blk) | 02435 (ONE << SGI_Doacross_Blk) | 02436 (ONE << SGI_Parallel_Do_Blk) | 02437 (ONE << Do_Parallel_Blk) | 02438 (ONE << SGI_Pdo_Blk) | 02439 (ONE << Guard_Blk) | 02440 (ONE << SGI_Critical_Section_Blk) | 02441 (ONE << Parallel_Case_Blk) | 02442 (ONE << SGI_Psection_Blk) | 02443 (ONE << SGI_Section_Blk) | 02444 (ONE << SGI_Single_Process_Blk) | 02445 (ONE << SGI_Region_Blk) | 02446 (ONE << Open_Mp_Parallel_Blk) | 02447 (ONE << Open_Mp_Do_Blk) | 02448 (ONE << Open_Mp_Parallel_Sections_Blk) | 02449 (ONE << Open_Mp_Sections_Blk) | 02450 (ONE << Open_Mp_Section_Blk) | 02451 (ONE << Open_Mp_Single_Blk) | 02452 (ONE << Open_Mp_Parallel_Do_Blk) | 02453 (ONE << Open_Mp_Master_Blk) | 02454 (ONE << Open_Mp_Critical_Blk) | 02455 (ONE << Open_Mp_Ordered_Blk) | 02456 (ONE << Open_Mp_Parallel_Workshare_Blk) | 02457 (ONE << Open_Mp_Workshare_Blk) | 02458 (ONE << Contains_Blk) | 02459 (ONE << Interface_Blk) | 02460 (ONE << Derived_Type_Blk)), 02461 02462 /***** End_Program_Stmt *****/ 02463 02464 ((ONE << Unknown_Blk) | 02465 (ONE << Blockdata_Blk) | 02466 (ONE << Module_Blk) | 02467 (ONE << Function_Blk) | 02468 (ONE << Subroutine_Blk) | 02469 (ONE << Internal_Blk) | 02470 (ONE << Module_Proc_Blk) | 02471 (ONE << Interface_Body_Blk) | 02472 (ONE << Forall_Blk) | 02473 (ONE << If_Blk) | 02474 (ONE << If_Then_Blk) | 02475 (ONE << If_Else_If_Blk) | 02476 (ONE << If_Else_Blk) | 02477 (ONE << Do_Blk) | 02478 (ONE << Select_Blk) | 02479 (ONE << Case_Blk) | 02480 (ONE << Where_Then_Blk) | 02481 (ONE << Where_Else_Blk) | 02482 (ONE << Where_Else_Mask_Blk) | 02483 (ONE << Parallel_Blk) | 02484 (ONE << SGI_Parallel_Blk) | 02485 (ONE << Doall_Blk) | 02486 (ONE << Wait_Blk) | 02487 (ONE << SGI_Doacross_Blk) | 02488 (ONE << SGI_Parallel_Do_Blk) | 02489 (ONE << Do_Parallel_Blk) | 02490 (ONE << SGI_Pdo_Blk) | 02491 (ONE << Guard_Blk) | 02492 (ONE << SGI_Critical_Section_Blk) | 02493 (ONE << Parallel_Case_Blk) | 02494 (ONE << SGI_Psection_Blk) | 02495 (ONE << SGI_Section_Blk) | 02496 (ONE << SGI_Single_Process_Blk) | 02497 (ONE << SGI_Region_Blk) | 02498 (ONE << Open_Mp_Parallel_Blk) | 02499 (ONE << Open_Mp_Do_Blk) | 02500 (ONE << Open_Mp_Parallel_Sections_Blk) | 02501 (ONE << Open_Mp_Sections_Blk) | 02502 (ONE << Open_Mp_Section_Blk) | 02503 (ONE << Open_Mp_Single_Blk) | 02504 (ONE << Open_Mp_Parallel_Do_Blk) | 02505 (ONE << Open_Mp_Master_Blk) | 02506 (ONE << Open_Mp_Critical_Blk) | 02507 (ONE << Open_Mp_Ordered_Blk) | 02508 (ONE << Open_Mp_Parallel_Workshare_Blk) | 02509 (ONE << Open_Mp_Workshare_Blk) | 02510 (ONE << Contains_Blk) | 02511 (ONE << Interface_Blk) | 02512 (ONE << Derived_Type_Blk)), 02513 02514 /***** End_Select_Stmt *****/ 02515 02516 ((ONE << Unknown_Blk) | 02517 (ONE << Blockdata_Blk) | 02518 (ONE << Module_Blk) | 02519 (ONE << Program_Blk) | 02520 (ONE << Function_Blk) | 02521 (ONE << Subroutine_Blk) | 02522 (ONE << Internal_Blk) | 02523 (ONE << Module_Proc_Blk) | 02524 (ONE << Interface_Body_Blk) | 02525 (ONE << Forall_Blk) | 02526 (ONE << If_Blk) | 02527 (ONE << If_Then_Blk) | 02528 (ONE << If_Else_If_Blk) | 02529 (ONE << If_Else_Blk) | 02530 (ONE << Do_Blk) | 02531 (ONE << Where_Then_Blk) | 02532 (ONE << Where_Else_Blk) | 02533 (ONE << Where_Else_Mask_Blk) | 02534 (ONE << Parallel_Blk) | 02535 (ONE << SGI_Parallel_Blk) | 02536 (ONE << Doall_Blk) | 02537 (ONE << Wait_Blk) | 02538 (ONE << SGI_Doacross_Blk) | 02539 (ONE << SGI_Parallel_Do_Blk) | 02540 (ONE << Do_Parallel_Blk) | 02541 (ONE << SGI_Pdo_Blk) | 02542 (ONE << Guard_Blk) | 02543 (ONE << SGI_Critical_Section_Blk) | 02544 (ONE << Parallel_Case_Blk) | 02545 (ONE << SGI_Psection_Blk) | 02546 (ONE << SGI_Section_Blk) | 02547 (ONE << SGI_Single_Process_Blk) | 02548 (ONE << SGI_Region_Blk) | 02549 (ONE << Open_Mp_Parallel_Blk) | 02550 (ONE << Open_Mp_Do_Blk) | 02551 (ONE << Open_Mp_Parallel_Sections_Blk) | 02552 (ONE << Open_Mp_Sections_Blk) | 02553 (ONE << Open_Mp_Section_Blk) | 02554 (ONE << Open_Mp_Single_Blk) | 02555 (ONE << Open_Mp_Parallel_Do_Blk) | 02556 (ONE << Open_Mp_Master_Blk) | 02557 (ONE << Open_Mp_Critical_Blk) | 02558 (ONE << Open_Mp_Ordered_Blk) | 02559 (ONE << Open_Mp_Parallel_Workshare_Blk) | 02560 (ONE << Open_Mp_Workshare_Blk) | 02561 (ONE << Contains_Blk) | 02562 (ONE << Interface_Blk) | 02563 (ONE << Derived_Type_Blk)), 02564 02565 /***** End_Stmt *****/ 02566 02567 ((ONE << Unknown_Blk) | 02568 (ONE << Internal_Blk) | 02569 (ONE << Module_Proc_Blk) | 02570 (ONE << Forall_Blk) | 02571 (ONE << If_Blk) | 02572 (ONE << If_Then_Blk) | 02573 (ONE << If_Else_If_Blk) | 02574 (ONE << If_Else_Blk) | 02575 (ONE << Do_Blk) | 02576 (ONE << Select_Blk) | 02577 (ONE << Case_Blk) | 02578 (ONE << Where_Then_Blk) | 02579 (ONE << Where_Else_Blk) | 02580 (ONE << Where_Else_Mask_Blk) | 02581 (ONE << Parallel_Blk) | 02582 (ONE << SGI_Parallel_Blk) | 02583 (ONE << Doall_Blk) | 02584 (ONE << Wait_Blk) | 02585 (ONE << SGI_Doacross_Blk) | 02586 (ONE << SGI_Parallel_Do_Blk) | 02587 (ONE << Do_Parallel_Blk) | 02588 (ONE << SGI_Pdo_Blk) | 02589 (ONE << Guard_Blk) | 02590 (ONE << SGI_Critical_Section_Blk) | 02591 (ONE << Parallel_Case_Blk) | 02592 (ONE << SGI_Psection_Blk) | 02593 (ONE << SGI_Section_Blk) | 02594 (ONE << SGI_Single_Process_Blk) | 02595 (ONE << SGI_Region_Blk) | 02596 (ONE << Open_Mp_Parallel_Blk) | 02597 (ONE << Open_Mp_Do_Blk) | 02598 (ONE << Open_Mp_Parallel_Sections_Blk) | 02599 (ONE << Open_Mp_Sections_Blk) | 02600 (ONE << Open_Mp_Section_Blk) | 02601 (ONE << Open_Mp_Single_Blk) | 02602 (ONE << Open_Mp_Parallel_Do_Blk) | 02603 (ONE << Open_Mp_Master_Blk) | 02604 (ONE << Open_Mp_Critical_Blk) | 02605 (ONE << Open_Mp_Ordered_Blk) | 02606 (ONE << Open_Mp_Parallel_Workshare_Blk) | 02607 (ONE << Open_Mp_Workshare_Blk) | 02608 (ONE << Contains_Blk) | 02609 (ONE << Interface_Blk) | 02610 (ONE << Derived_Type_Blk)), 02611 02612 /***** End_Subroutine_Stmt *****/ 02613 02614 ((ONE << Unknown_Blk) | 02615 (ONE << Blockdata_Blk) | 02616 (ONE << Module_Blk) | 02617 (ONE << Program_Blk) | 02618 (ONE << Function_Blk) | 02619 (ONE << Forall_Blk) | 02620 (ONE << If_Blk) | 02621 (ONE << If_Then_Blk) | 02622 (ONE << If_Else_If_Blk) | 02623 (ONE << If_Else_Blk) | 02624 (ONE << Do_Blk) | 02625 (ONE << Select_Blk) | 02626 (ONE << Case_Blk) | 02627 (ONE << Where_Then_Blk) | 02628 (ONE << Where_Else_Blk) | 02629 (ONE << Where_Else_Mask_Blk) | 02630 (ONE << Parallel_Blk) | 02631 (ONE << SGI_Parallel_Blk) | 02632 (ONE << Doall_Blk) | 02633 (ONE << Wait_Blk) | 02634 (ONE << SGI_Doacross_Blk) | 02635 (ONE << SGI_Parallel_Do_Blk) | 02636 (ONE << Do_Parallel_Blk) | 02637 (ONE << SGI_Pdo_Blk) | 02638 (ONE << Guard_Blk) | 02639 (ONE << SGI_Critical_Section_Blk) | 02640 (ONE << Parallel_Case_Blk) | 02641 (ONE << SGI_Psection_Blk) | 02642 (ONE << SGI_Section_Blk) | 02643 (ONE << SGI_Single_Process_Blk) | 02644 (ONE << SGI_Region_Blk) | 02645 (ONE << Open_Mp_Parallel_Blk) | 02646 (ONE << Open_Mp_Do_Blk) | 02647 (ONE << Open_Mp_Parallel_Sections_Blk) | 02648 (ONE << Open_Mp_Sections_Blk) | 02649 (ONE << Open_Mp_Section_Blk) | 02650 (ONE << Open_Mp_Single_Blk) | 02651 (ONE << Open_Mp_Parallel_Do_Blk) | 02652 (ONE << Open_Mp_Master_Blk) | 02653 (ONE << Open_Mp_Critical_Blk) | 02654 (ONE << Open_Mp_Ordered_Blk) | 02655 (ONE << Open_Mp_Parallel_Workshare_Blk) | 02656 (ONE << Open_Mp_Workshare_Blk) | 02657 (ONE << Contains_Blk) | 02658 (ONE << Interface_Blk) | 02659 (ONE << Derived_Type_Blk)), 02660 02661 /***** End_Type_Stmt *****/ 02662 02663 ((ONE << Unknown_Blk) | 02664 (ONE << Blockdata_Blk) | 02665 (ONE << Module_Blk) | 02666 (ONE << Program_Blk) | 02667 (ONE << Function_Blk) | 02668 (ONE << Subroutine_Blk) | 02669 (ONE << Internal_Blk) | 02670 (ONE << Module_Proc_Blk) | 02671 (ONE << Interface_Body_Blk) | 02672 (ONE << Forall_Blk) | 02673 (ONE << If_Blk) | 02674 (ONE << If_Then_Blk) | 02675 (ONE << If_Else_If_Blk) | 02676 (ONE << If_Else_Blk) | 02677 (ONE << Do_Blk) | 02678 (ONE << Select_Blk) | 02679 (ONE << Case_Blk) | 02680 (ONE << Where_Then_Blk) | 02681 (ONE << Where_Else_Blk) | 02682 (ONE << Where_Else_Mask_Blk) | 02683 (ONE << Parallel_Blk) | 02684 (ONE << SGI_Parallel_Blk) | 02685 (ONE << Doall_Blk) | 02686 (ONE << Wait_Blk) | 02687 (ONE << SGI_Doacross_Blk) | 02688 (ONE << SGI_Parallel_Do_Blk) | 02689 (ONE << Do_Parallel_Blk) | 02690 (ONE << SGI_Pdo_Blk) | 02691 (ONE << Guard_Blk) | 02692 (ONE << SGI_Critical_Section_Blk) | 02693 (ONE << Parallel_Case_Blk) | 02694 (ONE << SGI_Psection_Blk) | 02695 (ONE << SGI_Section_Blk) | 02696 (ONE << SGI_Single_Process_Blk) | 02697 (ONE << SGI_Region_Blk) | 02698 (ONE << Open_Mp_Parallel_Blk) | 02699 (ONE << Open_Mp_Do_Blk) | 02700 (ONE << Open_Mp_Parallel_Sections_Blk) | 02701 (ONE << Open_Mp_Sections_Blk) | 02702 (ONE << Open_Mp_Section_Blk) | 02703 (ONE << Open_Mp_Single_Blk) | 02704 (ONE << Open_Mp_Parallel_Do_Blk) | 02705 (ONE << Open_Mp_Master_Blk) | 02706 (ONE << Open_Mp_Critical_Blk) | 02707 (ONE << Open_Mp_Ordered_Blk) | 02708 (ONE << Open_Mp_Parallel_Workshare_Blk) | 02709 (ONE << Open_Mp_Workshare_Blk) | 02710 (ONE << Contains_Blk) | 02711 (ONE << Interface_Blk)), 02712 02713 /***** End_Where_Stmt *****/ 02714 02715 ((ONE << Unknown_Blk) | 02716 (ONE << Blockdata_Blk) | 02717 (ONE << Module_Blk) | 02718 (ONE << Program_Blk) | 02719 (ONE << Function_Blk) | 02720 (ONE << Subroutine_Blk) | 02721 (ONE << Internal_Blk) | 02722 (ONE << Module_Proc_Blk) | 02723 (ONE << Interface_Body_Blk) | 02724 (ONE << Forall_Blk) | 02725 (ONE << If_Blk) | 02726 (ONE << If_Then_Blk) | 02727 (ONE << If_Else_If_Blk) | 02728 (ONE << If_Else_Blk) | 02729 (ONE << Do_Blk) | 02730 (ONE << Select_Blk) | 02731 (ONE << Case_Blk) | 02732 (ONE << Parallel_Blk) | 02733 (ONE << SGI_Parallel_Blk) | 02734 (ONE << Doall_Blk) | 02735 (ONE << Wait_Blk) | 02736 (ONE << SGI_Doacross_Blk) | 02737 (ONE << SGI_Parallel_Do_Blk) | 02738 (ONE << Do_Parallel_Blk) | 02739 (ONE << SGI_Pdo_Blk) | 02740 (ONE << Guard_Blk) | 02741 (ONE << SGI_Critical_Section_Blk) | 02742 (ONE << Parallel_Case_Blk) | 02743 (ONE << SGI_Psection_Blk) | 02744 (ONE << SGI_Section_Blk) | 02745 (ONE << SGI_Single_Process_Blk) | 02746 (ONE << SGI_Region_Blk) | 02747 (ONE << Open_Mp_Parallel_Blk) | 02748 (ONE << Open_Mp_Do_Blk) | 02749 (ONE << Open_Mp_Parallel_Sections_Blk) | 02750 (ONE << Open_Mp_Sections_Blk) | 02751 (ONE << Open_Mp_Section_Blk) | 02752 (ONE << Open_Mp_Single_Blk) | 02753 (ONE << Open_Mp_Parallel_Do_Blk) | 02754 (ONE << Open_Mp_Master_Blk) | 02755 (ONE << Open_Mp_Critical_Blk) | 02756 (ONE << Open_Mp_Ordered_Blk) | 02757 (ONE << Open_Mp_Parallel_Workshare_Blk) | 02758 (ONE << Open_Mp_Workshare_Blk) | 02759 (ONE << Contains_Blk) | 02760 (ONE << Interface_Blk) | 02761 (ONE << Derived_Type_Blk)), 02762 02763 /***** Allocate_Stmt *****/ 02764 02765 ((ONE << Unknown_Blk) | 02766 (ONE << Blockdata_Blk) | 02767 (ONE << Module_Blk) | 02768 (ONE << Interface_Body_Blk) | 02769 (ONE << Forall_Blk) | 02770 (ONE << If_Blk) | 02771 (ONE << Where_Then_Blk) | 02772 (ONE << Where_Else_Blk) | 02773 (ONE << Where_Else_Mask_Blk) | 02774 (ONE << SGI_Psection_Blk) | 02775 (ONE << Select_Blk) | 02776 (ONE << Contains_Blk) | 02777 (ONE << Interface_Blk) | 02778 (ONE << Derived_Type_Blk)), 02779 02780 /***** Arith_If_Stmt *****/ 02781 02782 ((ONE << Unknown_Blk) | 02783 (ONE << Blockdata_Blk) | 02784 (ONE << Module_Blk) | 02785 (ONE << Interface_Body_Blk) | 02786 (ONE << Forall_Blk) | 02787 (ONE << If_Blk) | 02788 (ONE << Where_Then_Blk) | 02789 (ONE << Where_Else_Blk) | 02790 (ONE << Where_Else_Mask_Blk) | 02791 (ONE << SGI_Psection_Blk) | 02792 (ONE << Select_Blk) | 02793 (ONE << Contains_Blk) | 02794 (ONE << Interface_Blk) | 02795 (ONE << Derived_Type_Blk)), 02796 02797 /***** Assign_Stmt *****/ 02798 02799 ((ONE << Unknown_Blk) | 02800 (ONE << Blockdata_Blk) | 02801 (ONE << Module_Blk) | 02802 (ONE << Interface_Body_Blk) | 02803 (ONE << Forall_Blk) | 02804 (ONE << If_Blk) | 02805 (ONE << Where_Then_Blk) | 02806 (ONE << Where_Else_Blk) | 02807 (ONE << Where_Else_Mask_Blk) | 02808 (ONE << SGI_Psection_Blk) | 02809 (ONE << Select_Blk) | 02810 (ONE << Contains_Blk) | 02811 (ONE << Interface_Blk) | 02812 (ONE << Derived_Type_Blk)), 02813 02814 /***** Assignment_Stmt *****/ 02815 02816 ((ONE << Unknown_Blk) | 02817 (ONE << Blockdata_Blk) | 02818 (ONE << Module_Blk) | 02819 (ONE << Interface_Body_Blk) | 02820 (ONE << If_Blk) | 02821 (ONE << SGI_Psection_Blk) | 02822 (ONE << Select_Blk) | 02823 (ONE << Contains_Blk) | 02824 (ONE << Interface_Blk) | 02825 (ONE << Derived_Type_Blk)), 02826 02827 /***** Backspace_Stmt *****/ 02828 02829 ((ONE << Unknown_Blk) | 02830 (ONE << Blockdata_Blk) | 02831 (ONE << Module_Blk) | 02832 (ONE << Interface_Body_Blk) | 02833 (ONE << Forall_Blk) | 02834 (ONE << If_Blk) | 02835 (ONE << Where_Then_Blk) | 02836 (ONE << Where_Else_Blk) | 02837 (ONE << Where_Else_Mask_Blk) | 02838 (ONE << SGI_Psection_Blk) | 02839 (ONE << Select_Blk) | 02840 (ONE << Contains_Blk) | 02841 (ONE << Interface_Blk) | 02842 (ONE << Derived_Type_Blk)), 02843 02844 /***** Buffer_Stmt *****/ 02845 02846 ((ONE << Unknown_Blk) | 02847 (ONE << Blockdata_Blk) | 02848 (ONE << Module_Blk) | 02849 (ONE << Interface_Body_Blk) | 02850 (ONE << Forall_Blk) | 02851 (ONE << If_Blk) | 02852 (ONE << Where_Then_Blk) | 02853 (ONE << Where_Else_Blk) | 02854 (ONE << Where_Else_Mask_Blk) | 02855 (ONE << SGI_Psection_Blk) | 02856 (ONE << Select_Blk) | 02857 (ONE << Contains_Blk) | 02858 (ONE << Interface_Blk) | 02859 (ONE << Derived_Type_Blk)), 02860 02861 /***** Call_Stmt *****/ 02862 02863 ((ONE << Unknown_Blk) | 02864 (ONE << Blockdata_Blk) | 02865 (ONE << Module_Blk) | 02866 (ONE << Interface_Body_Blk) | 02867 (ONE << Forall_Blk) | 02868 (ONE << If_Blk) | 02869 (ONE << Where_Then_Blk) | 02870 (ONE << Where_Else_Blk) | 02871 (ONE << Where_Else_Mask_Blk) | 02872 (ONE << SGI_Psection_Blk) | 02873 (ONE << Select_Blk) | 02874 (ONE << Contains_Blk) | 02875 (ONE << Interface_Blk) | 02876 (ONE << Derived_Type_Blk)), 02877 02878 /***** Case_Stmt *****/ 02879 02880 ((ONE << Unknown_Blk) | 02881 (ONE << Blockdata_Blk) | 02882 (ONE << Module_Blk) | 02883 (ONE << Program_Blk) | 02884 (ONE << Function_Blk) | 02885 (ONE << Subroutine_Blk) | 02886 (ONE << Internal_Blk) | 02887 (ONE << Module_Proc_Blk) | 02888 (ONE << Interface_Body_Blk) | 02889 (ONE << Forall_Blk) | 02890 (ONE << If_Blk) | 02891 (ONE << If_Then_Blk) | 02892 (ONE << If_Else_If_Blk) | 02893 (ONE << If_Else_Blk) | 02894 (ONE << Do_Blk) | 02895 (ONE << Where_Then_Blk) | 02896 (ONE << Where_Else_Blk) | 02897 (ONE << Where_Else_Mask_Blk) | 02898 (ONE << Parallel_Blk) | 02899 (ONE << SGI_Parallel_Blk) | 02900 (ONE << Doall_Blk) | 02901 (ONE << Wait_Blk) | 02902 (ONE << SGI_Doacross_Blk) | 02903 (ONE << SGI_Parallel_Do_Blk) | 02904 (ONE << Do_Parallel_Blk) | 02905 (ONE << SGI_Pdo_Blk) | 02906 (ONE << Guard_Blk) | 02907 (ONE << SGI_Critical_Section_Blk) | 02908 (ONE << Parallel_Case_Blk) | 02909 (ONE << SGI_Psection_Blk) | 02910 (ONE << SGI_Section_Blk) | 02911 (ONE << SGI_Single_Process_Blk) | 02912 (ONE << SGI_Region_Blk) | 02913 (ONE << Open_Mp_Parallel_Blk) | 02914 (ONE << Open_Mp_Do_Blk) | 02915 (ONE << Open_Mp_Parallel_Sections_Blk) | 02916 (ONE << Open_Mp_Sections_Blk) | 02917 (ONE << Open_Mp_Section_Blk) | 02918 (ONE << Open_Mp_Single_Blk) | 02919 (ONE << Open_Mp_Parallel_Do_Blk) | 02920 (ONE << Open_Mp_Master_Blk) | 02921 (ONE << Open_Mp_Critical_Blk) | 02922 (ONE << Open_Mp_Ordered_Blk) | 02923 (ONE << Open_Mp_Parallel_Workshare_Blk) | 02924 (ONE << Open_Mp_Workshare_Blk) | 02925 (ONE << Contains_Blk) | 02926 (ONE << Interface_Blk) | 02927 (ONE << Derived_Type_Blk)), 02928 02929 /***** Close_Stmt *****/ 02930 02931 ((ONE << Unknown_Blk) | 02932 (ONE << Blockdata_Blk) | 02933 (ONE << Module_Blk) | 02934 (ONE << Interface_Body_Blk) | 02935 (ONE << Forall_Blk) | 02936 (ONE << If_Blk) | 02937 (ONE << Where_Then_Blk) | 02938 (ONE << Where_Else_Blk) | 02939 (ONE << Where_Else_Mask_Blk) | 02940 (ONE << SGI_Psection_Blk) | 02941 (ONE << Select_Blk) | 02942 (ONE << Contains_Blk) | 02943 (ONE << Interface_Blk) | 02944 (ONE << Derived_Type_Blk)), 02945 02946 /***** Continue_Stmt *****/ 02947 02948 ((ONE << Unknown_Blk) | 02949 (ONE << Blockdata_Blk) | 02950 (ONE << Module_Blk) | 02951 (ONE << Interface_Body_Blk) | 02952 (ONE << Forall_Blk) | 02953 (ONE << If_Blk) | 02954 (ONE << Where_Then_Blk) | 02955 (ONE << Where_Else_Blk) | 02956 (ONE << Where_Else_Mask_Blk) | 02957 (ONE << SGI_Psection_Blk) | 02958 (ONE << Select_Blk) | 02959 (ONE << Contains_Blk) | 02960 (ONE << Interface_Blk) | 02961 (ONE << Derived_Type_Blk)), 02962 02963 /***** Cycle_Stmt *****/ 02964 02965 ((ONE << Unknown_Blk) | 02966 (ONE << Blockdata_Blk) | 02967 (ONE << Module_Blk) | 02968 (ONE << Program_Blk) | 02969 (ONE << Function_Blk) | 02970 (ONE << Subroutine_Blk) | 02971 (ONE << Internal_Blk) | 02972 (ONE << Module_Proc_Blk) | 02973 (ONE << Interface_Body_Blk) | 02974 (ONE << Forall_Blk) | 02975 (ONE << If_Blk) | 02976 (ONE << Where_Then_Blk) | 02977 (ONE << Where_Else_Blk) | 02978 (ONE << Where_Else_Mask_Blk) | 02979 (ONE << SGI_Psection_Blk) | 02980 (ONE << Select_Blk) | 02981 (ONE << Contains_Blk) | 02982 (ONE << Interface_Blk) | 02983 (ONE << Derived_Type_Blk)), 02984 02985 /***** Deallocate_Stmt *****/ 02986 02987 ((ONE << Unknown_Blk) | 02988 (ONE << Blockdata_Blk) | 02989 (ONE << Module_Blk) | 02990 (ONE << Interface_Body_Blk) | 02991 (ONE << Forall_Blk) | 02992 (ONE << If_Blk) | 02993 (ONE << Where_Then_Blk) | 02994 (ONE << Where_Else_Blk) | 02995 (ONE << Where_Else_Mask_Blk) | 02996 (ONE << SGI_Psection_Blk) | 02997 (ONE << Select_Blk) | 02998 (ONE << Contains_Blk) | 02999 (ONE << Interface_Blk) | 03000 (ONE << Derived_Type_Blk)), 03001 03002 /***** Decode_Stmt *****/ 03003 03004 ((ONE << Unknown_Blk) | 03005 (ONE << Blockdata_Blk) | 03006 (ONE << Module_Blk) | 03007 (ONE << Interface_Body_Blk) | 03008 (ONE << Forall_Blk) | 03009 (ONE << If_Blk) | 03010 (ONE << Where_Then_Blk) | 03011 (ONE << Where_Else_Blk) | 03012 (ONE << Where_Else_Mask_Blk) | 03013 (ONE << SGI_Psection_Blk) | 03014 (ONE << Select_Blk) | 03015 (ONE << Contains_Blk) | 03016 (ONE << Interface_Blk) | 03017 (ONE << Derived_Type_Blk)), 03018 03019 /***** Do_Iterative_Stmt *****/ 03020 03021 ((ONE << Unknown_Blk) | 03022 (ONE << Blockdata_Blk) | 03023 (ONE << Module_Blk) | 03024 (ONE << Interface_Body_Blk) | 03025 (ONE << Forall_Blk) | 03026 (ONE << If_Blk) | 03027 (ONE << Where_Then_Blk) | 03028 (ONE << Where_Else_Blk) | 03029 (ONE << Where_Else_Mask_Blk) | 03030 (ONE << SGI_Psection_Blk) | 03031 (ONE << Select_Blk) | 03032 (ONE << Contains_Blk) | 03033 (ONE << Interface_Blk) | 03034 (ONE << Derived_Type_Blk)), 03035 03036 /***** Do_While_Stmt *****/ 03037 03038 ((ONE << Unknown_Blk) | 03039 (ONE << Blockdata_Blk) | 03040 (ONE << Module_Blk) | 03041 (ONE << Interface_Body_Blk) | 03042 (ONE << Forall_Blk) | 03043 (ONE << If_Blk) | 03044 (ONE << Where_Then_Blk) | 03045 (ONE << Where_Else_Blk) | 03046 (ONE << Where_Else_Mask_Blk) | 03047 (ONE << SGI_Psection_Blk) | 03048 (ONE << Select_Blk) | 03049 (ONE << Contains_Blk) | 03050 (ONE << Interface_Blk) | 03051 (ONE << Derived_Type_Blk)), 03052 03053 /***** Do_Infinite_Stmt *****/ 03054 03055 ((ONE << Unknown_Blk) | 03056 (ONE << Blockdata_Blk) | 03057 (ONE << Module_Blk) | 03058 (ONE << Interface_Body_Blk) | 03059 (ONE << Forall_Blk) | 03060 (ONE << If_Blk) | 03061 (ONE << Where_Then_Blk) | 03062 (ONE << Where_Else_Blk) | 03063 (ONE << Where_Else_Mask_Blk) | 03064 (ONE << SGI_Psection_Blk) | 03065 (ONE << Select_Blk) | 03066 (ONE << Contains_Blk) | 03067 (ONE << Interface_Blk) | 03068 (ONE << Derived_Type_Blk)), 03069 03070 /***** Else_Stmt *****/ 03071 03072 ((ONE << Unknown_Blk) | 03073 (ONE << Blockdata_Blk) | 03074 (ONE << Module_Blk) | 03075 (ONE << Program_Blk) | 03076 (ONE << Function_Blk) | 03077 (ONE << Subroutine_Blk) | 03078 (ONE << Internal_Blk) | 03079 (ONE << Module_Proc_Blk) | 03080 (ONE << Interface_Body_Blk) | 03081 (ONE << Forall_Blk) | 03082 (ONE << If_Blk) | 03083 (ONE << If_Else_Blk) | 03084 (ONE << Do_Blk) | 03085 (ONE << Select_Blk) | 03086 (ONE << Case_Blk) | 03087 (ONE << Where_Then_Blk) | 03088 (ONE << Where_Else_Blk) | 03089 (ONE << Where_Else_Mask_Blk) | 03090 (ONE << Parallel_Blk) | 03091 (ONE << SGI_Parallel_Blk) | 03092 (ONE << Doall_Blk) | 03093 (ONE << Wait_Blk) | 03094 (ONE << SGI_Doacross_Blk) | 03095 (ONE << SGI_Parallel_Do_Blk) | 03096 (ONE << Do_Parallel_Blk) | 03097 (ONE << SGI_Pdo_Blk) | 03098 (ONE << Guard_Blk) | 03099 (ONE << SGI_Critical_Section_Blk) | 03100 (ONE << Parallel_Case_Blk) | 03101 (ONE << SGI_Psection_Blk) | 03102 (ONE << SGI_Section_Blk) | 03103 (ONE << SGI_Single_Process_Blk) | 03104 (ONE << SGI_Region_Blk) | 03105 (ONE << Open_Mp_Parallel_Blk) | 03106 (ONE << Open_Mp_Do_Blk) | 03107 (ONE << Open_Mp_Parallel_Sections_Blk) | 03108 (ONE << Open_Mp_Sections_Blk) | 03109 (ONE << Open_Mp_Section_Blk) | 03110 (ONE << Open_Mp_Single_Blk) | 03111 (ONE << Open_Mp_Parallel_Do_Blk) | 03112 (ONE << Open_Mp_Master_Blk) | 03113 (ONE << Open_Mp_Critical_Blk) | 03114 (ONE << Open_Mp_Ordered_Blk) | 03115 (ONE << Open_Mp_Parallel_Workshare_Blk) | 03116 (ONE << Open_Mp_Workshare_Blk) | 03117 (ONE << Contains_Blk) | 03118 (ONE << Interface_Blk) | 03119 (ONE << Derived_Type_Blk)), 03120 03121 /***** Else_If_Stmt *****/ 03122 03123 ((ONE << Unknown_Blk) | 03124 (ONE << Blockdata_Blk) | 03125 (ONE << Module_Blk) | 03126 (ONE << Program_Blk) | 03127 (ONE << Function_Blk) | 03128 (ONE << Subroutine_Blk) | 03129 (ONE << Internal_Blk) | 03130 (ONE << Module_Proc_Blk) | 03131 (ONE << Interface_Body_Blk) | 03132 (ONE << Forall_Blk) | 03133 (ONE << If_Blk) | 03134 (ONE << If_Else_Blk) | 03135 (ONE << Do_Blk) | 03136 (ONE << Select_Blk) | 03137 (ONE << Case_Blk) | 03138 (ONE << Where_Then_Blk) | 03139 (ONE << Where_Else_Blk) | 03140 (ONE << Where_Else_Mask_Blk) | 03141 (ONE << Parallel_Blk) | 03142 (ONE << SGI_Parallel_Blk) | 03143 (ONE << Doall_Blk) | 03144 (ONE << Wait_Blk) | 03145 (ONE << SGI_Doacross_Blk) | 03146 (ONE << SGI_Parallel_Do_Blk) | 03147 (ONE << Do_Parallel_Blk) | 03148 (ONE << SGI_Pdo_Blk) | 03149 (ONE << Guard_Blk) | 03150 (ONE << SGI_Critical_Section_Blk) | 03151 (ONE << Parallel_Case_Blk) | 03152 (ONE << SGI_Psection_Blk) | 03153 (ONE << SGI_Section_Blk) | 03154 (ONE << SGI_Single_Process_Blk) | 03155 (ONE << SGI_Region_Blk) | 03156 (ONE << Open_Mp_Parallel_Blk) | 03157 (ONE << Open_Mp_Do_Blk) | 03158 (ONE << Open_Mp_Parallel_Sections_Blk) | 03159 (ONE << Open_Mp_Sections_Blk) | 03160 (ONE << Open_Mp_Section_Blk) | 03161 (ONE << Open_Mp_Single_Blk) | 03162 (ONE << Open_Mp_Parallel_Do_Blk) | 03163 (ONE << Open_Mp_Master_Blk) | 03164 (ONE << Open_Mp_Critical_Blk) | 03165 (ONE << Open_Mp_Ordered_Blk) | 03166 (ONE << Open_Mp_Parallel_Workshare_Blk) | 03167 (ONE << Open_Mp_Workshare_Blk) | 03168 (ONE << Contains_Blk) | 03169 (ONE << Interface_Blk) | 03170 (ONE << Derived_Type_Blk)), 03171 03172 /***** Else_Where_Stmt *****/ 03173 03174 ((ONE << Unknown_Blk) | 03175 (ONE << Blockdata_Blk) | 03176 (ONE << Module_Blk) | 03177 (ONE << Program_Blk) | 03178 (ONE << Function_Blk) | 03179 (ONE << Subroutine_Blk) | 03180 (ONE << Internal_Blk) | 03181 (ONE << Module_Proc_Blk) | 03182 (ONE << Interface_Body_Blk) | 03183 (ONE << Forall_Blk) | 03184 (ONE << If_Blk) | 03185 (ONE << If_Then_Blk) | 03186 (ONE << If_Else_If_Blk) | 03187 (ONE << If_Else_Blk) | 03188 (ONE << Do_Blk) | 03189 (ONE << Select_Blk) | 03190 (ONE << Case_Blk) | 03191 (ONE << Where_Else_Blk) | 03192 (ONE << Parallel_Blk) | 03193 (ONE << SGI_Parallel_Blk) | 03194 (ONE << Doall_Blk) | 03195 (ONE << Wait_Blk) | 03196 (ONE << SGI_Doacross_Blk) | 03197 (ONE << SGI_Parallel_Do_Blk) | 03198 (ONE << Do_Parallel_Blk) | 03199 (ONE << SGI_Pdo_Blk) | 03200 (ONE << Guard_Blk) | 03201 (ONE << SGI_Critical_Section_Blk) | 03202 (ONE << Parallel_Case_Blk) | 03203 (ONE << SGI_Psection_Blk) | 03204 (ONE << SGI_Section_Blk) | 03205 (ONE << SGI_Single_Process_Blk) | 03206 (ONE << SGI_Region_Blk) | 03207 (ONE << Open_Mp_Parallel_Blk) | 03208 (ONE << Open_Mp_Do_Blk) | 03209 (ONE << Open_Mp_Parallel_Sections_Blk) | 03210 (ONE << Open_Mp_Sections_Blk) | 03211 (ONE << Open_Mp_Section_Blk) | 03212 (ONE << Open_Mp_Single_Blk) | 03213 (ONE << Open_Mp_Parallel_Do_Blk) | 03214 (ONE << Open_Mp_Master_Blk) | 03215 (ONE << Open_Mp_Critical_Blk) | 03216 (ONE << Open_Mp_Ordered_Blk) | 03217 (ONE << Open_Mp_Parallel_Workshare_Blk) | 03218 (ONE << Open_Mp_Workshare_Blk) | 03219 (ONE << Contains_Blk) | 03220 (ONE << Interface_Blk) | 03221 (ONE << Derived_Type_Blk)), 03222 03223 /***** Encode_Stmt *****/ 03224 03225 ((ONE << Unknown_Blk) | 03226 (ONE << Blockdata_Blk) | 03227 (ONE << Module_Blk) | 03228 (ONE << Interface_Body_Blk) | 03229 (ONE << Forall_Blk) | 03230 (ONE << If_Blk) | 03231 (ONE << Where_Then_Blk) | 03232 (ONE << Where_Else_Blk) | 03233 (ONE << Where_Else_Mask_Blk) | 03234 (ONE << SGI_Psection_Blk) | 03235 (ONE << Select_Blk) | 03236 (ONE << Contains_Blk) | 03237 (ONE << Interface_Blk) | 03238 (ONE << Derived_Type_Blk)), 03239 03240 /***** Endfile_Stmt *****/ 03241 03242 ((ONE << Unknown_Blk) | 03243 (ONE << Blockdata_Blk) | 03244 (ONE << Module_Blk) | 03245 (ONE << Interface_Body_Blk) | 03246 (ONE << Forall_Blk) | 03247 (ONE << If_Blk) | 03248 (ONE << Where_Then_Blk) | 03249 (ONE << Where_Else_Blk) | 03250 (ONE << Where_Else_Mask_Blk) | 03251 (ONE << SGI_Psection_Blk) | 03252 (ONE << Select_Blk) | 03253 (ONE << Contains_Blk) | 03254 (ONE << Interface_Blk) | 03255 (ONE << Derived_Type_Blk)), 03256 03257 /***** Entry_Stmt *****/ 03258 03259 ((ONE << Unknown_Blk) | 03260 (ONE << Blockdata_Blk) | 03261 (ONE << Module_Blk) | 03262 (ONE << Program_Blk) | 03263 (ONE << Interface_Body_Blk) | 03264 (ONE << Internal_Blk) | 03265 (ONE << Forall_Blk) | 03266 (ONE << If_Blk) | 03267 (ONE << If_Then_Blk) | 03268 (ONE << If_Else_If_Blk) | 03269 (ONE << If_Else_Blk) | 03270 (ONE << Do_Blk) | 03271 (ONE << Select_Blk) | 03272 (ONE << Case_Blk) | 03273 (ONE << Where_Then_Blk) | 03274 (ONE << Where_Else_Blk) | 03275 (ONE << Where_Else_Mask_Blk) | 03276 (ONE << Parallel_Blk) | 03277 (ONE << SGI_Parallel_Blk) | 03278 (ONE << Doall_Blk) | 03279 (ONE << Wait_Blk) | 03280 (ONE << SGI_Doacross_Blk) | 03281 (ONE << SGI_Parallel_Do_Blk) | 03282 (ONE << Do_Parallel_Blk) | 03283 (ONE << SGI_Pdo_Blk) | 03284 (ONE << Guard_Blk) | 03285 (ONE << SGI_Critical_Section_Blk) | 03286 (ONE << Parallel_Case_Blk) | 03287 (ONE << SGI_Psection_Blk) | 03288 (ONE << SGI_Section_Blk) | 03289 (ONE << SGI_Single_Process_Blk) | 03290 (ONE << Open_Mp_Parallel_Blk) | 03291 (ONE << Open_Mp_Do_Blk) | 03292 (ONE << Open_Mp_Parallel_Sections_Blk) | 03293 (ONE << Open_Mp_Sections_Blk) | 03294 (ONE << Open_Mp_Section_Blk) | 03295 (ONE << Open_Mp_Single_Blk) | 03296 (ONE << Open_Mp_Parallel_Do_Blk) | 03297 (ONE << Open_Mp_Master_Blk) | 03298 (ONE << Open_Mp_Critical_Blk) | 03299 (ONE << Open_Mp_Ordered_Blk) | 03300 (ONE << Open_Mp_Parallel_Workshare_Blk) | 03301 (ONE << Open_Mp_Workshare_Blk) | 03302 (ONE << Contains_Blk) | 03303 (ONE << Interface_Blk) | 03304 (ONE << Derived_Type_Blk)), 03305 03306 /***** Exit_Stmt *****/ 03307 03308 ((ONE << Unknown_Blk) | 03309 (ONE << Blockdata_Blk) | 03310 (ONE << Module_Blk) | 03311 (ONE << Program_Blk) | 03312 (ONE << Function_Blk) | 03313 (ONE << Subroutine_Blk) | 03314 (ONE << Internal_Blk) | 03315 (ONE << Module_Proc_Blk) | 03316 (ONE << Interface_Body_Blk) | 03317 (ONE << Forall_Blk) | 03318 (ONE << If_Blk) | 03319 (ONE << Where_Then_Blk) | 03320 (ONE << Where_Else_Blk) | 03321 (ONE << Where_Else_Mask_Blk) | 03322 (ONE << SGI_Psection_Blk) | 03323 (ONE << Select_Blk) | 03324 (ONE << Contains_Blk) | 03325 (ONE << Interface_Blk) | 03326 (ONE << Derived_Type_Blk)), 03327 03328 /***** Go_To_Stmt *****/ 03329 03330 ((ONE << Unknown_Blk) | 03331 (ONE << Blockdata_Blk) | 03332 (ONE << Module_Blk) | 03333 (ONE << Interface_Body_Blk) | 03334 (ONE << Forall_Blk) | 03335 (ONE << If_Blk) | 03336 (ONE << Where_Then_Blk) | 03337 (ONE << Where_Else_Blk) | 03338 (ONE << Where_Else_Mask_Blk) | 03339 (ONE << SGI_Psection_Blk) | 03340 (ONE << Select_Blk) | 03341 (ONE << Contains_Blk) | 03342 (ONE << Interface_Blk) | 03343 (ONE << Derived_Type_Blk)), 03344 03345 /***** If_Cstrct_Stmt *****/ 03346 03347 ((ONE << Unknown_Blk) | 03348 (ONE << Blockdata_Blk) | 03349 (ONE << Module_Blk) | 03350 (ONE << Interface_Body_Blk) | 03351 (ONE << Forall_Blk) | 03352 (ONE << If_Blk) | 03353 (ONE << Where_Then_Blk) | 03354 (ONE << Where_Else_Blk) | 03355 (ONE << Where_Else_Mask_Blk) | 03356 (ONE << SGI_Psection_Blk) | 03357 (ONE << Select_Blk) | 03358 (ONE << Contains_Blk) | 03359 (ONE << Interface_Blk) | 03360 (ONE << Derived_Type_Blk)), 03361 03362 /***** If_Stmt *****/ 03363 03364 ((ONE << Unknown_Blk) | 03365 (ONE << Blockdata_Blk) | 03366 (ONE << Module_Blk) | 03367 (ONE << Forall_Blk) | 03368 (ONE << If_Blk) | 03369 (ONE << Where_Then_Blk) | 03370 (ONE << Where_Else_Blk) | 03371 (ONE << Where_Else_Mask_Blk) | 03372 (ONE << SGI_Psection_Blk) | 03373 (ONE << Select_Blk) | 03374 (ONE << Interface_Body_Blk) | 03375 (ONE << Contains_Blk) | 03376 (ONE << Interface_Blk) | 03377 (ONE << Derived_Type_Blk)), 03378 03379 /***** Inquire_Stmt *****/ 03380 03381 ((ONE << Unknown_Blk) | 03382 (ONE << Blockdata_Blk) | 03383 (ONE << Module_Blk) | 03384 (ONE << Interface_Body_Blk) | 03385 (ONE << Forall_Blk) | 03386 (ONE << If_Blk) | 03387 (ONE << Where_Then_Blk) | 03388 (ONE << Where_Else_Blk) | 03389 (ONE << Where_Else_Mask_Blk) | 03390 (ONE << SGI_Psection_Blk) | 03391 (ONE << Select_Blk) | 03392 (ONE << Contains_Blk) | 03393 (ONE << Interface_Blk) | 03394 (ONE << Derived_Type_Blk)), 03395 03396 /***** Nullify_Stmt *****/ 03397 03398 ((ONE << Unknown_Blk) | 03399 (ONE << Blockdata_Blk) | 03400 (ONE << Module_Blk) | 03401 (ONE << Interface_Body_Blk) | 03402 (ONE << Forall_Blk) | 03403 (ONE << If_Blk) | 03404 (ONE << Where_Then_Blk) | 03405 (ONE << Where_Else_Blk) | 03406 (ONE << Where_Else_Mask_Blk) | 03407 (ONE << SGI_Psection_Blk) | 03408 (ONE << Select_Blk) | 03409 (ONE << Contains_Blk) | 03410 (ONE << Interface_Blk) | 03411 (ONE << Derived_Type_Blk)), 03412 03413 /***** Open_Stmt *****/ 03414 03415 ((ONE << Unknown_Blk) | 03416 (ONE << Blockdata_Blk) | 03417 (ONE << Module_Blk) | 03418 (ONE << Interface_Body_Blk) | 03419 (ONE << Forall_Blk) | 03420 (ONE << If_Blk) | 03421 (ONE << Where_Then_Blk) | 03422 (ONE << Where_Else_Blk) | 03423 (ONE << Where_Else_Mask_Blk) | 03424 (ONE << SGI_Psection_Blk) | 03425 (ONE << Select_Blk) | 03426 (ONE << Contains_Blk) | 03427 (ONE << Interface_Blk) | 03428 (ONE << Derived_Type_Blk)), 03429 03430 /***** Outmoded_If_Stmt *****/ 03431 03432 ((ONE << Unknown_Blk) | 03433 (ONE << Blockdata_Blk) | 03434 (ONE << Module_Blk) | 03435 (ONE << Interface_Body_Blk) | 03436 (ONE << Forall_Blk) | 03437 (ONE << If_Blk) | 03438 (ONE << Where_Then_Blk) | 03439 (ONE << Where_Else_Blk) | 03440 (ONE << Where_Else_Mask_Blk) | 03441 (ONE << SGI_Psection_Blk) | 03442 (ONE << Select_Blk) | 03443 (ONE << Contains_Blk) | 03444 (ONE << Interface_Blk) | 03445 (ONE << Derived_Type_Blk)), 03446 03447 /***** Pause_Stmt *****/ 03448 03449 ((ONE << Unknown_Blk) | 03450 (ONE << Blockdata_Blk) | 03451 (ONE << Module_Blk) | 03452 (ONE << Interface_Body_Blk) | 03453 (ONE << Forall_Blk) | 03454 (ONE << If_Blk) | 03455 (ONE << Where_Then_Blk) | 03456 (ONE << Where_Else_Blk) | 03457 (ONE << Where_Else_Mask_Blk) | 03458 (ONE << SGI_Psection_Blk) | 03459 (ONE << Select_Blk) | 03460 (ONE << Contains_Blk) | 03461 (ONE << Interface_Blk) | 03462 (ONE << Derived_Type_Blk)), 03463 03464 /***** Print_Stmt *****/ 03465 03466 ((ONE << Unknown_Blk) | 03467 (ONE << Blockdata_Blk) | 03468 (ONE << Module_Blk) | 03469 (ONE << Interface_Body_Blk) | 03470 (ONE << Forall_Blk) | 03471 (ONE << If_Blk) | 03472 (ONE << Where_Then_Blk) | 03473 (ONE << Where_Else_Blk) | 03474 (ONE << Where_Else_Mask_Blk) | 03475 (ONE << SGI_Psection_Blk) | 03476 (ONE << Select_Blk) | 03477 (ONE << Contains_Blk) | 03478 (ONE << Interface_Blk) | 03479 (ONE << Derived_Type_Blk)), 03480 03481 /***** Read_Stmt *****/ 03482 03483 ((ONE << Unknown_Blk) | 03484 (ONE << Blockdata_Blk) | 03485 (ONE << Module_Blk) | 03486 (ONE << Interface_Body_Blk) | 03487 (ONE << Forall_Blk) | 03488 (ONE << If_Blk) | 03489 (ONE << Where_Then_Blk) | 03490 (ONE << Where_Else_Blk) | 03491 (ONE << Where_Else_Mask_Blk) | 03492 (ONE << SGI_Psection_Blk) | 03493 (ONE << Select_Blk) | 03494 (ONE << Contains_Blk) | 03495 (ONE << Interface_Blk) | 03496 (ONE << Derived_Type_Blk)), 03497 03498 /***** Return_Stmt *****/ 03499 03500 ((ONE << Unknown_Blk) | 03501 (ONE << Blockdata_Blk) | 03502 (ONE << Module_Blk) | 03503 (ONE << Program_Blk) | 03504 (ONE << Interface_Body_Blk) | 03505 (ONE << Forall_Blk) | 03506 (ONE << If_Blk) | 03507 (ONE << Where_Then_Blk) | 03508 (ONE << Where_Else_Blk) | 03509 (ONE << Where_Else_Mask_Blk) | 03510 (ONE << SGI_Psection_Blk) | 03511 (ONE << Select_Blk) | 03512 (ONE << Contains_Blk) | 03513 (ONE << Interface_Blk) | 03514 (ONE << Derived_Type_Blk)), 03515 03516 /***** Rewind_Stmt *****/ 03517 03518 ((ONE << Unknown_Blk) | 03519 (ONE << Blockdata_Blk) | 03520 (ONE << Module_Blk) | 03521 (ONE << Interface_Body_Blk) | 03522 (ONE << Forall_Blk) | 03523 (ONE << If_Blk) | 03524 (ONE << Where_Then_Blk) | 03525 (ONE << Where_Else_Blk) | 03526 (ONE << Where_Else_Mask_Blk) | 03527 (ONE << SGI_Psection_Blk) | 03528 (ONE << Select_Blk) | 03529 (ONE << Contains_Blk) | 03530 (ONE << Interface_Blk) | 03531 (ONE << Derived_Type_Blk)), 03532 03533 /***** Select_Stmt *****/ 03534 03535 ((ONE << Unknown_Blk) | 03536 (ONE << Blockdata_Blk) | 03537 (ONE << Module_Blk) | 03538 (ONE << Interface_Body_Blk) | 03539 (ONE << Forall_Blk) | 03540 (ONE << If_Blk) | 03541 (ONE << Where_Then_Blk) | 03542 (ONE << Where_Else_Blk) | 03543 (ONE << Where_Else_Mask_Blk) | 03544 (ONE << SGI_Psection_Blk) | 03545 (ONE << Select_Blk) | 03546 (ONE << Contains_Blk) | 03547 (ONE << Interface_Blk) | 03548 (ONE << Derived_Type_Blk)), 03549 03550 /***** Stop_Stmt *****/ 03551 03552 ((ONE << Unknown_Blk) | 03553 (ONE << Blockdata_Blk) | 03554 (ONE << Module_Blk) | 03555 (ONE << Interface_Body_Blk) | 03556 (ONE << Forall_Blk) | 03557 (ONE << If_Blk) | 03558 (ONE << Where_Then_Blk) | 03559 (ONE << Where_Else_Blk) | 03560 (ONE << Where_Else_Mask_Blk) | 03561 (ONE << SGI_Psection_Blk) | 03562 (ONE << Select_Blk) | 03563 (ONE << Contains_Blk) | 03564 (ONE << Interface_Blk) | 03565 (ONE << Derived_Type_Blk)), 03566 03567 /***** Then_Stmt *****/ 03568 03569 ((ONE << Unknown_Blk) | 03570 (ONE << Blockdata_Blk) | 03571 (ONE << Module_Blk) | 03572 (ONE << Interface_Body_Blk) | 03573 (ONE << Forall_Blk) | 03574 (ONE << If_Else_Blk) | 03575 (ONE << If_Then_Blk) | 03576 (ONE << If_Else_If_Blk) | 03577 (ONE << Where_Then_Blk) | 03578 (ONE << Where_Else_Blk) | 03579 (ONE << Where_Else_Mask_Blk) | 03580 (ONE << SGI_Psection_Blk) | 03581 (ONE << Select_Blk) | 03582 (ONE << Contains_Blk) | 03583 (ONE << Interface_Blk) | 03584 (ONE << Derived_Type_Blk)), 03585 03586 /***** Where_Cstrct_Stmt *****/ 03587 03588 ((ONE << Unknown_Blk) | 03589 (ONE << Blockdata_Blk) | 03590 (ONE << Module_Blk) | 03591 (ONE << Interface_Body_Blk) | 03592 (ONE << If_Blk) | 03593 (ONE << SGI_Psection_Blk) | 03594 (ONE << Select_Blk) | 03595 (ONE << Contains_Blk) | 03596 (ONE << Interface_Blk) | 03597 (ONE << Derived_Type_Blk)), 03598 03599 /***** Where_Stmt *****/ 03600 03601 ((ONE << Unknown_Blk) | 03602 (ONE << Blockdata_Blk) | 03603 (ONE << Module_Blk) | 03604 (ONE << Interface_Body_Blk) | 03605 (ONE << If_Blk) | 03606 (ONE << SGI_Psection_Blk) | 03607 (ONE << Select_Blk) | 03608 (ONE << Contains_Blk) | 03609 (ONE << Interface_Blk) | 03610 (ONE << Derived_Type_Blk)), 03611 03612 /***** Write_Stmt *****/ 03613 03614 ((ONE << Unknown_Blk) | 03615 (ONE << Blockdata_Blk) | 03616 (ONE << Module_Blk) | 03617 (ONE << Interface_Body_Blk) | 03618 (ONE << Forall_Blk) | 03619 (ONE << If_Blk) | 03620 (ONE << Where_Then_Blk) | 03621 (ONE << Where_Else_Blk) | 03622 (ONE << Where_Else_Mask_Blk) | 03623 (ONE << SGI_Psection_Blk) | 03624 (ONE << Select_Blk) | 03625 (ONE << Contains_Blk) | 03626 (ONE << Interface_Blk) | 03627 (ONE << Derived_Type_Blk)), 03628 03629 /***** Type_Init_Stmt *****/ 03630 03631 (0), 03632 03633 /***** Label_Def *****/ 03634 03635 (0), 03636 03637 /***** Construct_Def *****/ 03638 03639 (0), 03640 03641 /***** Automatic_Base_Calc_Stmt *****/ 03642 03643 (0), 03644 03645 /***** Automatic_Base_Size_Stmt *****/ 03646 03647 (0), 03648 03649 /***** End_Parallel_Stmt *****/ 03650 03651 ((ONE << Unknown_Blk) | 03652 (ONE << Blockdata_Blk) | 03653 (ONE << Module_Blk) | 03654 (ONE << Program_Blk) | 03655 (ONE << Function_Blk) | 03656 (ONE << Subroutine_Blk) | 03657 (ONE << Internal_Blk) | 03658 (ONE << Module_Proc_Blk) | 03659 (ONE << Interface_Body_Blk) | 03660 (ONE << Forall_Blk) | 03661 (ONE << If_Blk) | 03662 (ONE << If_Then_Blk) | 03663 (ONE << If_Else_If_Blk) | 03664 (ONE << If_Else_Blk) | 03665 (ONE << Do_Blk) | 03666 (ONE << Select_Blk) | 03667 (ONE << Case_Blk) | 03668 (ONE << Where_Then_Blk) | 03669 (ONE << Where_Else_Blk) | 03670 (ONE << Where_Else_Mask_Blk) | 03671 (ONE << Doall_Blk) | 03672 (ONE << Wait_Blk) | 03673 (ONE << SGI_Parallel_Blk) | 03674 (ONE << SGI_Doacross_Blk) | 03675 (ONE << SGI_Parallel_Do_Blk) | 03676 (ONE << Do_Parallel_Blk) | 03677 (ONE << SGI_Pdo_Blk) | 03678 (ONE << Guard_Blk) | 03679 (ONE << SGI_Critical_Section_Blk) | 03680 (ONE << Parallel_Case_Blk) | 03681 (ONE << SGI_Psection_Blk) | 03682 (ONE << SGI_Section_Blk) | 03683 (ONE << SGI_Single_Process_Blk) | 03684 (ONE << SGI_Region_Blk) | 03685 (ONE << Open_Mp_Parallel_Blk) | 03686 (ONE << Open_Mp_Do_Blk) | 03687 (ONE << Open_Mp_Parallel_Sections_Blk) | 03688 (ONE << Open_Mp_Sections_Blk) | 03689 (ONE << Open_Mp_Section_Blk) | 03690 (ONE << Open_Mp_Single_Blk) | 03691 (ONE << Open_Mp_Parallel_Do_Blk) | 03692 (ONE << Open_Mp_Master_Blk) | 03693 (ONE << Open_Mp_Critical_Blk) | 03694 (ONE << Open_Mp_Ordered_Blk) | 03695 (ONE << Open_Mp_Parallel_Workshare_Blk) | 03696 (ONE << Open_Mp_Workshare_Blk) | 03697 (ONE << Contains_Blk) | 03698 (ONE << Interface_Blk) | 03699 (ONE << Derived_Type_Blk)), 03700 03701 /***** End_Do_Parallel_Stmt *****/ 03702 03703 ((ONE << Unknown_Blk) | 03704 (ONE << Blockdata_Blk) | 03705 (ONE << Module_Blk) | 03706 (ONE << Program_Blk) | 03707 (ONE << Function_Blk) | 03708 (ONE << Subroutine_Blk) | 03709 (ONE << Internal_Blk) | 03710 (ONE << Module_Proc_Blk) | 03711 (ONE << Interface_Body_Blk) | 03712 (ONE << Forall_Blk) | 03713 (ONE << If_Blk) | 03714 (ONE << If_Then_Blk) | 03715 (ONE << If_Else_If_Blk) | 03716 (ONE << If_Else_Blk) | 03717 (ONE << Do_Blk) | 03718 (ONE << Select_Blk) | 03719 (ONE << Case_Blk) | 03720 (ONE << Where_Then_Blk) | 03721 (ONE << Where_Else_Blk) | 03722 (ONE << Where_Else_Mask_Blk) | 03723 (ONE << Parallel_Blk) | 03724 (ONE << SGI_Parallel_Blk) | 03725 (ONE << Doall_Blk) | 03726 (ONE << Wait_Blk) | 03727 (ONE << SGI_Doacross_Blk) | 03728 (ONE << SGI_Parallel_Do_Blk) | 03729 (ONE << SGI_Pdo_Blk) | 03730 (ONE << Guard_Blk) | 03731 (ONE << SGI_Critical_Section_Blk) | 03732 (ONE << Parallel_Case_Blk) | 03733 (ONE << SGI_Psection_Blk) | 03734 (ONE << SGI_Section_Blk) | 03735 (ONE << SGI_Single_Process_Blk) | 03736 (ONE << SGI_Region_Blk) | 03737 (ONE << Open_Mp_Parallel_Blk) | 03738 (ONE << Open_Mp_Do_Blk) | 03739 (ONE << Open_Mp_Parallel_Sections_Blk) | 03740 (ONE << Open_Mp_Sections_Blk) | 03741 (ONE << Open_Mp_Section_Blk) | 03742 (ONE << Open_Mp_Single_Blk) | 03743 (ONE << Open_Mp_Parallel_Do_Blk) | 03744 (ONE << Open_Mp_Master_Blk) | 03745 (ONE << Open_Mp_Critical_Blk) | 03746 (ONE << Open_Mp_Ordered_Blk) | 03747 (ONE << Open_Mp_Parallel_Workshare_Blk) | 03748 (ONE << Open_Mp_Workshare_Blk) | 03749 (ONE << Contains_Blk) | 03750 (ONE << Interface_Blk) | 03751 (ONE << Derived_Type_Blk)), 03752 03753 /***** End_Parallel_Case_Stmt *****/ 03754 03755 ((ONE << Unknown_Blk) | 03756 (ONE << Blockdata_Blk) | 03757 (ONE << Module_Blk) | 03758 (ONE << Program_Blk) | 03759 (ONE << Function_Blk) | 03760 (ONE << Subroutine_Blk) | 03761 (ONE << Internal_Blk) | 03762 (ONE << Module_Proc_Blk) | 03763 (ONE << Interface_Body_Blk) | 03764 (ONE << Forall_Blk) | 03765 (ONE << If_Blk) | 03766 (ONE << If_Then_Blk) | 03767 (ONE << If_Else_If_Blk) | 03768 (ONE << If_Else_Blk) | 03769 (ONE << Do_Blk) | 03770 (ONE << Select_Blk) | 03771 (ONE << Case_Blk) | 03772 (ONE << Where_Then_Blk) | 03773 (ONE << Where_Else_Blk) | 03774 (ONE << Where_Else_Mask_Blk) | 03775 (ONE << Parallel_Blk) | 03776 (ONE << SGI_Parallel_Blk) | 03777 (ONE << Doall_Blk) | 03778 (ONE << Wait_Blk) | 03779 (ONE << SGI_Doacross_Blk) | 03780 (ONE << SGI_Parallel_Do_Blk) | 03781 (ONE << Do_Parallel_Blk) | 03782 (ONE << SGI_Pdo_Blk) | 03783 (ONE << Guard_Blk) | 03784 (ONE << SGI_Critical_Section_Blk) | 03785 (ONE << SGI_Psection_Blk) | 03786 (ONE << SGI_Section_Blk) | 03787 (ONE << SGI_Single_Process_Blk) | 03788 (ONE << SGI_Region_Blk) | 03789 (ONE << Open_Mp_Parallel_Blk) | 03790 (ONE << Open_Mp_Do_Blk) | 03791 (ONE << Open_Mp_Parallel_Sections_Blk) | 03792 (ONE << Open_Mp_Sections_Blk) | 03793 (ONE << Open_Mp_Section_Blk) | 03794 (ONE << Open_Mp_Single_Blk) | 03795 (ONE << Open_Mp_Parallel_Do_Blk) | 03796 (ONE << Open_Mp_Master_Blk) | 03797 (ONE << Open_Mp_Critical_Blk) | 03798 (ONE << Open_Mp_Ordered_Blk) | 03799 (ONE << Open_Mp_Parallel_Workshare_Blk) | 03800 (ONE << Open_Mp_Workshare_Blk) | 03801 (ONE << Contains_Blk) | 03802 (ONE << Interface_Blk) | 03803 (ONE << Derived_Type_Blk)), 03804 03805 /***** Parallel_Case_Stmt *****/ 03806 03807 ((ONE << Unknown_Blk) | 03808 (ONE << Blockdata_Blk) | 03809 (ONE << Module_Blk) | 03810 (ONE << Program_Blk) | 03811 (ONE << Function_Blk) | 03812 (ONE << Subroutine_Blk) | 03813 (ONE << Internal_Blk) | 03814 (ONE << Module_Proc_Blk) | 03815 (ONE << Interface_Body_Blk) | 03816 (ONE << Forall_Blk) | 03817 (ONE << If_Blk) | 03818 (ONE << If_Then_Blk) | 03819 (ONE << If_Else_If_Blk) | 03820 (ONE << If_Else_Blk) | 03821 (ONE << Do_Blk) | 03822 (ONE << Select_Blk) | 03823 (ONE << Case_Blk) | 03824 (ONE << Where_Then_Blk) | 03825 (ONE << Where_Else_Blk) | 03826 (ONE << Where_Else_Mask_Blk) | 03827 (ONE << Parallel_Blk) | 03828 (ONE << SGI_Parallel_Blk) | 03829 (ONE << Doall_Blk) | 03830 (ONE << Wait_Blk) | 03831 (ONE << SGI_Doacross_Blk) | 03832 (ONE << SGI_Parallel_Do_Blk) | 03833 (ONE << Do_Parallel_Blk) | 03834 (ONE << SGI_Pdo_Blk) | 03835 (ONE << Guard_Blk) | 03836 (ONE << SGI_Critical_Section_Blk) | 03837 (ONE << SGI_Psection_Blk) | 03838 (ONE << SGI_Section_Blk) | 03839 (ONE << SGI_Single_Process_Blk) | 03840 (ONE << SGI_Region_Blk) | 03841 (ONE << Open_Mp_Parallel_Blk) | 03842 (ONE << Open_Mp_Do_Blk) | 03843 (ONE << Open_Mp_Parallel_Sections_Blk) | 03844 (ONE << Open_Mp_Sections_Blk) | 03845 (ONE << Open_Mp_Section_Blk) | 03846 (ONE << Open_Mp_Single_Blk) | 03847 (ONE << Open_Mp_Parallel_Do_Blk) | 03848 (ONE << Open_Mp_Master_Blk) | 03849 (ONE << Open_Mp_Critical_Blk) | 03850 (ONE << Open_Mp_Ordered_Blk) | 03851 (ONE << Open_Mp_Parallel_Workshare_Blk) | 03852 (ONE << Open_Mp_Workshare_Blk) | 03853 (ONE << Contains_Blk) | 03854 (ONE << Interface_Blk) | 03855 (ONE << Derived_Type_Blk)), 03856 03857 /***** End_Guard_Stmt *****/ 03858 03859 ((ONE << Unknown_Blk) | 03860 (ONE << Blockdata_Blk) | 03861 (ONE << Module_Blk) | 03862 (ONE << Program_Blk) | 03863 (ONE << Function_Blk) | 03864 (ONE << Subroutine_Blk) | 03865 (ONE << Internal_Blk) | 03866 (ONE << Module_Proc_Blk) | 03867 (ONE << Interface_Body_Blk) | 03868 (ONE << Forall_Blk) | 03869 (ONE << If_Blk) | 03870 (ONE << If_Then_Blk) | 03871 (ONE << If_Else_If_Blk) | 03872 (ONE << If_Else_Blk) | 03873 (ONE << Do_Blk) | 03874 (ONE << Select_Blk) | 03875 (ONE << Case_Blk) | 03876 (ONE << Where_Then_Blk) | 03877 (ONE << Where_Else_Blk) | 03878 (ONE << Where_Else_Mask_Blk) | 03879 (ONE << Parallel_Blk) | 03880 (ONE << SGI_Parallel_Blk) | 03881 (ONE << Doall_Blk) | 03882 (ONE << Wait_Blk) | 03883 (ONE << SGI_Doacross_Blk) | 03884 (ONE << SGI_Parallel_Do_Blk) | 03885 (ONE << Do_Parallel_Blk) | 03886 (ONE << SGI_Pdo_Blk) | 03887 (ONE << Parallel_Case_Blk) | 03888 (ONE << SGI_Critical_Section_Blk) | 03889 (ONE << SGI_Psection_Blk) | 03890 (ONE << SGI_Section_Blk) | 03891 (ONE << SGI_Single_Process_Blk) | 03892 (ONE << SGI_Region_Blk) | 03893 (ONE << Open_Mp_Parallel_Blk) | 03894 (ONE << Open_Mp_Do_Blk) | 03895 (ONE << Open_Mp_Parallel_Sections_Blk) | 03896 (ONE << Open_Mp_Sections_Blk) | 03897 (ONE << Open_Mp_Section_Blk) | 03898 (ONE << Open_Mp_Single_Blk) | 03899 (ONE << Open_Mp_Parallel_Do_Blk) | 03900 (ONE << Open_Mp_Master_Blk) | 03901 (ONE << Open_Mp_Critical_Blk) | 03902 (ONE << Open_Mp_Ordered_Blk) | 03903 (ONE << Open_Mp_Parallel_Workshare_Blk) | 03904 (ONE << Open_Mp_Workshare_Blk) | 03905 (ONE << Contains_Blk) | 03906 (ONE << Interface_Blk) | 03907 (ONE << Derived_Type_Blk)), 03908 03909 /***** Statement_Num_Stmt *****/ 03910 03911 (0), 03912 03913 /***** SGI_Section_Stmt *****/ 03914 03915 ((ONE << Unknown_Blk) | 03916 (ONE << Blockdata_Blk) | 03917 (ONE << Module_Blk) | 03918 (ONE << Program_Blk) | 03919 (ONE << Function_Blk) | 03920 (ONE << Subroutine_Blk) | 03921 (ONE << Internal_Blk) | 03922 (ONE << Module_Proc_Blk) | 03923 (ONE << Interface_Body_Blk) | 03924 (ONE << Forall_Blk) | 03925 (ONE << If_Blk) | 03926 (ONE << If_Then_Blk) | 03927 (ONE << If_Else_If_Blk) | 03928 (ONE << If_Else_Blk) | 03929 (ONE << Do_Blk) | 03930 (ONE << Select_Blk) | 03931 (ONE << Case_Blk) | 03932 (ONE << Where_Then_Blk) | 03933 (ONE << Where_Else_Blk) | 03934 (ONE << Where_Else_Mask_Blk) | 03935 (ONE << Parallel_Blk) | 03936 (ONE << SGI_Parallel_Blk) | 03937 (ONE << Doall_Blk) | 03938 (ONE << Wait_Blk) | 03939 (ONE << SGI_Doacross_Blk) | 03940 (ONE << SGI_Parallel_Do_Blk) | 03941 (ONE << Do_Parallel_Blk) | 03942 (ONE << SGI_Pdo_Blk) | 03943 (ONE << Guard_Blk) | 03944 (ONE << SGI_Critical_Section_Blk) | 03945 (ONE << Parallel_Case_Blk) | 03946 (ONE << SGI_Single_Process_Blk) | 03947 (ONE << SGI_Region_Blk) | 03948 (ONE << Open_Mp_Parallel_Blk) | 03949 (ONE << Open_Mp_Do_Blk) | 03950 (ONE << Open_Mp_Parallel_Sections_Blk) | 03951 (ONE << Open_Mp_Sections_Blk) | 03952 (ONE << Open_Mp_Section_Blk) | 03953 (ONE << Open_Mp_Single_Blk) | 03954 (ONE << Open_Mp_Parallel_Do_Blk) | 03955 (ONE << Open_Mp_Master_Blk) | 03956 (ONE << Open_Mp_Critical_Blk) | 03957 (ONE << Open_Mp_Ordered_Blk) | 03958 (ONE << Open_Mp_Parallel_Workshare_Blk) | 03959 (ONE << Open_Mp_Workshare_Blk) | 03960 (ONE << Contains_Blk) | 03961 (ONE << Interface_Blk) | 03962 (ONE << Derived_Type_Blk)), 03963 03964 /***** SGI_End_Psection_Stmt *****/ 03965 03966 ((ONE << Unknown_Blk) | 03967 (ONE << Blockdata_Blk) | 03968 (ONE << Module_Blk) | 03969 (ONE << Program_Blk) | 03970 (ONE << Function_Blk) | 03971 (ONE << Subroutine_Blk) | 03972 (ONE << Internal_Blk) | 03973 (ONE << Module_Proc_Blk) | 03974 (ONE << Interface_Body_Blk) | 03975 (ONE << Forall_Blk) | 03976 (ONE << If_Blk) | 03977 (ONE << If_Then_Blk) | 03978 (ONE << If_Else_If_Blk) | 03979 (ONE << If_Else_Blk) | 03980 (ONE << Do_Blk) | 03981 (ONE << Select_Blk) | 03982 (ONE << Case_Blk) | 03983 (ONE << Where_Then_Blk) | 03984 (ONE << Where_Else_Blk) | 03985 (ONE << Where_Else_Mask_Blk) | 03986 (ONE << Parallel_Blk) | 03987 (ONE << SGI_Parallel_Blk) | 03988 (ONE << Doall_Blk) | 03989 (ONE << Wait_Blk) | 03990 (ONE << SGI_Doacross_Blk) | 03991 (ONE << SGI_Parallel_Do_Blk) | 03992 (ONE << Do_Parallel_Blk) | 03993 (ONE << SGI_Pdo_Blk) | 03994 (ONE << Guard_Blk) | 03995 (ONE << SGI_Critical_Section_Blk) | 03996 (ONE << Parallel_Case_Blk) | 03997 (ONE << SGI_Single_Process_Blk) | 03998 (ONE << SGI_Region_Blk) | 03999 (ONE << Open_Mp_Parallel_Blk) | 04000 (ONE << Open_Mp_Do_Blk) | 04001 (ONE << Open_Mp_Parallel_Sections_Blk) | 04002 (ONE << Open_Mp_Sections_Blk) | 04003 (ONE << Open_Mp_Section_Blk) | 04004 (ONE << Open_Mp_Single_Blk) | 04005 (ONE << Open_Mp_Parallel_Do_Blk) | 04006 (ONE << Open_Mp_Master_Blk) | 04007 (ONE << Open_Mp_Critical_Blk) | 04008 (ONE << Open_Mp_Ordered_Blk) | 04009 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04010 (ONE << Open_Mp_Workshare_Blk) | 04011 (ONE << Contains_Blk) | 04012 (ONE << Interface_Blk) | 04013 (ONE << Derived_Type_Blk)), 04014 04015 /***** SGI_End_Pdo_Stmt *****/ 04016 04017 ((ONE << Unknown_Blk) | 04018 (ONE << Blockdata_Blk) | 04019 (ONE << Module_Blk) | 04020 (ONE << Program_Blk) | 04021 (ONE << Function_Blk) | 04022 (ONE << Subroutine_Blk) | 04023 (ONE << Internal_Blk) | 04024 (ONE << Module_Proc_Blk) | 04025 (ONE << Interface_Body_Blk) | 04026 (ONE << Forall_Blk) | 04027 (ONE << If_Blk) | 04028 (ONE << If_Then_Blk) | 04029 (ONE << If_Else_If_Blk) | 04030 (ONE << If_Else_Blk) | 04031 (ONE << Do_Blk) | 04032 (ONE << Select_Blk) | 04033 (ONE << Case_Blk) | 04034 (ONE << Where_Then_Blk) | 04035 (ONE << Where_Else_Blk) | 04036 (ONE << Where_Else_Mask_Blk) | 04037 (ONE << Parallel_Blk) | 04038 (ONE << SGI_Parallel_Blk) | 04039 (ONE << Doall_Blk) | 04040 (ONE << Wait_Blk) | 04041 (ONE << SGI_Doacross_Blk) | 04042 (ONE << SGI_Parallel_Do_Blk) | 04043 (ONE << Do_Parallel_Blk) | 04044 (ONE << Guard_Blk) | 04045 (ONE << SGI_Critical_Section_Blk) | 04046 (ONE << Parallel_Case_Blk) | 04047 (ONE << SGI_Psection_Blk) | 04048 (ONE << SGI_Section_Blk) | 04049 (ONE << SGI_Single_Process_Blk) | 04050 (ONE << SGI_Region_Blk) | 04051 (ONE << Open_Mp_Parallel_Blk) | 04052 (ONE << Open_Mp_Do_Blk) | 04053 (ONE << Open_Mp_Parallel_Sections_Blk) | 04054 (ONE << Open_Mp_Sections_Blk) | 04055 (ONE << Open_Mp_Section_Blk) | 04056 (ONE << Open_Mp_Single_Blk) | 04057 (ONE << Open_Mp_Parallel_Do_Blk) | 04058 (ONE << Open_Mp_Master_Blk) | 04059 (ONE << Open_Mp_Critical_Blk) | 04060 (ONE << Open_Mp_Ordered_Blk) | 04061 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04062 (ONE << Open_Mp_Workshare_Blk) | 04063 (ONE << Contains_Blk) | 04064 (ONE << Interface_Blk) | 04065 (ONE << Derived_Type_Blk)), 04066 04067 /***** SGI_End_Parallel_Stmt *****/ 04068 04069 ((ONE << Unknown_Blk) | 04070 (ONE << Blockdata_Blk) | 04071 (ONE << Module_Blk) | 04072 (ONE << Program_Blk) | 04073 (ONE << Function_Blk) | 04074 (ONE << Subroutine_Blk) | 04075 (ONE << Internal_Blk) | 04076 (ONE << Module_Proc_Blk) | 04077 (ONE << Interface_Body_Blk) | 04078 (ONE << Forall_Blk) | 04079 (ONE << If_Blk) | 04080 (ONE << If_Then_Blk) | 04081 (ONE << If_Else_If_Blk) | 04082 (ONE << If_Else_Blk) | 04083 (ONE << Do_Blk) | 04084 (ONE << Select_Blk) | 04085 (ONE << Case_Blk) | 04086 (ONE << Where_Then_Blk) | 04087 (ONE << Where_Else_Blk) | 04088 (ONE << Where_Else_Mask_Blk) | 04089 (ONE << Parallel_Blk) | 04090 (ONE << Doall_Blk) | 04091 (ONE << Wait_Blk) | 04092 (ONE << SGI_Doacross_Blk) | 04093 (ONE << SGI_Parallel_Do_Blk) | 04094 (ONE << Do_Parallel_Blk) | 04095 (ONE << Guard_Blk) | 04096 (ONE << Parallel_Case_Blk) | 04097 (ONE << SGI_Region_Blk) | 04098 (ONE << Open_Mp_Parallel_Blk) | 04099 (ONE << Open_Mp_Do_Blk) | 04100 (ONE << Open_Mp_Parallel_Sections_Blk) | 04101 (ONE << Open_Mp_Sections_Blk) | 04102 (ONE << Open_Mp_Section_Blk) | 04103 (ONE << Open_Mp_Single_Blk) | 04104 (ONE << Open_Mp_Parallel_Do_Blk) | 04105 (ONE << Open_Mp_Master_Blk) | 04106 (ONE << Open_Mp_Critical_Blk) | 04107 (ONE << Open_Mp_Ordered_Blk) | 04108 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04109 (ONE << Open_Mp_Workshare_Blk) | 04110 (ONE << Contains_Blk) | 04111 (ONE << Interface_Blk) | 04112 (ONE << Derived_Type_Blk)), 04113 04114 /***** SGI_End_Critical_Section_Stmt *****/ 04115 04116 ((ONE << Unknown_Blk) | 04117 (ONE << Blockdata_Blk) | 04118 (ONE << Module_Blk) | 04119 (ONE << Program_Blk) | 04120 (ONE << Function_Blk) | 04121 (ONE << Subroutine_Blk) | 04122 (ONE << Internal_Blk) | 04123 (ONE << Module_Proc_Blk) | 04124 (ONE << Interface_Body_Blk) | 04125 (ONE << Forall_Blk) | 04126 (ONE << If_Blk) | 04127 (ONE << If_Then_Blk) | 04128 (ONE << If_Else_If_Blk) | 04129 (ONE << If_Else_Blk) | 04130 (ONE << Do_Blk) | 04131 (ONE << Select_Blk) | 04132 (ONE << Case_Blk) | 04133 (ONE << Where_Then_Blk) | 04134 (ONE << Where_Else_Blk) | 04135 (ONE << Where_Else_Mask_Blk) | 04136 (ONE << Parallel_Blk) | 04137 (ONE << SGI_Parallel_Blk) | 04138 (ONE << Doall_Blk) | 04139 (ONE << Wait_Blk) | 04140 (ONE << SGI_Doacross_Blk) | 04141 (ONE << SGI_Parallel_Do_Blk) | 04142 (ONE << Do_Parallel_Blk) | 04143 (ONE << SGI_Pdo_Blk) | 04144 (ONE << Guard_Blk) | 04145 (ONE << Parallel_Case_Blk) | 04146 (ONE << SGI_Psection_Blk) | 04147 (ONE << SGI_Section_Blk) | 04148 (ONE << SGI_Single_Process_Blk) | 04149 (ONE << SGI_Region_Blk) | 04150 (ONE << Open_Mp_Parallel_Blk) | 04151 (ONE << Open_Mp_Do_Blk) | 04152 (ONE << Open_Mp_Parallel_Sections_Blk) | 04153 (ONE << Open_Mp_Sections_Blk) | 04154 (ONE << Open_Mp_Section_Blk) | 04155 (ONE << Open_Mp_Single_Blk) | 04156 (ONE << Open_Mp_Parallel_Do_Blk) | 04157 (ONE << Open_Mp_Master_Blk) | 04158 (ONE << Open_Mp_Critical_Blk) | 04159 (ONE << Open_Mp_Ordered_Blk) | 04160 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04161 (ONE << Open_Mp_Workshare_Blk) | 04162 (ONE << Contains_Blk) | 04163 (ONE << Interface_Blk) | 04164 (ONE << Derived_Type_Blk)), 04165 04166 /***** SGI_End_Single_Process_Stmt *****/ 04167 04168 ((ONE << Unknown_Blk) | 04169 (ONE << Blockdata_Blk) | 04170 (ONE << Module_Blk) | 04171 (ONE << Program_Blk) | 04172 (ONE << Function_Blk) | 04173 (ONE << Subroutine_Blk) | 04174 (ONE << Internal_Blk) | 04175 (ONE << Module_Proc_Blk) | 04176 (ONE << Interface_Body_Blk) | 04177 (ONE << Forall_Blk) | 04178 (ONE << If_Blk) | 04179 (ONE << If_Then_Blk) | 04180 (ONE << If_Else_If_Blk) | 04181 (ONE << If_Else_Blk) | 04182 (ONE << Do_Blk) | 04183 (ONE << Select_Blk) | 04184 (ONE << Case_Blk) | 04185 (ONE << Where_Then_Blk) | 04186 (ONE << Where_Else_Blk) | 04187 (ONE << Where_Else_Mask_Blk) | 04188 (ONE << Parallel_Blk) | 04189 (ONE << SGI_Parallel_Blk) | 04190 (ONE << Doall_Blk) | 04191 (ONE << Wait_Blk) | 04192 (ONE << SGI_Doacross_Blk) | 04193 (ONE << SGI_Parallel_Do_Blk) | 04194 (ONE << Do_Parallel_Blk) | 04195 (ONE << SGI_Pdo_Blk) | 04196 (ONE << Guard_Blk) | 04197 (ONE << SGI_Critical_Section_Blk) | 04198 (ONE << Parallel_Case_Blk) | 04199 (ONE << SGI_Psection_Blk) | 04200 (ONE << SGI_Section_Blk) | 04201 (ONE << SGI_Region_Blk) | 04202 (ONE << Open_Mp_Parallel_Blk) | 04203 (ONE << Open_Mp_Do_Blk) | 04204 (ONE << Open_Mp_Parallel_Sections_Blk) | 04205 (ONE << Open_Mp_Sections_Blk) | 04206 (ONE << Open_Mp_Section_Blk) | 04207 (ONE << Open_Mp_Single_Blk) | 04208 (ONE << Open_Mp_Parallel_Do_Blk) | 04209 (ONE << Open_Mp_Master_Blk) | 04210 (ONE << Open_Mp_Critical_Blk) | 04211 (ONE << Open_Mp_Ordered_Blk) | 04212 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04213 (ONE << Open_Mp_Workshare_Blk) | 04214 (ONE << Contains_Blk) | 04215 (ONE << Interface_Blk) | 04216 (ONE << Derived_Type_Blk)), 04217 04218 /***** SGI_Region_End_Stmt *****/ 04219 04220 ((ONE << Unknown_Blk) | 04221 (ONE << Blockdata_Blk) | 04222 (ONE << Module_Blk) | 04223 (ONE << Program_Blk) | 04224 (ONE << Function_Blk) | 04225 (ONE << Subroutine_Blk) | 04226 (ONE << Internal_Blk) | 04227 (ONE << Module_Proc_Blk) | 04228 (ONE << Interface_Body_Blk) | 04229 (ONE << Forall_Blk) | 04230 (ONE << If_Blk) | 04231 (ONE << If_Then_Blk) | 04232 (ONE << If_Else_If_Blk) | 04233 (ONE << If_Else_Blk) | 04234 (ONE << Do_Blk) | 04235 (ONE << Select_Blk) | 04236 (ONE << Case_Blk) | 04237 (ONE << Where_Then_Blk) | 04238 (ONE << Where_Else_Blk) | 04239 (ONE << Where_Else_Mask_Blk) | 04240 (ONE << Parallel_Blk) | 04241 (ONE << SGI_Parallel_Blk) | 04242 (ONE << Doall_Blk) | 04243 (ONE << Wait_Blk) | 04244 (ONE << SGI_Doacross_Blk) | 04245 (ONE << SGI_Parallel_Do_Blk) | 04246 (ONE << Do_Parallel_Blk) | 04247 (ONE << SGI_Pdo_Blk) | 04248 (ONE << Guard_Blk) | 04249 (ONE << SGI_Critical_Section_Blk) | 04250 (ONE << Parallel_Case_Blk) | 04251 (ONE << SGI_Psection_Blk) | 04252 (ONE << SGI_Section_Blk) | 04253 (ONE << SGI_Single_Process_Blk) | 04254 (ONE << Open_Mp_Parallel_Blk) | 04255 (ONE << Open_Mp_Do_Blk) | 04256 (ONE << Open_Mp_Parallel_Sections_Blk) | 04257 (ONE << Open_Mp_Sections_Blk) | 04258 (ONE << Open_Mp_Section_Blk) | 04259 (ONE << Open_Mp_Single_Blk) | 04260 (ONE << Open_Mp_Parallel_Do_Blk) | 04261 (ONE << Open_Mp_Master_Blk) | 04262 (ONE << Open_Mp_Critical_Blk) | 04263 (ONE << Open_Mp_Ordered_Blk) | 04264 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04265 (ONE << Open_Mp_Workshare_Blk) | 04266 (ONE << Contains_Blk) | 04267 (ONE << Interface_Blk) | 04268 (ONE << Derived_Type_Blk)), 04269 04270 /***** Open_MP_Section_Stmt *****/ 04271 04272 ((ONE << Unknown_Blk) | 04273 (ONE << Blockdata_Blk) | 04274 (ONE << Module_Blk) | 04275 (ONE << Program_Blk) | 04276 (ONE << Function_Blk) | 04277 (ONE << Subroutine_Blk) | 04278 (ONE << Internal_Blk) | 04279 (ONE << Module_Proc_Blk) | 04280 (ONE << Interface_Body_Blk) | 04281 (ONE << Forall_Blk) | 04282 (ONE << If_Blk) | 04283 (ONE << If_Then_Blk) | 04284 (ONE << If_Else_If_Blk) | 04285 (ONE << If_Else_Blk) | 04286 (ONE << Do_Blk) | 04287 (ONE << Select_Blk) | 04288 (ONE << Case_Blk) | 04289 (ONE << Where_Then_Blk) | 04290 (ONE << Where_Else_Blk) | 04291 (ONE << Where_Else_Mask_Blk) | 04292 (ONE << Parallel_Blk) | 04293 (ONE << SGI_Parallel_Blk) | 04294 (ONE << Doall_Blk) | 04295 (ONE << Wait_Blk) | 04296 (ONE << SGI_Doacross_Blk) | 04297 (ONE << SGI_Parallel_Do_Blk) | 04298 (ONE << Do_Parallel_Blk) | 04299 (ONE << SGI_Pdo_Blk) | 04300 (ONE << Guard_Blk) | 04301 (ONE << SGI_Critical_Section_Blk) | 04302 (ONE << Parallel_Case_Blk) | 04303 (ONE << SGI_Psection_Blk) | 04304 (ONE << SGI_Section_Blk) | 04305 (ONE << SGI_Single_Process_Blk) | 04306 (ONE << SGI_Region_Blk) | 04307 (ONE << Open_Mp_Parallel_Blk) | 04308 (ONE << Open_Mp_Do_Blk) | 04309 (ONE << Open_Mp_Single_Blk) | 04310 (ONE << Open_Mp_Parallel_Do_Blk) | 04311 (ONE << Open_Mp_Master_Blk) | 04312 (ONE << Open_Mp_Critical_Blk) | 04313 (ONE << Open_Mp_Ordered_Blk) | 04314 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04315 (ONE << Open_Mp_Workshare_Blk) | 04316 (ONE << Contains_Blk) | 04317 (ONE << Interface_Blk) | 04318 (ONE << Derived_Type_Blk)), 04319 04320 /***** Open_MP_End_Parallel_Stmt *****/ 04321 04322 ((ONE << Unknown_Blk) | 04323 (ONE << Blockdata_Blk) | 04324 (ONE << Module_Blk) | 04325 (ONE << Program_Blk) | 04326 (ONE << Function_Blk) | 04327 (ONE << Subroutine_Blk) | 04328 (ONE << Internal_Blk) | 04329 (ONE << Module_Proc_Blk) | 04330 (ONE << Interface_Body_Blk) | 04331 (ONE << Forall_Blk) | 04332 (ONE << If_Blk) | 04333 (ONE << If_Then_Blk) | 04334 (ONE << If_Else_If_Blk) | 04335 (ONE << If_Else_Blk) | 04336 (ONE << Do_Blk) | 04337 (ONE << Select_Blk) | 04338 (ONE << Case_Blk) | 04339 (ONE << Where_Then_Blk) | 04340 (ONE << Where_Else_Blk) | 04341 (ONE << Where_Else_Mask_Blk) | 04342 (ONE << Parallel_Blk) | 04343 (ONE << SGI_Parallel_Blk) | 04344 (ONE << Doall_Blk) | 04345 (ONE << Wait_Blk) | 04346 (ONE << SGI_Doacross_Blk) | 04347 (ONE << SGI_Parallel_Do_Blk) | 04348 (ONE << Do_Parallel_Blk) | 04349 (ONE << SGI_Pdo_Blk) | 04350 (ONE << Guard_Blk) | 04351 (ONE << SGI_Critical_Section_Blk) | 04352 (ONE << Parallel_Case_Blk) | 04353 (ONE << SGI_Psection_Blk) | 04354 (ONE << SGI_Section_Blk) | 04355 (ONE << SGI_Single_Process_Blk) | 04356 (ONE << SGI_Region_Blk) | 04357 (ONE << Open_Mp_Do_Blk) | 04358 (ONE << Open_Mp_Parallel_Sections_Blk) | 04359 (ONE << Open_Mp_Sections_Blk) | 04360 (ONE << Open_Mp_Section_Blk) | 04361 (ONE << Open_Mp_Single_Blk) | 04362 (ONE << Open_Mp_Parallel_Do_Blk) | 04363 (ONE << Open_Mp_Master_Blk) | 04364 (ONE << Open_Mp_Critical_Blk) | 04365 (ONE << Open_Mp_Ordered_Blk) | 04366 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04367 (ONE << Open_Mp_Workshare_Blk) | 04368 (ONE << Contains_Blk) | 04369 (ONE << Interface_Blk) | 04370 (ONE << Derived_Type_Blk)), 04371 04372 /***** Open_MP_End_Do_Stmt *****/ 04373 04374 ((ONE << Unknown_Blk) | 04375 (ONE << Blockdata_Blk) | 04376 (ONE << Module_Blk) | 04377 (ONE << Program_Blk) | 04378 (ONE << Function_Blk) | 04379 (ONE << Subroutine_Blk) | 04380 (ONE << Internal_Blk) | 04381 (ONE << Module_Proc_Blk) | 04382 (ONE << Interface_Body_Blk) | 04383 (ONE << Forall_Blk) | 04384 (ONE << If_Blk) | 04385 (ONE << If_Then_Blk) | 04386 (ONE << If_Else_If_Blk) | 04387 (ONE << If_Else_Blk) | 04388 (ONE << Do_Blk) | 04389 (ONE << Select_Blk) | 04390 (ONE << Case_Blk) | 04391 (ONE << Where_Then_Blk) | 04392 (ONE << Where_Else_Blk) | 04393 (ONE << Where_Else_Mask_Blk) | 04394 (ONE << Parallel_Blk) | 04395 (ONE << SGI_Parallel_Blk) | 04396 (ONE << Doall_Blk) | 04397 (ONE << Wait_Blk) | 04398 (ONE << SGI_Doacross_Blk) | 04399 (ONE << SGI_Parallel_Do_Blk) | 04400 (ONE << Do_Parallel_Blk) | 04401 (ONE << SGI_Pdo_Blk) | 04402 (ONE << Guard_Blk) | 04403 (ONE << SGI_Critical_Section_Blk) | 04404 (ONE << Parallel_Case_Blk) | 04405 (ONE << SGI_Psection_Blk) | 04406 (ONE << SGI_Section_Blk) | 04407 (ONE << SGI_Single_Process_Blk) | 04408 (ONE << SGI_Region_Blk) | 04409 (ONE << Open_Mp_Parallel_Blk) | 04410 (ONE << Open_Mp_Parallel_Sections_Blk) | 04411 (ONE << Open_Mp_Sections_Blk) | 04412 (ONE << Open_Mp_Section_Blk) | 04413 (ONE << Open_Mp_Single_Blk) | 04414 (ONE << Open_Mp_Parallel_Do_Blk) | 04415 (ONE << Open_Mp_Master_Blk) | 04416 (ONE << Open_Mp_Critical_Blk) | 04417 (ONE << Open_Mp_Ordered_Blk) | 04418 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04419 (ONE << Open_Mp_Workshare_Blk) | 04420 (ONE << Contains_Blk) | 04421 (ONE << Interface_Blk) | 04422 (ONE << Derived_Type_Blk)), 04423 04424 /***** Open_MP_End_Parallel_Sections_Stmt *****/ 04425 04426 ((ONE << Unknown_Blk) | 04427 (ONE << Blockdata_Blk) | 04428 (ONE << Module_Blk) | 04429 (ONE << Program_Blk) | 04430 (ONE << Function_Blk) | 04431 (ONE << Subroutine_Blk) | 04432 (ONE << Internal_Blk) | 04433 (ONE << Module_Proc_Blk) | 04434 (ONE << Interface_Body_Blk) | 04435 (ONE << Forall_Blk) | 04436 (ONE << If_Blk) | 04437 (ONE << If_Then_Blk) | 04438 (ONE << If_Else_If_Blk) | 04439 (ONE << If_Else_Blk) | 04440 (ONE << Do_Blk) | 04441 (ONE << Select_Blk) | 04442 (ONE << Case_Blk) | 04443 (ONE << Where_Then_Blk) | 04444 (ONE << Where_Else_Blk) | 04445 (ONE << Where_Else_Mask_Blk) | 04446 (ONE << Parallel_Blk) | 04447 (ONE << SGI_Parallel_Blk) | 04448 (ONE << Doall_Blk) | 04449 (ONE << Wait_Blk) | 04450 (ONE << SGI_Doacross_Blk) | 04451 (ONE << SGI_Parallel_Do_Blk) | 04452 (ONE << Do_Parallel_Blk) | 04453 (ONE << SGI_Pdo_Blk) | 04454 (ONE << Guard_Blk) | 04455 (ONE << SGI_Critical_Section_Blk) | 04456 (ONE << Parallel_Case_Blk) | 04457 (ONE << SGI_Psection_Blk) | 04458 (ONE << SGI_Section_Blk) | 04459 (ONE << SGI_Single_Process_Blk) | 04460 (ONE << SGI_Region_Blk) | 04461 (ONE << Open_Mp_Parallel_Blk) | 04462 (ONE << Open_Mp_Do_Blk) | 04463 (ONE << Open_Mp_Sections_Blk) | 04464 (ONE << Open_Mp_Section_Blk) | 04465 (ONE << Open_Mp_Single_Blk) | 04466 (ONE << Open_Mp_Parallel_Do_Blk) | 04467 (ONE << Open_Mp_Master_Blk) | 04468 (ONE << Open_Mp_Critical_Blk) | 04469 (ONE << Open_Mp_Ordered_Blk) | 04470 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04471 (ONE << Open_Mp_Workshare_Blk) | 04472 (ONE << Contains_Blk) | 04473 (ONE << Interface_Blk) | 04474 (ONE << Derived_Type_Blk)), 04475 04476 /***** Open_MP_End_Sections_Stmt *****/ 04477 04478 ((ONE << Unknown_Blk) | 04479 (ONE << Blockdata_Blk) | 04480 (ONE << Module_Blk) | 04481 (ONE << Program_Blk) | 04482 (ONE << Function_Blk) | 04483 (ONE << Subroutine_Blk) | 04484 (ONE << Internal_Blk) | 04485 (ONE << Module_Proc_Blk) | 04486 (ONE << Interface_Body_Blk) | 04487 (ONE << Forall_Blk) | 04488 (ONE << If_Blk) | 04489 (ONE << If_Then_Blk) | 04490 (ONE << If_Else_If_Blk) | 04491 (ONE << If_Else_Blk) | 04492 (ONE << Do_Blk) | 04493 (ONE << Select_Blk) | 04494 (ONE << Case_Blk) | 04495 (ONE << Where_Then_Blk) | 04496 (ONE << Where_Else_Blk) | 04497 (ONE << Where_Else_Mask_Blk) | 04498 (ONE << Parallel_Blk) | 04499 (ONE << SGI_Parallel_Blk) | 04500 (ONE << Doall_Blk) | 04501 (ONE << Wait_Blk) | 04502 (ONE << SGI_Doacross_Blk) | 04503 (ONE << SGI_Parallel_Do_Blk) | 04504 (ONE << Do_Parallel_Blk) | 04505 (ONE << SGI_Pdo_Blk) | 04506 (ONE << Guard_Blk) | 04507 (ONE << SGI_Critical_Section_Blk) | 04508 (ONE << Parallel_Case_Blk) | 04509 (ONE << SGI_Psection_Blk) | 04510 (ONE << SGI_Section_Blk) | 04511 (ONE << SGI_Single_Process_Blk) | 04512 (ONE << SGI_Region_Blk) | 04513 (ONE << Open_Mp_Parallel_Blk) | 04514 (ONE << Open_Mp_Do_Blk) | 04515 (ONE << Open_Mp_Parallel_Sections_Blk) | 04516 (ONE << Open_Mp_Section_Blk) | 04517 (ONE << Open_Mp_Single_Blk) | 04518 (ONE << Open_Mp_Parallel_Do_Blk) | 04519 (ONE << Open_Mp_Master_Blk) | 04520 (ONE << Open_Mp_Critical_Blk) | 04521 (ONE << Open_Mp_Ordered_Blk) | 04522 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04523 (ONE << Open_Mp_Workshare_Blk) | 04524 (ONE << Contains_Blk) | 04525 (ONE << Interface_Blk) | 04526 (ONE << Derived_Type_Blk)), 04527 04528 /***** Open_MP_End_Section_Stmt *****/ 04529 04530 ((ONE << Unknown_Blk) | 04531 (ONE << Blockdata_Blk) | 04532 (ONE << Module_Blk) | 04533 (ONE << Program_Blk) | 04534 (ONE << Function_Blk) | 04535 (ONE << Subroutine_Blk) | 04536 (ONE << Internal_Blk) | 04537 (ONE << Module_Proc_Blk) | 04538 (ONE << Interface_Body_Blk) | 04539 (ONE << Forall_Blk) | 04540 (ONE << If_Blk) | 04541 (ONE << If_Then_Blk) | 04542 (ONE << If_Else_If_Blk) | 04543 (ONE << If_Else_Blk) | 04544 (ONE << Do_Blk) | 04545 (ONE << Select_Blk) | 04546 (ONE << Case_Blk) | 04547 (ONE << Where_Then_Blk) | 04548 (ONE << Where_Else_Blk) | 04549 (ONE << Where_Else_Mask_Blk) | 04550 (ONE << Parallel_Blk) | 04551 (ONE << SGI_Parallel_Blk) | 04552 (ONE << Doall_Blk) | 04553 (ONE << Wait_Blk) | 04554 (ONE << SGI_Doacross_Blk) | 04555 (ONE << SGI_Parallel_Do_Blk) | 04556 (ONE << Do_Parallel_Blk) | 04557 (ONE << SGI_Pdo_Blk) | 04558 (ONE << Guard_Blk) | 04559 (ONE << SGI_Critical_Section_Blk) | 04560 (ONE << Parallel_Case_Blk) | 04561 (ONE << SGI_Psection_Blk) | 04562 (ONE << SGI_Section_Blk) | 04563 (ONE << SGI_Single_Process_Blk) | 04564 (ONE << SGI_Region_Blk) | 04565 (ONE << Open_Mp_Parallel_Blk) | 04566 (ONE << Open_Mp_Do_Blk) | 04567 (ONE << Open_Mp_Parallel_Sections_Blk) | 04568 (ONE << Open_Mp_Sections_Blk) | 04569 (ONE << Open_Mp_Single_Blk) | 04570 (ONE << Open_Mp_Parallel_Do_Blk) | 04571 (ONE << Open_Mp_Master_Blk) | 04572 (ONE << Open_Mp_Critical_Blk) | 04573 (ONE << Open_Mp_Ordered_Blk) | 04574 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04575 (ONE << Open_Mp_Workshare_Blk) | 04576 (ONE << Contains_Blk) | 04577 (ONE << Interface_Blk) | 04578 (ONE << Derived_Type_Blk)), 04579 04580 /***** Open_MP_End_Single_Stmt *****/ 04581 04582 ((ONE << Unknown_Blk) | 04583 (ONE << Blockdata_Blk) | 04584 (ONE << Module_Blk) | 04585 (ONE << Program_Blk) | 04586 (ONE << Function_Blk) | 04587 (ONE << Subroutine_Blk) | 04588 (ONE << Internal_Blk) | 04589 (ONE << Module_Proc_Blk) | 04590 (ONE << Interface_Body_Blk) | 04591 (ONE << Forall_Blk) | 04592 (ONE << If_Blk) | 04593 (ONE << If_Then_Blk) | 04594 (ONE << If_Else_If_Blk) | 04595 (ONE << If_Else_Blk) | 04596 (ONE << Do_Blk) | 04597 (ONE << Select_Blk) | 04598 (ONE << Case_Blk) | 04599 (ONE << Where_Then_Blk) | 04600 (ONE << Where_Else_Blk) | 04601 (ONE << Where_Else_Mask_Blk) | 04602 (ONE << Parallel_Blk) | 04603 (ONE << SGI_Parallel_Blk) | 04604 (ONE << Doall_Blk) | 04605 (ONE << Wait_Blk) | 04606 (ONE << SGI_Doacross_Blk) | 04607 (ONE << SGI_Parallel_Do_Blk) | 04608 (ONE << Do_Parallel_Blk) | 04609 (ONE << SGI_Pdo_Blk) | 04610 (ONE << Guard_Blk) | 04611 (ONE << SGI_Critical_Section_Blk) | 04612 (ONE << Parallel_Case_Blk) | 04613 (ONE << SGI_Psection_Blk) | 04614 (ONE << SGI_Section_Blk) | 04615 (ONE << SGI_Single_Process_Blk) | 04616 (ONE << SGI_Region_Blk) | 04617 (ONE << Open_Mp_Parallel_Blk) | 04618 (ONE << Open_Mp_Do_Blk) | 04619 (ONE << Open_Mp_Parallel_Sections_Blk) | 04620 (ONE << Open_Mp_Sections_Blk) | 04621 (ONE << Open_Mp_Section_Blk) | 04622 (ONE << Open_Mp_Parallel_Do_Blk) | 04623 (ONE << Open_Mp_Master_Blk) | 04624 (ONE << Open_Mp_Critical_Blk) | 04625 (ONE << Open_Mp_Ordered_Blk) | 04626 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04627 (ONE << Open_Mp_Workshare_Blk) | 04628 (ONE << Contains_Blk) | 04629 (ONE << Interface_Blk) | 04630 (ONE << Derived_Type_Blk)), 04631 04632 /***** Open_MP_End_Parallel_Do_Stmt *****/ 04633 04634 ((ONE << Unknown_Blk) | 04635 (ONE << Blockdata_Blk) | 04636 (ONE << Module_Blk) | 04637 (ONE << Program_Blk) | 04638 (ONE << Function_Blk) | 04639 (ONE << Subroutine_Blk) | 04640 (ONE << Internal_Blk) | 04641 (ONE << Module_Proc_Blk) | 04642 (ONE << Interface_Body_Blk) | 04643 (ONE << Forall_Blk) | 04644 (ONE << If_Blk) | 04645 (ONE << If_Then_Blk) | 04646 (ONE << If_Else_If_Blk) | 04647 (ONE << If_Else_Blk) | 04648 (ONE << Do_Blk) | 04649 (ONE << Select_Blk) | 04650 (ONE << Case_Blk) | 04651 (ONE << Where_Then_Blk) | 04652 (ONE << Where_Else_Blk) | 04653 (ONE << Where_Else_Mask_Blk) | 04654 (ONE << Parallel_Blk) | 04655 (ONE << SGI_Parallel_Blk) | 04656 (ONE << Doall_Blk) | 04657 (ONE << Wait_Blk) | 04658 (ONE << SGI_Doacross_Blk) | 04659 (ONE << SGI_Parallel_Do_Blk) | 04660 (ONE << Do_Parallel_Blk) | 04661 (ONE << SGI_Pdo_Blk) | 04662 (ONE << Guard_Blk) | 04663 (ONE << SGI_Critical_Section_Blk) | 04664 (ONE << Parallel_Case_Blk) | 04665 (ONE << SGI_Psection_Blk) | 04666 (ONE << SGI_Section_Blk) | 04667 (ONE << SGI_Single_Process_Blk) | 04668 (ONE << SGI_Region_Blk) | 04669 (ONE << Open_Mp_Parallel_Blk) | 04670 (ONE << Open_Mp_Do_Blk) | 04671 (ONE << Open_Mp_Parallel_Sections_Blk) | 04672 (ONE << Open_Mp_Sections_Blk) | 04673 (ONE << Open_Mp_Section_Blk) | 04674 (ONE << Open_Mp_Single_Blk) | 04675 (ONE << Open_Mp_Master_Blk) | 04676 (ONE << Open_Mp_Critical_Blk) | 04677 (ONE << Open_Mp_Ordered_Blk) | 04678 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04679 (ONE << Open_Mp_Workshare_Blk) | 04680 (ONE << Contains_Blk) | 04681 (ONE << Interface_Blk) | 04682 (ONE << Derived_Type_Blk)), 04683 04684 /***** Open_MP_End_Master_Stmt *****/ 04685 04686 ((ONE << Unknown_Blk) | 04687 (ONE << Blockdata_Blk) | 04688 (ONE << Module_Blk) | 04689 (ONE << Program_Blk) | 04690 (ONE << Function_Blk) | 04691 (ONE << Subroutine_Blk) | 04692 (ONE << Internal_Blk) | 04693 (ONE << Module_Proc_Blk) | 04694 (ONE << Interface_Body_Blk) | 04695 (ONE << Forall_Blk) | 04696 (ONE << If_Blk) | 04697 (ONE << If_Then_Blk) | 04698 (ONE << If_Else_If_Blk) | 04699 (ONE << If_Else_Blk) | 04700 (ONE << Do_Blk) | 04701 (ONE << Select_Blk) | 04702 (ONE << Case_Blk) | 04703 (ONE << Where_Then_Blk) | 04704 (ONE << Where_Else_Blk) | 04705 (ONE << Where_Else_Mask_Blk) | 04706 (ONE << Parallel_Blk) | 04707 (ONE << SGI_Parallel_Blk) | 04708 (ONE << Doall_Blk) | 04709 (ONE << Wait_Blk) | 04710 (ONE << SGI_Doacross_Blk) | 04711 (ONE << SGI_Parallel_Do_Blk) | 04712 (ONE << Do_Parallel_Blk) | 04713 (ONE << SGI_Pdo_Blk) | 04714 (ONE << Guard_Blk) | 04715 (ONE << SGI_Critical_Section_Blk) | 04716 (ONE << Parallel_Case_Blk) | 04717 (ONE << SGI_Psection_Blk) | 04718 (ONE << SGI_Section_Blk) | 04719 (ONE << SGI_Single_Process_Blk) | 04720 (ONE << SGI_Region_Blk) | 04721 (ONE << Open_Mp_Parallel_Blk) | 04722 (ONE << Open_Mp_Do_Blk) | 04723 (ONE << Open_Mp_Parallel_Sections_Blk) | 04724 (ONE << Open_Mp_Sections_Blk) | 04725 (ONE << Open_Mp_Section_Blk) | 04726 (ONE << Open_Mp_Single_Blk) | 04727 (ONE << Open_Mp_Parallel_Do_Blk) | 04728 (ONE << Open_Mp_Critical_Blk) | 04729 (ONE << Open_Mp_Ordered_Blk) | 04730 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04731 (ONE << Open_Mp_Workshare_Blk) | 04732 (ONE << Contains_Blk) | 04733 (ONE << Interface_Blk) | 04734 (ONE << Derived_Type_Blk)), 04735 04736 /***** Open_MP_End_Critical_Stmt *****/ 04737 04738 ((ONE << Unknown_Blk) | 04739 (ONE << Blockdata_Blk) | 04740 (ONE << Module_Blk) | 04741 (ONE << Program_Blk) | 04742 (ONE << Function_Blk) | 04743 (ONE << Subroutine_Blk) | 04744 (ONE << Internal_Blk) | 04745 (ONE << Module_Proc_Blk) | 04746 (ONE << Interface_Body_Blk) | 04747 (ONE << Forall_Blk) | 04748 (ONE << If_Blk) | 04749 (ONE << If_Then_Blk) | 04750 (ONE << If_Else_If_Blk) | 04751 (ONE << If_Else_Blk) | 04752 (ONE << Do_Blk) | 04753 (ONE << Select_Blk) | 04754 (ONE << Case_Blk) | 04755 (ONE << Where_Then_Blk) | 04756 (ONE << Where_Else_Blk) | 04757 (ONE << Where_Else_Mask_Blk) | 04758 (ONE << Parallel_Blk) | 04759 (ONE << SGI_Parallel_Blk) | 04760 (ONE << Doall_Blk) | 04761 (ONE << Wait_Blk) | 04762 (ONE << SGI_Doacross_Blk) | 04763 (ONE << SGI_Parallel_Do_Blk) | 04764 (ONE << Do_Parallel_Blk) | 04765 (ONE << SGI_Pdo_Blk) | 04766 (ONE << Guard_Blk) | 04767 (ONE << SGI_Critical_Section_Blk) | 04768 (ONE << Parallel_Case_Blk) | 04769 (ONE << SGI_Psection_Blk) | 04770 (ONE << SGI_Section_Blk) | 04771 (ONE << SGI_Single_Process_Blk) | 04772 (ONE << SGI_Region_Blk) | 04773 (ONE << Open_Mp_Parallel_Blk) | 04774 (ONE << Open_Mp_Do_Blk) | 04775 (ONE << Open_Mp_Parallel_Sections_Blk) | 04776 (ONE << Open_Mp_Sections_Blk) | 04777 (ONE << Open_Mp_Section_Blk) | 04778 (ONE << Open_Mp_Single_Blk) | 04779 (ONE << Open_Mp_Parallel_Do_Blk) | 04780 (ONE << Open_Mp_Master_Blk) | 04781 (ONE << Open_Mp_Ordered_Blk) | 04782 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04783 (ONE << Open_Mp_Workshare_Blk) | 04784 (ONE << Contains_Blk) | 04785 (ONE << Interface_Blk) | 04786 (ONE << Derived_Type_Blk)), 04787 04788 /***** Open_MP_End_Ordered_Stmt *****/ 04789 04790 ((ONE << Unknown_Blk) | 04791 (ONE << Blockdata_Blk) | 04792 (ONE << Module_Blk) | 04793 (ONE << Program_Blk) | 04794 (ONE << Function_Blk) | 04795 (ONE << Subroutine_Blk) | 04796 (ONE << Internal_Blk) | 04797 (ONE << Module_Proc_Blk) | 04798 (ONE << Interface_Body_Blk) | 04799 (ONE << Forall_Blk) | 04800 (ONE << If_Blk) | 04801 (ONE << If_Then_Blk) | 04802 (ONE << If_Else_If_Blk) | 04803 (ONE << If_Else_Blk) | 04804 (ONE << Do_Blk) | 04805 (ONE << Select_Blk) | 04806 (ONE << Case_Blk) | 04807 (ONE << Where_Then_Blk) | 04808 (ONE << Where_Else_Blk) | 04809 (ONE << Where_Else_Mask_Blk) | 04810 (ONE << Parallel_Blk) | 04811 (ONE << SGI_Parallel_Blk) | 04812 (ONE << Doall_Blk) | 04813 (ONE << Wait_Blk) | 04814 (ONE << SGI_Doacross_Blk) | 04815 (ONE << SGI_Parallel_Do_Blk) | 04816 (ONE << Do_Parallel_Blk) | 04817 (ONE << SGI_Pdo_Blk) | 04818 (ONE << Guard_Blk) | 04819 (ONE << SGI_Critical_Section_Blk) | 04820 (ONE << Parallel_Case_Blk) | 04821 (ONE << SGI_Psection_Blk) | 04822 (ONE << SGI_Section_Blk) | 04823 (ONE << SGI_Single_Process_Blk) | 04824 (ONE << SGI_Region_Blk) | 04825 (ONE << Open_Mp_Parallel_Blk) | 04826 (ONE << Open_Mp_Do_Blk) | 04827 (ONE << Open_Mp_Parallel_Sections_Blk) | 04828 (ONE << Open_Mp_Sections_Blk) | 04829 (ONE << Open_Mp_Section_Blk) | 04830 (ONE << Open_Mp_Single_Blk) | 04831 (ONE << Open_Mp_Parallel_Do_Blk) | 04832 (ONE << Open_Mp_Master_Blk) | 04833 (ONE << Open_Mp_Critical_Blk) | 04834 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04835 (ONE << Open_Mp_Workshare_Blk) | 04836 (ONE << Contains_Blk) | 04837 (ONE << Interface_Blk) | 04838 (ONE << Derived_Type_Blk)), 04839 04840 /***** Open_MP_End_Parallel_Workshare_Stmt *****/ 04841 04842 ((ONE << Unknown_Blk) | 04843 (ONE << Blockdata_Blk) | 04844 (ONE << Module_Blk) | 04845 (ONE << Program_Blk) | 04846 (ONE << Function_Blk) | 04847 (ONE << Subroutine_Blk) | 04848 (ONE << Internal_Blk) | 04849 (ONE << Module_Proc_Blk) | 04850 (ONE << Interface_Body_Blk) | 04851 (ONE << Forall_Blk) | 04852 (ONE << If_Blk) | 04853 (ONE << If_Then_Blk) | 04854 (ONE << If_Else_If_Blk) | 04855 (ONE << If_Else_Blk) | 04856 (ONE << Do_Blk) | 04857 (ONE << Select_Blk) | 04858 (ONE << Case_Blk) | 04859 (ONE << Where_Then_Blk) | 04860 (ONE << Where_Else_Blk) | 04861 (ONE << Where_Else_Mask_Blk) | 04862 (ONE << Parallel_Blk) | 04863 (ONE << SGI_Parallel_Blk) | 04864 (ONE << Doall_Blk) | 04865 (ONE << Wait_Blk) | 04866 (ONE << SGI_Doacross_Blk) | 04867 (ONE << SGI_Parallel_Do_Blk) | 04868 (ONE << Do_Parallel_Blk) | 04869 (ONE << SGI_Pdo_Blk) | 04870 (ONE << Guard_Blk) | 04871 (ONE << SGI_Critical_Section_Blk) | 04872 (ONE << Parallel_Case_Blk) | 04873 (ONE << SGI_Psection_Blk) | 04874 (ONE << SGI_Section_Blk) | 04875 (ONE << SGI_Single_Process_Blk) | 04876 (ONE << SGI_Region_Blk) | 04877 (ONE << Open_Mp_Parallel_Blk) | 04878 (ONE << Open_Mp_Do_Blk) | 04879 (ONE << Open_Mp_Parallel_Sections_Blk) | 04880 (ONE << Open_Mp_Sections_Blk) | 04881 (ONE << Open_Mp_Section_Blk) | 04882 (ONE << Open_Mp_Single_Blk) | 04883 (ONE << Open_Mp_Parallel_Do_Blk) | 04884 (ONE << Open_Mp_Master_Blk) | 04885 (ONE << Open_Mp_Critical_Blk) | 04886 (ONE << Open_Mp_Ordered_Blk) | 04887 (ONE << Open_Mp_Workshare_Blk) | 04888 (ONE << Contains_Blk) | 04889 (ONE << Interface_Blk) | 04890 (ONE << Derived_Type_Blk)), 04891 04892 /***** Open_MP_End_Workshare_Stmt *****/ 04893 04894 ((ONE << Unknown_Blk) | 04895 (ONE << Blockdata_Blk) | 04896 (ONE << Module_Blk) | 04897 (ONE << Program_Blk) | 04898 (ONE << Function_Blk) | 04899 (ONE << Subroutine_Blk) | 04900 (ONE << Internal_Blk) | 04901 (ONE << Module_Proc_Blk) | 04902 (ONE << Interface_Body_Blk) | 04903 (ONE << Forall_Blk) | 04904 (ONE << If_Blk) | 04905 (ONE << If_Then_Blk) | 04906 (ONE << If_Else_If_Blk) | 04907 (ONE << If_Else_Blk) | 04908 (ONE << Do_Blk) | 04909 (ONE << Select_Blk) | 04910 (ONE << Case_Blk) | 04911 (ONE << Where_Then_Blk) | 04912 (ONE << Where_Else_Blk) | 04913 (ONE << Where_Else_Mask_Blk) | 04914 (ONE << Parallel_Blk) | 04915 (ONE << SGI_Parallel_Blk) | 04916 (ONE << Doall_Blk) | 04917 (ONE << Wait_Blk) | 04918 (ONE << SGI_Doacross_Blk) | 04919 (ONE << SGI_Parallel_Do_Blk) | 04920 (ONE << Do_Parallel_Blk) | 04921 (ONE << SGI_Pdo_Blk) | 04922 (ONE << Guard_Blk) | 04923 (ONE << SGI_Critical_Section_Blk) | 04924 (ONE << Parallel_Case_Blk) | 04925 (ONE << SGI_Psection_Blk) | 04926 (ONE << SGI_Section_Blk) | 04927 (ONE << SGI_Single_Process_Blk) | 04928 (ONE << SGI_Region_Blk) | 04929 (ONE << Open_Mp_Parallel_Blk) | 04930 (ONE << Open_Mp_Do_Blk) | 04931 (ONE << Open_Mp_Parallel_Sections_Blk) | 04932 (ONE << Open_Mp_Sections_Blk) | 04933 (ONE << Open_Mp_Section_Blk) | 04934 (ONE << Open_Mp_Single_Blk) | 04935 (ONE << Open_Mp_Parallel_Do_Blk) | 04936 (ONE << Open_Mp_Master_Blk) | 04937 (ONE << Open_Mp_Critical_Blk) | 04938 (ONE << Open_Mp_Ordered_Blk) | 04939 (ONE << Open_Mp_Parallel_Workshare_Blk) | 04940 (ONE << Contains_Blk) | 04941 (ONE << Interface_Blk) | 04942 (ONE << Derived_Type_Blk)), 04943 04944 /***** Forall_Cstrct_Stmt *****/ 04945 04946 ((ONE << Unknown_Blk) | 04947 (ONE << Blockdata_Blk) | 04948 (ONE << Module_Blk) | 04949 (ONE << Interface_Body_Blk) | 04950 (ONE << If_Blk) | 04951 (ONE << Where_Then_Blk) | 04952 (ONE << Where_Else_Blk) | 04953 (ONE << Where_Else_Mask_Blk) | 04954 (ONE << SGI_Psection_Blk) | 04955 (ONE << Select_Blk) | 04956 (ONE << Contains_Blk) | 04957 (ONE << Interface_Blk) | 04958 (ONE << Derived_Type_Blk)), 04959 04960 /***** Forall_Stmt *****/ 04961 04962 ((ONE << Unknown_Blk) | 04963 (ONE << Blockdata_Blk) | 04964 (ONE << Module_Blk) | 04965 (ONE << Interface_Body_Blk) | 04966 (ONE << If_Blk) | 04967 (ONE << Where_Then_Blk) | 04968 (ONE << Where_Else_Blk) | 04969 (ONE << Where_Else_Mask_Blk) | 04970 (ONE << SGI_Psection_Blk) | 04971 (ONE << Select_Blk) | 04972 (ONE << Contains_Blk) | 04973 (ONE << Interface_Blk) | 04974 (ONE << Derived_Type_Blk)), 04975 04976 04977 /***** End_Forall_Stmt *****/ 04978 04979 ((ONE << Unknown_Blk) | 04980 (ONE << Blockdata_Blk) | 04981 (ONE << Module_Blk) | 04982 (ONE << Program_Blk) | 04983 (ONE << Function_Blk) | 04984 (ONE << Subroutine_Blk) | 04985 (ONE << Internal_Blk) | 04986 (ONE << Module_Proc_Blk) | 04987 (ONE << Interface_Body_Blk) | 04988 (ONE << If_Blk) | 04989 (ONE << If_Then_Blk) | 04990 (ONE << If_Else_If_Blk) | 04991 (ONE << If_Else_Blk) | 04992 (ONE << Do_Blk) | 04993 (ONE << Select_Blk) | 04994 (ONE << Case_Blk) | 04995 (ONE << Parallel_Blk) | 04996 (ONE << SGI_Parallel_Blk) | 04997 (ONE << Doall_Blk) | 04998 (ONE << Wait_Blk) | 04999 (ONE << SGI_Doacross_Blk) | 05000 (ONE << SGI_Parallel_Do_Blk) | 05001 (ONE << Do_Parallel_Blk) | 05002 (ONE << SGI_Pdo_Blk) | 05003 (ONE << Guard_Blk) | 05004 (ONE << SGI_Critical_Section_Blk) | 05005 (ONE << Parallel_Case_Blk) | 05006 (ONE << SGI_Psection_Blk) | 05007 (ONE << SGI_Section_Blk) | 05008 (ONE << SGI_Single_Process_Blk) | 05009 (ONE << SGI_Region_Blk) | 05010 (ONE << Open_Mp_Parallel_Blk) | 05011 (ONE << Open_Mp_Do_Blk) | 05012 (ONE << Open_Mp_Parallel_Sections_Blk) | 05013 (ONE << Open_Mp_Sections_Blk) | 05014 (ONE << Open_Mp_Section_Blk) | 05015 (ONE << Open_Mp_Single_Blk) | 05016 (ONE << Open_Mp_Parallel_Do_Blk) | 05017 (ONE << Open_Mp_Master_Blk) | 05018 (ONE << Open_Mp_Critical_Blk) | 05019 (ONE << Open_Mp_Ordered_Blk) | 05020 (ONE << Open_Mp_Parallel_Workshare_Blk) | 05021 (ONE << Contains_Blk) | 05022 (ONE << Interface_Blk) | 05023 (ONE << Derived_Type_Blk)), 05024 05025 /***** Else_Where_Mask_Stmt *****/ 05026 05027 ((ONE << Unknown_Blk) | 05028 (ONE << Blockdata_Blk) | 05029 (ONE << Module_Blk) | 05030 (ONE << Program_Blk) | 05031 (ONE << Function_Blk) | 05032 (ONE << Subroutine_Blk) | 05033 (ONE << Internal_Blk) | 05034 (ONE << Module_Proc_Blk) | 05035 (ONE << Interface_Body_Blk) | 05036 (ONE << Forall_Blk) | 05037 (ONE << If_Blk) | 05038 (ONE << If_Then_Blk) | 05039 (ONE << If_Else_If_Blk) | 05040 (ONE << If_Else_Blk) | 05041 (ONE << Do_Blk) | 05042 (ONE << Select_Blk) | 05043 (ONE << Case_Blk) | 05044 (ONE << Where_Else_Blk) | 05045 (ONE << Parallel_Blk) | 05046 (ONE << SGI_Parallel_Blk) | 05047 (ONE << Doall_Blk) | 05048 (ONE << Wait_Blk) | 05049 (ONE << SGI_Doacross_Blk) | 05050 (ONE << SGI_Parallel_Do_Blk) | 05051 (ONE << Do_Parallel_Blk) | 05052 (ONE << SGI_Pdo_Blk) | 05053 (ONE << Guard_Blk) | 05054 (ONE << SGI_Critical_Section_Blk) | 05055 (ONE << Parallel_Case_Blk) | 05056 (ONE << SGI_Psection_Blk) | 05057 (ONE << SGI_Section_Blk) | 05058 (ONE << SGI_Single_Process_Blk) | 05059 (ONE << SGI_Region_Blk) | 05060 (ONE << Open_Mp_Parallel_Blk) | 05061 (ONE << Open_Mp_Do_Blk) | 05062 (ONE << Open_Mp_Parallel_Sections_Blk) | 05063 (ONE << Open_Mp_Sections_Blk) | 05064 (ONE << Open_Mp_Section_Blk) | 05065 (ONE << Open_Mp_Single_Blk) | 05066 (ONE << Open_Mp_Parallel_Do_Blk) | 05067 (ONE << Open_Mp_Master_Blk) | 05068 (ONE << Open_Mp_Critical_Blk) | 05069 (ONE << Open_Mp_Ordered_Blk) | 05070 (ONE << Open_Mp_Parallel_Workshare_Blk) | 05071 (ONE << Open_Mp_Workshare_Blk) | 05072 (ONE << Contains_Blk) | 05073 (ONE << Interface_Blk) | 05074 (ONE << Derived_Type_Blk)), 05075 05076 /***** Volatile_Stmt *****/ 05077 05078 ((ONE << Unknown_Blk) | 05079 (ONE << Forall_Blk) | 05080 (ONE << If_Blk) | 05081 (ONE << If_Then_Blk) | 05082 (ONE << If_Else_If_Blk) | 05083 (ONE << If_Else_Blk) | 05084 (ONE << Do_Blk) | 05085 (ONE << Select_Blk) | 05086 (ONE << Case_Blk) | 05087 (ONE << Where_Then_Blk) | 05088 (ONE << Where_Else_Blk) | 05089 (ONE << Where_Else_Mask_Blk) | 05090 (ONE << Parallel_Blk) | 05091 (ONE << SGI_Parallel_Blk) | 05092 (ONE << Doall_Blk) | 05093 (ONE << Wait_Blk) | 05094 (ONE << SGI_Doacross_Blk) | 05095 (ONE << SGI_Parallel_Do_Blk) | 05096 (ONE << Do_Parallel_Blk) | 05097 (ONE << SGI_Pdo_Blk) | 05098 (ONE << Guard_Blk) | 05099 (ONE << SGI_Critical_Section_Blk) | 05100 (ONE << Parallel_Case_Blk) | 05101 (ONE << SGI_Psection_Blk) | 05102 (ONE << SGI_Section_Blk) | 05103 (ONE << SGI_Single_Process_Blk) | 05104 (ONE << Open_Mp_Parallel_Blk) | 05105 (ONE << Open_Mp_Do_Blk) | 05106 (ONE << Open_Mp_Parallel_Sections_Blk) | 05107 (ONE << Open_Mp_Sections_Blk) | 05108 (ONE << Open_Mp_Section_Blk) | 05109 (ONE << Open_Mp_Single_Blk) | 05110 (ONE << Open_Mp_Parallel_Do_Blk) | 05111 (ONE << Open_Mp_Master_Blk) | 05112 (ONE << Open_Mp_Critical_Blk) | 05113 (ONE << Open_Mp_Ordered_Blk) | 05114 (ONE << Open_Mp_Parallel_Workshare_Blk) | 05115 (ONE << Open_Mp_Workshare_Blk) | 05116 (ONE << Contains_Blk) | 05117 (ONE << Interface_Blk) | 05118 (ONE << Derived_Type_Blk)) 05119 }; 05120 # undef ONE 05121 05122 05123 /* ************************************************************************** */ 05124 /* stmt_top_cat */ 05125 /* Label_Def and Construct_Def (from stmt_type_values def) are NOT included */ 05126 /* in this table because they are not user statement types. */ 05127 /* ************************************************************************** */ 05128 05129 stmt_category_type stmt_top_cat [] = { 05130 Init_Stmt_Cat, /* Null_Stmt */ 05131 05132 Declaration_Stmt_Cat, /* Allocatable_Stmt */ 05133 Declaration_Stmt_Cat, /* Automatic_Stmt */ 05134 Declaration_Stmt_Cat, /* Common_Stmt */ 05135 Executable_Stmt_Cat, /* Contains_Stmt */ 05136 Declaration_Stmt_Cat, /* Cpnt_Decl_Stmt */ 05137 Executable_Stmt_Cat, /* Data_Stmt */ 05138 Declaration_Stmt_Cat, /* Derived_Type_Stmt */ 05139 Declaration_Stmt_Cat, /* Dimension_Stmt */ 05140 Executable_Stmt_Cat, /* Directive_Stmt */ 05141 Declaration_Stmt_Cat, /* Equivalence_Stmt */ 05142 Declaration_Stmt_Cat, /* External_Stmt */ 05143 Executable_Stmt_Cat, /* Format_Stmt */ 05144 Implicit_Stmt_Cat, /* Implicit_Stmt */ 05145 Implicit_None_Stmt_Cat, /* Implicit_None_Stmt */ 05146 Declaration_Stmt_Cat, /* Intent_Stmt */ 05147 Declaration_Stmt_Cat, /* Interface_Stmt */ 05148 Declaration_Stmt_Cat, /* Intrinsic_Stmt */ 05149 Sub_Func_Stmt_Cat, /* Module_Proc_Stmt */ 05150 Executable_Stmt_Cat, /* Namelist_Stmt */ 05151 Declaration_Stmt_Cat, /* Optional_Stmt */ 05152 Declaration_Stmt_Cat, /* Parameter_Stmt */ 05153 Declaration_Stmt_Cat, /* Pointer_Stmt */ 05154 Declaration_Stmt_Cat, /* Private_Stmt */ 05155 Declaration_Stmt_Cat, /* Public_Stmt */ 05156 Declaration_Stmt_Cat, /* Save_Stmt */ 05157 Declaration_Stmt_Cat, /* Sequence_Stmt */ 05158 Declaration_Stmt_Cat, /* Stmt_Func_Stmt */ 05159 Declaration_Stmt_Cat, /* Target_Stmt */ 05160 Declaration_Stmt_Cat, /* Task_Common_Stmt */ 05161 Declaration_Stmt_Cat, /* Type_Decl_Stmt */ 05162 Use_Stmt_Cat, /* Use_Stmt */ 05163 05164 Init_Stmt_Cat, /* Blockdata_Stmt */ 05165 Sub_Func_Stmt_Cat, /* Elemental_Stmt */ 05166 Sub_Func_Stmt_Cat, /* Function_Stmt */ 05167 Init_Stmt_Cat, /* Module_Stmt */ 05168 Init_Stmt_Cat, /* Program_Stmt */ 05169 Sub_Func_Stmt_Cat, /* Pure_Stmt */ 05170 Sub_Func_Stmt_Cat, /* Recursive_Stmt */ 05171 Sub_Func_Stmt_Cat, /* Subroutine_Stmt */ 05172 05173 Declaration_Stmt_Cat, /* End_Blockdata_Stmt */ 05174 Executable_Stmt_Cat, /* End_Do_Stmt */ 05175 Executable_Stmt_Cat, /* End_Function_Stmt */ 05176 Executable_Stmt_Cat, /* End_If_Stmt */ 05177 Declaration_Stmt_Cat, /* End_Interface_Stmt */ 05178 Declaration_Stmt_Cat, /* End_Module_Stmt */ 05179 Executable_Stmt_Cat, /* End_Program_Stmt */ 05180 Executable_Stmt_Cat, /* End_Select_Stmt */ 05181 Executable_Stmt_Cat, /* End_Stmt */ 05182 Executable_Stmt_Cat, /* End_Subroutine */ 05183 Declaration_Stmt_Cat, /* End_Type_Stmt */ 05184 Executable_Stmt_Cat, /* End_Where_Stmt */ 05185 05186 Executable_Stmt_Cat, /* Allocate_Stmt */ 05187 Executable_Stmt_Cat, /* Arith_If_Stmt */ 05188 Executable_Stmt_Cat, /* Assign_Stmt */ 05189 Executable_Stmt_Cat, /* Assignment_Stmt */ 05190 Executable_Stmt_Cat, /* Backspace_Stmt */ 05191 Executable_Stmt_Cat, /* Buffer_Stmt */ 05192 Executable_Stmt_Cat, /* Call_Stmt */ 05193 Executable_Stmt_Cat, /* Case_Stmt */ 05194 Executable_Stmt_Cat, /* Close_Stmt */ 05195 Executable_Stmt_Cat, /* Continue_Stmt */ 05196 Executable_Stmt_Cat, /* Cycle_Stmt */ 05197 Executable_Stmt_Cat, /* Deallocate_Stmt */ 05198 Executable_Stmt_Cat, /* Decode_Stmt */ 05199 Executable_Stmt_Cat, /* Do_Iterative_Stmt */ 05200 Executable_Stmt_Cat, /* Do_While_Stmt */ 05201 Executable_Stmt_Cat, /* Do_Infinite_Stmt */ 05202 Executable_Stmt_Cat, /* Else_Stmt */ 05203 Executable_Stmt_Cat, /* Else_If_Stmt */ 05204 Executable_Stmt_Cat, /* Else_Where_Stmt */ 05205 Executable_Stmt_Cat, /* Encode_Stmt */ 05206 Executable_Stmt_Cat, /* Endfile_Stmt */ 05207 Executable_Stmt_Cat, /* Entry_Stmt */ 05208 Executable_Stmt_Cat, /* Exit_Stmt */ 05209 Executable_Stmt_Cat, /* Go_To_Stmt */ 05210 Executable_Stmt_Cat, /* If_Cstrct_Stmt */ 05211 Executable_Stmt_Cat, /* If_Stmt */ 05212 Executable_Stmt_Cat, /* Inquire_Stmt */ 05213 Executable_Stmt_Cat, /* Nullify_Stmt */ 05214 Executable_Stmt_Cat, /* Open_Stmt */ 05215 Executable_Stmt_Cat, /* Outmoded_If_Stmt */ 05216 Executable_Stmt_Cat, /* Pause_Stmt */ 05217 Executable_Stmt_Cat, /* Print_Stmt */ 05218 Executable_Stmt_Cat, /* Read_Stmt */ 05219 Executable_Stmt_Cat, /* Return_Stmt */ 05220 Executable_Stmt_Cat, /* Rewind_Stmt */ 05221 Executable_Stmt_Cat, /* Select_Stmt */ 05222 Executable_Stmt_Cat, /* Stop_Stmt */ 05223 Executable_Stmt_Cat, /* Then_Stmt */ 05224 Executable_Stmt_Cat, /* Where_Cstrct_Stmt */ 05225 Executable_Stmt_Cat, /* Where_Stmt */ 05226 Executable_Stmt_Cat, /* Write_Stmt */ 05227 05228 Declaration_Stmt_Cat, /* Type_Init_Stmt */ 05229 05230 Init_Stmt_Cat, /* Label_Def */ 05231 Executable_Stmt_Cat, /* Construct_Def */ 05232 Init_Stmt_Cat, /* Automatic_Base_Calc_Stmt */ 05233 Init_Stmt_Cat, /* Automatic_Base_Size_Stmt */ 05234 05235 Executable_Stmt_Cat, /* End_Parallel_Stmt */ 05236 Executable_Stmt_Cat, /* End_Do_Parallel_Stmt */ 05237 Executable_Stmt_Cat, /* End_Parallel_Case_Stmt*/ 05238 Executable_Stmt_Cat, /* Parallel_Case_Stmt */ 05239 Executable_Stmt_Cat, /* End_Guard_Stmt */ 05240 Executable_Stmt_Cat, /* Statement_Num_Stmt */ 05241 Executable_Stmt_Cat, /* SGI_Section_Stmt */ 05242 Executable_Stmt_Cat, /* SGI_End_Psection_Stmt */ 05243 Executable_Stmt_Cat, /* SGI_End_Pdo_Stmt */ 05244 Executable_Stmt_Cat, /* SGI_End_Parallel_Stmt */ 05245 Executable_Stmt_Cat, 05246 /* SGI_End_Critical_Section_Stmt */ 05247 Executable_Stmt_Cat, 05248 /* SGI_End_Single_Process_Stmt*/ 05249 Executable_Stmt_Cat, /* SGI_Region_End_Stmt */ 05250 05251 Executable_Stmt_Cat, /* Open_MP_Section_Stmt */ 05252 Executable_Stmt_Cat, 05253 /* Open_MP_End_Parallel_Stmt */ 05254 Executable_Stmt_Cat, /* Open_MP_End_Do_Stmt */ 05255 Executable_Stmt_Cat, 05256 /* Open_MP_End_Parallel_Sections_Stmt*/ 05257 Executable_Stmt_Cat, 05258 /* Open_MP_End_Sections_Stmt */ 05259 Executable_Stmt_Cat, 05260 /* Open_MP_End_Section_Stmt */ 05261 Executable_Stmt_Cat, 05262 /* Open_MP_End_Single_Stmt */ 05263 Executable_Stmt_Cat, 05264 /*Open_MP_End_Parallel_Do_Stmt*/ 05265 Executable_Stmt_Cat, 05266 /* Open_MP_End_Master_Stmt */ 05267 Executable_Stmt_Cat, 05268 /* Open_MP_End_Critical_Stmt */ 05269 Executable_Stmt_Cat, 05270 /* Open_MP_End_Ordered_Stmt */ 05271 Executable_Stmt_Cat, 05272 /* Open_MP_End_Parallel_Workshare_Stmt */ 05273 Executable_Stmt_Cat, 05274 /* Open_MP_End_Workshare_Stmt */ 05275 05276 05277 Executable_Stmt_Cat, /* Forall_Cstrct_Stmt */ 05278 Executable_Stmt_Cat, /* Forall_Stmt */ 05279 Executable_Stmt_Cat, /* End_Forall_Stmt */ 05280 Executable_Stmt_Cat, /* Else_Where_Mask_Stmt*/ 05281 Declaration_Stmt_Cat}; /* Volatile_Stmt */ 05282 05283 05284 boolean first_time_tbl_alloc = TRUE;