Open64 (mfef90, whirl2f, and IR tools): osprey1.0/crayf90/fe90/p

Go to the documentation of this file.
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