nameres.h

Go to the documentation of this file.

/*

  Copyright (C) 2000, 2001 Silicon Graphics, Inc.  All Rights Reserved.

  This program is free software; you can redistribute it and/or modify it
  under the terms of version 2 of the GNU General Public License as
  published by the Free Software Foundation.

  This program is distributed in the hope that it would be useful, but
  WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  

  Further, this software is distributed without any warranty that it is
  free of the rightful claim of any third person regarding infringement 
  or the like.  Any license provided herein, whether implied or 
  otherwise, applies only to this software file.  Patent licenses, if 
  any, provided herein do not apply to combinations of this program with 
  other software, or any other product whatsoever.  

  You should have received a copy of the GNU General Public License along
  with this program; if not, write the Free Software Foundation, Inc., 59
  Temple Place - Suite 330, Boston MA 02111-1307, USA.

  Contact information:  Silicon Graphics, Inc., 1600 Amphitheatre Pky,
  Mountain View, CA 94043, or:

  http://www.sgi.com

  For further information regarding this notice, see:

  http://oss.sgi.com/projects/GenInfo/NoticeExplan

*/



/* USMID:  "\n@(#)5.0_pl/headers/nameres.h      5.1     04/29/99 21:22:31\n" */

/******************************************************************************\
|*                                                                            *|
|*  This module holds tables for semantic checking for declarations and       *|
|*  uses of attrs.  The routine fnd_semantic_err uses these tables to look    *|
|*  for problems and to issue errors.  Tables obj_to_attr, obj_to_name and    *|
|*  obj_to_others are used to detect errors.  There is an enum obj_values     *|
|*  (defined in globals.h).  This enum holds a value for things that can      *|
|*  be added to a symbol table attribute entry.  (ie: Obj_Cri_Pointee         *|
|*  means make this symbol table attribute entry a Cray_Pointee.)  So tbl     *|
|*  obj_to_attr says, can I add this obj_... info to a symbol table entry     *|
|*  that has this attribute?   Table obj_to_name says can I add this          *|
|*  obj_... to a symbol table attribute entry that is a Name_... ?  Table     *|
|*  obj_to_other says can I add this obj_... to a symbol table attribute      *|
|*  entry that already has this Other_... information?  The attributes,       *|
|*  names, and others each have their own enums.  (attr_obj_values            *|
|*  defined in sytb.h, name_obj_values and other_obj_values defined in        *|
|*  this module.)  There are 2 reasons that there are 3 enums.  1)  It        *|
|*  makes issuing messages easier.  Common messages can be used for           *|
|*  attr to attr, attr to name, and name to attr.  Unique messages only       *|
|*  need to be written for others.  2)  We want common code for the           *|
|*  different machines we run on, so we want to keep the number of 'bits'     *|
|*  per entry less than 32.  Each entry in a obj_to_attr table is a long.     *|
|*  There is one entry for each Obj_.... enum value.  Each entry is a         *|
|*  bunch of bits.  Each bit stands for one of the attr_obj_values enums.     *|
|*  The obj_to_name and obj_to_other tables are set up the same way, and      *|
|*  use enums name_obj_values and other_obj_values, respectively.             *|
|*  The tables attr_msg_num, name_msg_num, and other_msg_num have the         *|
|*  error messages to be printed out for bad combinations.  These are         *|
|*  2 dimensional arrays.  (Arrays of arrays if you're speaking C.)           *|
|*  Each entry is a long and is addressed by [Obj_....][Attr...] for          *|
|*  attr_msg_num table.  name_msg_num and other_msg_num tables work the       *|
|*  same way.  There is DEBUG routine, verify_semantic_tbls, that runs        *|
|*  once each time a DEBUG compiler is executed.  This routine makes sure     *|
|*  that the obj_to_.... and the ...._msg_num tables are in sync.  If a       *|
|*  combination is bad, it better have an error message.  If the combo is     *|
|*  good it better have 0, as an error message.  A fatal error message is     *|
|*  issued for each bad entry in the message table.  Then an internal msg     *|
|*  is issued to stop compilation.                                            *|
|*                                                                            *|
\******************************************************************************/

/****************************************\
|* static data used within this module. *|
\****************************************/

/* These are names that a symbol table entry can be. */

enum    attr_obj_values        {Attr_Assumed_Type_Ch,   Attr_Dimension,
                                Attr_Explicit_Shp_Arr,  Attr_Assumed_Size_Arr,
                                Attr_Deferred_Shp_Arr,  Attr_Assumed_Shp_Arr,
                                Attr_Allocatable,       Attr_Parameter,
                                Attr_Intent,            Attr_Optional,
                                Attr_Private,           Attr_Public,
                                Attr_Target,            Attr_Equivalence,
                                Attr_Save,              Attr_Pointer,
                                Attr_External,          Attr_Intrinsic,
                                Attr_Data_Init,         Attr_Type,
                                Attr_Co_Array,          Attr_Automatic,
                                Attr_Volatile,          Attr_Done };

enum    dir_obj_values         {Dir_Auxiliary,          Dir_Vfunction,
                                Dir_No_Side_Effects,    Dir_Inline,
                                Dir_Symmetric,          Dir_Copy_Assumed_Shape,
                                Dir_Align_Symbol,       Dir_Fill_Symbol,
                                Dir_Section_Gp,         Dir_Section_Non_Gp,
                                Dir_Ignore_TKR,         Dir_Optional,
                                Dir_Ipa,                Dir_Name,               
                                Dir_Done };

enum    name_obj_values        {Name_Variable,          Name_Common_Obj,
                                Name_Cri_Pointer,       Name_Cri_Pointee,
                                Name_Cri_Ch_Pointee,    Name_Func_Result,
                                Name_Dummy_Arg,
                                Name_Module_Proc,       Name_Derived_Type,
                                Name_Generic_Interface, Name_Namelist_Group,
                                Name_Namelist_Group_Obj,Name_Statement_Func,
                                Name_Construct,         Name_Intrinsic_Func,
                                Name_Intrinsic_Subr,    Name_Module,
                                Name_Blockdata,         Name_Program,
                                Name_Function,          Name_Curr_Func,
                                Name_Curr_Subr,         Name_Internal_Func,
                                Name_Internal_Subr,     Name_Done };


/* These are other things that a symbol table can be.  For being in the      */
/* Curr_.. or Use_.., fnd_sem_err is smart enough to enter the kind of       */
/* function or subroutine.  ie:  external function,  module subroutine ect.. */

enum    other_obj_values       {Other_Var_Len_Ch,       Other_Var_Len_Arr,      
                                Other_Expl_Interface,
                                Other_Use_Func,         Other_Use_Subr,
                                Other_Use_Variable,     Other_Use_Dummy_Arg,
                                Other_Host_Assoc,       Other_Use_Assoc,
                                Other_Use_Char_Rslt,    Other_Not_Visible,
                                Other_Npes,             Other_Done
                               };

/* These strings are used to put out error messages about these attributes.   */
/* The enumerations for attrs are found in sytb.h, because they are symbol    */
/* table related, and are kept in the symbol table.                           */
/* Note: Type is treated slightly different, so the error msgs make sense.    */

static  char    *attr_str[Attr_Done] =          {     
                        "CHARACTER*(*)",
                        "DIMENSION",
                        "explicit-shape DIMENSION",
                        "assumed-size DIMENSION",
                        "deferred-shape DIMENSION",
                        "assumed-shape DIMENSION",
                        "ALLOCATABLE",
                        "PARAMETER",
                        "INTENT",
                        "OPTIONAL",
                        "PRIVATE",
                        "PUBLIC",
                        "TARGET",
                        "EQUIVALENCE",
                        "SAVE",
                        "POINTER",
                        "EXTERNAL",
                        "INTRINSIC",
                        "DATA initialized",
                        "type-spec",            /* This turns into the     */
                                                /* actual type.  ie:  REAL */
                        "co-array DIMENSION",
                        "AUTOMATIC",
                        "VOLATILE"};

static  char    *dir_str[Dir_Done]      =       {
                        "AUXILIARY",
                        "VFUNCTION",
                        "NO SIDE EFFECTS",
                        "INLINE",
                        "SYMMETRIC",
                        "COPY_ASSUMED_SHAPE",
                        "ALIGN_SYMBOL",
                        "FILL_SYMBOL",
                        "SECTION_GP",
                        "SECTION_NON_GP",
                        "IGNORE_TKR",
                        "OPTIONAL",
                        "IPA",
                        "NAME",
                         };

/* These strings are used to put out error messages about these names.  */

static  char    *name_str[Name_Done] =          {
                        "variable",              "common-block-object",
                        "Cray pointer",          "Cray pointee",
                        "Cray character pointee","result-name",
                        "dummy-argument",        "module-subprogram",
                        "type-name",             "generic-name",
                        "namelist-group-name",   "namelist-group-object",
                        "statement function",    "construct-name",
                        "intrinsic function",    "intrinsic subroutine",
                        "module",                "block-data",
                        "program-name",          "function",
                        "function",              "subroutine",
                        "internal function",     "internal subroutine" };


/* These tables are used to add the Obj_ item to the current attr.            */
/* The 1 << Attr item means that it is an error if this attribute is set in   */
/* the symbol table and you're trying to add the Obj_ attribute/name/other to */
/* this attribute entry.                                                      */

long    obj_to_attr[Obj_Done]   =       {

        /*  Obj_Assum_Type_Ch           ie: CHARACTER*(*) A             */
        /*  Must be a dummy argument or constant, but have to declare   */
        /*  the type first, then make it a Parameter                    */
        /*  It can also be used to declare the result of the external   */
        /*  function that is actually being compiled.  This function    */
        /*  cannot be array-valued or a pointer.                        */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (0 << Attr_Intent) |   
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (0 << Attr_Pointer) |
         (0 << Attr_External) |         (1 << Attr_Intrinsic) |
         (1 << Attr_Type) |             (0 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Expl_Shp_Arr            ie: DIMENSION A(1)       */
        /*  NOTES: Must declare as array then data initialize it */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) | 
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),


        /*  Obj_Assum_Size_Arr          ie: DIMENSION A(*)      */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (1 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) | 
         (0 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Defrd_Shp_Arr           ie: DIMENSION A(:)      */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
/*       (1 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) | */
/* for module temporary use */
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (0 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Assum_Shp_Arr           ie: DIMENSION A (1:)    */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (1 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) | 
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (0 << Attr_Intent) |   
         (0 << Attr_Optional) |         (1 << Attr_Public) |
         (1 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Co_Array                ie: DIMENSION A[3,4]    */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (0 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Allocatable             ie: ALLOCATABLE A(:)    */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (1 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (0 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (0 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Constant                ie: PARAMETER (A=1.0)   */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Intent                  ie: INTENT (IN) A                   */
        /*      Intent can be specified for a deferred-shape array, because */
        /*      it may become an assumed-shape array.   If it doesn't       */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Optional                ie: OPTIONAL A  */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Deferred_Shp_Arr) | (0 << Attr_Assumed_Size_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (0 << Attr_Pointer) |
         (0 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Private                 ie: PRIVATE A   */

        ((0 << Attr_Assumed_Type_Ch) |  (0 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (0 << Attr_Allocatable) |       
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (1 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (0 << Attr_External) |         (0 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Public                  ie: PUBLIC A    */

        ((0 << Attr_Assumed_Type_Ch) |  (0 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (0 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (1 << Attr_Private) |          (0 << Attr_Target) |
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (0 << Attr_External) |         (0 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Target                  ie: TARGET A    */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (0 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (0 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (0 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Equiv                   ie: EQUIVALENCE (AB)    */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Saved                   ie: SAVE A      */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (0 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Automatic               ie: AUTOMATIC A */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (1 << Attr_Save) |             (0 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Pointer                 ie: POINTER :: A        */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (1 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (0 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Dcl_Extern              ie: EXTERNAL A  */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |   
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (0 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Dcl_Intrin              ie: INTRINSIC A */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (0 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Data_Init               ie: DATA A /1.0/        */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Typed                   ie: INTEGER A   */

        /* If it's assumed_type char, it had to have been in a type stmt */
        /* so ATD_TYPED will be set.                                     */

        ((1 << Attr_Assumed_Type_Ch) |  (0 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (0 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (0 << Attr_External) |         (0 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Volatile                ie: VOLATILE A  */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (0 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Copy_Assumed_Shape      ie: !DIR$ COPY_ASSUMED_SHAPE A  */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (1 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Auxiliary               ie: !DIR$ AUXILIARY A   */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) | 
         (0 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |  
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Vfunction               ie: !DIR$ VFUNCTION A   */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_No_Side_Effects         ie: !DIR$ NOSIDEEFFECTS A */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (0 << Attr_Pointer) |
         (0 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Symmetric               ie: !DIR$ SYMMETRIC A */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |  
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |    
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Inline                  ie: !DIR$ INLINE ALWAYS/NEVER A */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |  
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |    
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (0 << Attr_Pointer) |
         (0 << Attr_External) |         (0 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Ipa                     ie: !*$* IPA  */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |  
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |    
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (0 << Attr_Pointer) |
         (0 << Attr_External) |         (0 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Align_Symbol            ie: !*$* ALIGN_SYMBOL A */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |  
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |    
         (0 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Fill_Symbol             ie: !*$* FILL_SYMBOL A */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |  
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |    
         (0 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Section_Gp              ie: !*$* SECTION_GP A */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |  
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |    
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Section_Non_Gp          ie: !*$* SECTION_NON_GP A */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |  
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |    
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Ignore_TKR              ie: !DIR$ IGNORE_TKR darg */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Deferred_Shp_Arr) | (0 << Attr_Assumed_Size_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Optional_Dir            ie: !*$* optional(External name) */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |         
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |           (0 << Attr_Optional) |
         (0 << Attr_Public) |           (0 << Attr_Private) |
         (1 << Attr_Target) |           (1 << Attr_Data_Init) |
         (1 << Attr_Equivalence) |      (1 << Attr_Save) |
         (1 << Attr_Pointer) |          (0 << Attr_External) |
         (1 << Attr_Intrinsic) |        (0 << Attr_Type) |
         (1 << Attr_Co_Array) |         (1 << Attr_Automatic) | 
         (1 << Attr_Volatile)
        ),

        /*  Obj_Name                    ie: !DIR$ Name(Fort_name="ext_name") */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |         
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (0 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Cri_Ptr                 ie: POINTER (A,B)       */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (1 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Cri_Pointee             ie: POINTER (B,A)               */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Cri_Ch_Pointee          ie: POINTER (B,A)               */
        /*      *(*) is what makes an assumed-size character pointer    */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |

# if defined(_EXTENDED_CRI_CHAR_POINTER)
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
# else
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
# endif
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Ntry_Func_Result        ie: ENTRY ABC() RESULT A        */
        /* To be adjustable it must be a dummy arg.     Can't change a  */
        /* dummy arg into a function result.                            */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (0 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Dummy_Arg               ie: FUNCTION ABC(A)             */
        /*                              ie: ENTRY ABC(A)                */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (0 << Attr_Pointer) |
         (0 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Common_Obj              ie: COMMON // A */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |   
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (1 << Attr_Save) |             (0 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Namelist_Obj            ie: NAMELIST /G/ A      */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Module_Proc             ie: MODULE PROCEDURE A  */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (1 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Derived_Type            ie: TYPE A      */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |   
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (1 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Generic_Interface       ie: INTERFACE A */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |   
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (0 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),
        
        /*  Obj_Namelist_Grp            ie: NAMELIST /A/ B      */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |   
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (1 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Stmt_Func               ie: A(XY) = ...         */
        /*      Types must be scalar and have constant bounds   */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |   
         (1 << Attr_Optional) |         (1 << Attr_Public) |
         (1 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Construct               ie: A : IF (I.EQ.J) THEN        */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |   
         (1 << Attr_Optional) |         (1 << Attr_Public) |
         (1 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (1 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Entry_Func              ie: ENTRY A     */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |   
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (0 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Entry_Subr              ie: ENTRY A     */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |   
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (1 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Intern_Func             ie: FUNCTION A()        */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |   
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (1 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Intern_Subr             ie: SUBROUTINE A()      */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |   
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (1 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Module_Func             ie: FUNCTION A()        */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |   
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (1 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Module_Subr             ie: SUBROUTINE A()      */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |         
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |           
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (1 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Sf_Darg                 ie: sf(A) =     */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |         
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (0 << Attr_Intent) |           
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Sf_Actual_Arg           ie: x = sf(A)           */

        ((0 << Attr_Assumed_Type_Ch) |  (0 << Attr_Parameter) |         
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (0 << Attr_Allocatable) |
         (0 << Attr_Intent) |           
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Var_Len_Ch              ie: CHARACTER*(N) A         */
        /*  Covers both automatic and adjustable.                   */
        /*  Always called at end pass1.  Obj_type is called when the        */
        /*  character statement is seen.  If the bounds do not resolve to a */ 
        /*  constant, then fnd_semantic_err is called with Obj_Var_Len_Ch.  */
        /*  That is why Attr_Type is allowed to be set.                     */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) | 
         (0 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (0 << Attr_Allocatable) |
         (0 << Attr_Intent) |           
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (0 << Attr_Pointer) |
         (0 << Attr_External) |         (0 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Var_Len_Arr             ie: DIMENSION A(N)                  */
        /*  Obj_Var_Len_Arr is used at declaration semantics. The thing is  */
        /*  already an explicit shape array, but now it is variable length. */
        /*  Because this is at end pass1, the item may have the Auxiliary   */
        /*  attribute.                                                      */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) | 
         (1 << Attr_Assumed_Size_Arr) |        (0 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (0 << Attr_Allocatable) |
         (0 << Attr_Intent) |           
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Sym_Constant_Array      ie: DIMENSION A(N$PES)   */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) | 
         (0 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (0 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Interface_Func          ie: FUNCTION ABC()      */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (1 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Interface_Subr          ie: SUBROUTINE ABC()    */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) |
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (1 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Use_Extern_Func         ie: B = A()              */

        ((0 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |   
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (0 << Attr_Pointer) |
         (0 << Attr_External) |         (0 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Use_Extern_Subr         ie: CALL A()    */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |   
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (0 << Attr_External) |         (0 << Attr_Intrinsic) |
         (1 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Use_In_Expr             ie: X = A + B   */

        ((0 << Attr_Assumed_Type_Ch) |  (0 << Attr_Parameter) | 
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (0 << Attr_Allocatable) |
         (0 << Attr_Intent) |           
         (0 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (0 << Attr_External) |         (0 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Use_Derived_Type        ie: TYPE (A)    */

        ((1 << Attr_Assumed_Type_Ch) |  (1 << Attr_Parameter) | 
         (1 << Attr_Explicit_Shp_Arr) | (1 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (1 << Attr_Type) |             (1 << Attr_Co_Array) |
         (1 << Attr_Automatic) |        (1 << Attr_Volatile)
        ),

        /*  Obj_Use_Spec_Expr           ie: DIMENSION ARRAY(A) */

        ((0 << Attr_Assumed_Type_Ch) |  (0 << Attr_Parameter) | 
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (0 << Attr_Assumed_Size_Arr) | (0 << Attr_Deferred_Shp_Arr) |
         (0 << Attr_Assumed_Shp_Arr) |  (0 << Attr_Allocatable) |
         (0 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (0 << Attr_Target) |
         (0 << Attr_Data_Init) |        (0 << Attr_Equivalence) |
         (0 << Attr_Save) |             (0 << Attr_Pointer) |
         (0 << Attr_External) |         (0 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (0 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (0 << Attr_Volatile)
        ),

        /*  Obj_Use_Init_Expr           ie: PARAMETER (I=A)     */

        ((0 << Attr_Assumed_Type_Ch) |  (0 << Attr_Parameter) |
         (0 << Attr_Explicit_Shp_Arr) | (0 << Attr_Dimension) |
         (1 << Attr_Assumed_Size_Arr) | (1 << Attr_Deferred_Shp_Arr) |
         (1 << Attr_Assumed_Shp_Arr) |  (1 << Attr_Allocatable) |
         (1 << Attr_Intent) |
         (1 << Attr_Optional) |         (0 << Attr_Public) |
         (0 << Attr_Private) |          (1 << Attr_Target) |
         (1 << Attr_Data_Init) |        (1 << Attr_Equivalence) |
         (1 << Attr_Save) |             (1 << Attr_Pointer) |
         (1 << Attr_External) |         (1 << Attr_Intrinsic) |
         (0 << Attr_Type) |             (1 << Attr_Co_Array) |
         (0 << Attr_Automatic) |        (1 << Attr_Volatile)

        ) };


long    obj_to_dir[Obj_Done]    =       {

        /*  Obj_Assum_Type_Ch           ie: CHARACTER*(*) A             */
        /*  Must be a dummy argument or constant, but have to declare   */
        /*  the type first, then make it a Parameter.                   */
        /*  It can also be used to declare the result of the external   */
        /*  function that is actually being compiled.   This function   */
        /*  cannot be array-valued or a pointer.                        */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (0 << Dir_Name)),

        /*      Obj_Expl_Shp_Arr        ie: DIMENSION A (1)     */
        /*      NOTES: Must declare as array then data initialize it    */

        ((0 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (0 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Assum_Size_Arr      ie: DIMENSION A(*)      */

        ((0 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Defrd_Shp_Arr       ie: DIMENSION A(:)      */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Assum_Shp_Arr       ie: DIMENSION A (1:)    */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Co_Array    ie: DIMENSION A[3,4]    */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Allocatable         ie: ALLOCATABLE A(:)    */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Constant            ie: PARAMETER (A=1.0)   */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Intent              ie: INTENT (IN) A               */
        /*  Intent can be specified for a deferred-shape array, because */
        /*  it may become an assumed-shape array.       If it doesn't   */

        ((0 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Optional            ie: OPTIONAL A  */

        ((0 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (0 << Dir_Name)),

        /*      Obj_Private             ie: PRIVATE A   */

        ((0 << Dir_Auxiliary) |         (0 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (0 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (0 << Dir_Name)),

        /*      Obj_Public              ie: PUBLIC A    */

        ((0 << Dir_Auxiliary) |         (0 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (0 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (0 << Dir_Name)),

        /*      Obj_Target              ie: TARGET A    */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Equiv               ie: EQUIVALENCE (AB)    */

        ((0 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Saved               ie: SAVE A      */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Automatic           ie: AUTOMATIC A */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Pointer             ie: POINTER :: A        */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Dcl_Extern          ie: EXTERNAL A  */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (0 << Dir_Name)),

        /*      Obj_Dcl_Intrin          ie: INTRINSIC A */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Data_Init           ie: DATA A /1.0/        */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*  Obj_Typed                   ie: INTEGER A                   */

        /*  If it's assumed_type char, it had to have been in a type    */
        /*  stmt so ATD_TYPED will be set.                              */

        ((0 << Dir_Auxiliary) |         (0 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (0 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (0 << Dir_Name)),

        /*  Obj_Volatile                ie: VOLATILE A                  */

        ((0 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (0 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Copy_Assumed_Shape  ie: !DIR$ COPY_ASSUMED_SHAPE A  */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Auxiliary           ie: !DIR$ AUXILIARY A   */

        ((0 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Vfunction           ie: !DIR$ VFUNCTION A   */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (0 << Dir_Name)),

        /*      Obj_No_Side_Effects      ie: !DIR$ NO SIDE EFFECTS A    */

        ((1 << Dir_Auxiliary) |         (0 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (0 << Dir_Name)),

        /*      Obj_Symmetric           ie: !DIR$ SYMMETRIC A */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |          
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Inline              ie: !DIR$ INLINE ALWAYS/NEVER A */

        ((1 << Dir_Auxiliary) |         (0 << Dir_Vfunction) |          
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (0 << Dir_Name)),

        /*      Obj_Ipa                 ie: !*$* IPA */

        ((1 << Dir_Auxiliary) |         (0 << Dir_Vfunction) |          
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (0 << Dir_Name)),

        /*      Obj_Align_Symbol        ie: !*$* ALIGN_SYMBOL A */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |          
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Fill_Symbol         ie: !*$* FILL_SYMBOL A */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |          
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Section_Gp          ie: !*$* SECTION_GP A */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |          
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Section_Non_Gp      ie: !*$* SECTION_NON_GP A */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |          
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /* Obj_Ignore_TKR               ie: !DIR$ IGNORE_TKR darg */

        ((0 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Optional_Dir        ie: !*$* optional(extern)       */

        ((1 << Dir_Auxiliary) |         (0 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (0 << Dir_Name)),

        /*      Obj_Name                ie: !DIR$ Name(Fort_name="ext_name") */

        ((1 << Dir_Auxiliary) |         (0 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Cri_Ptr              ie: POINTER (A,B)      */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (0 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Cri_Pointee         ie: POINTER (B,A)        */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Cri_Ch_Pointee      ie: POINTER (B,A)        */
        /*      *(*) is what makes an assumed-size character pointer */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Ntry_Func_Result    ie: ENTRY ABC() RESULT A        */
        /*      To be adjustable it must be a dummy arg. Can't change a */
        /*      dummy arg into a function result.                       */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Dummy_Arg           ie: FUNCTION ABC(A)             */
        /*                              ie: ENTRY ABC(A)                */

        ((0 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (0 << Dir_Name)),

        /*      Obj_Common_Obj          ie: COMMON // A */

        ((0 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Namelist_Obj        ie: NAMELIST /G/ A      */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (0 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Module_Proc         ie: MODULE PROCEDURE A  */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Derived_Type        ie: TYPE A      */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Generic_Interface   ie: INTERFACE A */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Namelist_Grp        ie: NAMELIST /A/ B      */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Stmt_Func           ie: A(XY) = ... */
        /*      Types must be scalar and have constant bounds */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Construct           ie: A : IF (I.EQ.J) THEN        */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Entry_Func          ie: ENTRY A     */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Entry_Subr          ie: ENTRY A     */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Intern_Func         ie: FUNCTION A()        */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Intern_Subr         ie: SUBROUTINE A()      */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Module_Func         ie: FUNCTION A()        */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Module_Subr         ie: SUBROUTINE A()      */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Sf_Darg             ie: sf(A) =     */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (0 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Sf_Actual_Arg       ie: x = sf(A)           */

        ((0 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (0 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*  Obj_Var_Len_Ch              ie: CHARACTER*(N) A                 */

        /*  Covers both automatic and adjustable.                           */
        /*  Always called at end pass1.  Obj_type is called when the        */
        /*  character statement is seen.  If the bounds do not resolve to a */
        /*  constant, then fnd_semantic_err is called with Obj_Var_Len_Ch.  */
        /*  That is why Attr_Type is allowed to be set.                     */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (0 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*  Obj_Var_Len_Arr             ie: DIMENSION A(N)                  */
        /*  Obj_Var_Len_Arr is used at declaration semantics.  The thing is */
        /*  already an explicit shape array, but now it is variable length. */
        /*  Because this is at end pass1, the item may have the Auxiliary   */
        /*  attribute.                                                      */

        ((0 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (0 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Sym_Constant_Array  ie: DIMENSION A(N$PES)  */

        ((0 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (0 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Interface_Func      ie: FUNCTION ABC()      */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Interface_Subr      ie: SUBROUTINE ABC()    */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Use_Extern_Func     ie: B = A()             */

        ((1 << Dir_Auxiliary) |         (0 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (0 << Dir_Name)),

        /*      Obj_Use_Extern_Subr      ie: CALL A()   */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (0 << Dir_Name)),

        /*      Obj_Use_In_Expr         ie: X = A + B   */

        ((0 << Dir_Auxiliary) |         (0 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (0 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (0 << Dir_Name)),

        /*      Obj_Use_Derived_Type    ie: TYPE (A)    */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (1 << Dir_No_Side_Effects) |   (1 << Dir_Inline) |
         (1 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (1 << Dir_Ipa) |               (1 << Dir_Name)),

        /*      Obj_Use_Spec_Expr       ie: DIMENSION ARRAY(A) */

        ((0 << Dir_Auxiliary) |         (0 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (0 << Dir_Symmetric) |         (0 << Dir_Copy_Assumed_Shape) |
         (0 << Dir_Align_Symbol) |      (0 << Dir_Fill_Symbol) |
         (0 << Dir_Section_Gp) |        (0 << Dir_Section_Non_Gp) |
         (0 << Dir_Optional) |          (0 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (0 << Dir_Name)),

        /*      Obj_Use_Init_Expr       ie: PARAMETER (I=A)     */

        ((1 << Dir_Auxiliary) |         (1 << Dir_Vfunction) |
         (0 << Dir_No_Side_Effects) |   (0 << Dir_Inline) |
         (0 << Dir_Symmetric) |         (1 << Dir_Copy_Assumed_Shape) |
         (1 << Dir_Align_Symbol) |      (1 << Dir_Fill_Symbol) |
         (1 << Dir_Section_Gp) |        (1 << Dir_Section_Non_Gp) |
         (1 << Dir_Optional) |          (1 << Dir_Ignore_TKR) |
         (0 << Dir_Ipa) |               (1 << Dir_Name))
        };


long    obj_to_name[Obj_Done]   =       {

        /*      Obj_Assum_Type_Ch       ie: CHARACTER*(*) A                */
        /*      Have to declare the type before declaring it as a pointee. */
        /*      It can be the function result of an external program,      */
        /*      so the others will have to be caught inline.  Allow it to  */
        /*      be a cri pointee.       An explicit message will be issued */
        /*      by merge_type.                                             */

        ((0 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |

# if defined(_EXTENDED_CRI_CHAR_POINTER)
         (0 << Name_Cri_Pointee) |      (0 << Name_Cri_Ch_Pointee) |
# else
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
# endif
         (0 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (0 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Expl_Shp_Arr        ie: DIMENSION A (1)     */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |

# if defined(_EXTENDED_CRI_CHAR_POINTER)
         (0 << Name_Cri_Pointee) |      (0 << Name_Cri_Ch_Pointee) |
# else
         (0 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
# endif
         (0 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (0 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Assum_Size_Arr      ie: DIMENSION A(*)      */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |

# if defined(_EXTENDED_CRI_CHAR_POINTER)
         (0 << Name_Cri_Pointee) |      (0 << Name_Cri_Ch_Pointee) |
# else
         (0 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
# endif
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Defrd_Shp_Arr       ie: DIMENSION A(:)      */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (0 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (0 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*  Obj_Assum_Shp_Arr   ie: DIMENSION A (1:)    */
        /*  NOTE:  This can be a referenced variable, because assumed-shape */
        /*      is added at end_pass1, but must check if AT_REFERENCED set  */
        /*      if this is an original declaration of an assumed-shape arr  */

        ((0 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Co_Array    ie: Dimension A[3,4]    */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),


        /*      Obj_Allocatable         ie: ALLOCATABLE A(:)    */

        ((0 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Constant            ie: PARAMETER (A=1.0)   */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Intent              ie: INTENT (IN) A       */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Optional            ie: OPTIONAL A  */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Private             ie: PRIVATE A   */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (0 << Name_Cri_Pointee) |      (0 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (0 << Name_Intrinsic_Subr) |   (0 << Name_Module_Proc) |
         (0 << Name_Derived_Type) |     (0 << Name_Generic_Interface) |
         (0 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Public              ie: PUBLIC A    */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (0 << Name_Cri_Pointee) |      (0 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (0 << Name_Intrinsic_Subr) |   (0 << Name_Module_Proc) |
         (0 << Name_Derived_Type) |     (0 << Name_Generic_Interface) |
         (0 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)| 
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Target              ie: TARGET A    */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (0 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (0 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Equiv               ie: EQUIVALENCE (AB)    */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)| 
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Saved                       ie: SAVE A      */

        ((0 << Name_Variable) |         (1 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Automatic           ie: AUTOMATIC A */

        ((0 << Name_Variable) |         (1 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (0 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (0 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (0 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (0 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Pointer             ie: POINTER :: A        */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |                
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (0 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (0 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Dcl_Extern          ie: EXTERNAL A  */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (0 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (0 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Dcl_Intrin          ie: INTRINSIC A */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (0 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (0 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)| 
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Data_Init           ie: DATA A /1.0/        */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Typed               ie: INTEGER A   */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (0 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (0 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (0 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (0 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Volatile            ie: VOLATILE A  */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (0 << Name_Cri_Pointee) |      (0 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Copy_Assumed_Shape  ie: !DIR$ COPY_ASSUMED_SHAPE A  */

        ((0 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Auxiliary           ie: !DIR$ AUXILIARY A   */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Vfunction           ie: !DIR$ VFUNCTION A   */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_No_Side_Effects     ie: !DIR$ NOSIDEEFFECTS A       */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (0 << Name_Curr_Func) |        (0 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Symmetric           ie : !DIR$ SYMMETRIC A */

        ((0 << Name_Variable) |         (1 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Inline              ie: !DIR$ INLINE ALWAYS/NEVER A */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (0 << Name_Intrinsic_Subr) |   (0 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (0 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (0 << Name_Curr_Func) |        (0 << Name_Curr_Subr) |
         (0 << Name_Internal_Func) |    (0 << Name_Internal_Subr)),

        /*      Obj_Ipa                 ie: !*$* IPA */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (0 << Name_Intrinsic_Subr) |   (0 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (0 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (0 << Name_Curr_Func) |        (0 << Name_Curr_Subr) |
         (0 << Name_Internal_Func) |    (0 << Name_Internal_Subr)),

        /*      Obj_Align_Symbol        ie: !*$* ALIGN_SYMBOL A */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (0 << Name_Cri_Pointee) |      (0 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Fill_Symbol         ie: !*$* FILL_SYMBOL A  */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (0 << Name_Cri_Pointee) |      (0 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Section_Gp          ie: !*$* SECTION_GP A   */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (0 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Section_Non_Gp      ie: !*$* SECTION_NON_GP A       */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (0 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*  Obj_Ignore_TKR               ie: !DIR$ IGNORE_TKR   */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Optional_Dir        ie !*$* optional(extern) */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (0 << Name_Module_Proc) |
         (1 << Name_Module) |           (0 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)| 
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (0 << Name_Curr_Func) |        (0 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Name                ie: !DIR$ Name(Fort_name="ext_name") */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)| 
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Cri_Ptr             ie: POINTER (A,B)       */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Cri_Pointee         ie: POINTER (B,A)       */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Cri_Ch_Pointee      ie: POINTER (B,A)       */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Ntry_Func_Result    ie: ENTRY ABC() RESULT A        */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (0 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Dummy_Arg           ie: FUNCTION ABC(A)             */

        ((0 << Name_Variable) |         (1 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)| 
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Common_Obj          ie: COMMON // A */

        ((0 << Name_Variable) |         (1 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Namelist_Obj        ie: NAMELIST /G/ A        */
        /*  The namelist object could be referenced by this time. */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (0 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Module_Proc         ie: MODULE PROCEDURE A  */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (0 << Name_Intrinsic_Subr) |   (0 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Derived_Type                ie: TYPE A      */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Generic_Interface   ie: INTERFACE A */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (0 << Name_Intrinsic_Subr) |   (0 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (0 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Namelist_Grp        ie: NAMELIST /A/ B      */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (0 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Stmt_Func           ie: A(XY) = ... */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Construct           ie: A : IF (I.EQ.J) THEN        */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Entry_Func          ie: ENTRY A     */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Entry_Subr          ie: ENTRY A     */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Intern_Func         ie: FUNCTION A()             */
        /* This can be a referenced variable, because of the forward */
        /* referencing problem.                                      */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (0 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Intern_Subr         ie: SUBROUTINE A()      */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (0 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Module_Func         ie: FUNCTION A()        */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (0 << Name_Intrinsic_Subr) |   (0 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (0 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Module_Subr         ie: SUBROUTINE A()      */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (0 << Name_Intrinsic_Subr) |   (0 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (0 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Sf_Darg             ie: sfunc(A) =  */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (0 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (0 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)| 
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Sf_Actual_Arg               ie: = sf(A)     */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (0 << Name_Cri_Pointee) |      (0 << Name_Cri_Ch_Pointee) |
         (0 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*  Obj_Var_Len_Ch              ie: CHARACTER*(N) A             */
        /*      This is added at end of pass1, so the variable          */
        /*      would be referenced by this time.                       */

        ((0 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
# if defined(_EXTENDED_CRI_CHAR_POINTER)
         (0 << Name_Cri_Pointee) |      (0 << Name_Cri_Ch_Pointee) |
# else
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
# endif
         (0 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj) |        
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (0 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /* Obj_Var_Len_Arr              ie: DIMENSION A(N)              */
        /*   This is added at end of pass1, so the variable would be    */
        /*      referenced by this time.                                */

        ((0 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
# if defined(_EXTENDED_CRI_CHAR_POINTER)
         (0 << Name_Cri_Pointee) |      (0 << Name_Cri_Ch_Pointee) |
# else
         (0 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
# endif
         (0 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)| 
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (0 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Sym_Constant_Array  ie: DIMENSION A(N$PES)  */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (0 << Name_Cri_Pointee) |      (0 << Name_Cri_Ch_Pointee) |
         (0 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (0 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Interface_Func      ie: FUNCTION ABC()      */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Interface_Subr      ie: SUBROUTINE ABC()    */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (0 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Use_Extern_Func     ie: B = A()     */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (0 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (0 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (0 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Use_Extern_Subr     ie: CALL A()    */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (0 << Name_Intrinsic_Subr) |   (0 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (1 << Name_Derived_Type) |     (0 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (0 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Use_In_Expr         ie: X = A + B   */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |
         (0 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (0 << Name_Cri_Pointee) |      (0 << Name_Cri_Ch_Pointee) |
         (0 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (0 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Derived_Type) |     (0 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (0 << Name_Statement_Func) |   (1 << Name_Construct) |
         (0 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (0 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Use_Derived_Type    ie: TYPE (A)    */

        ((1 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (1 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (1 << Name_Function) |
         (0 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Use_Spec_Expr       ie: DIMENSION I(A) */

        ((0 << Name_Variable) |         (0 << Name_Common_Obj) |                
         (1 << Name_Cri_Pointer) |      (0 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (0 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr)),

        /*      Obj_Use_Init_Expr       ie: PARAMETER (I=A)     */

        ((0 << Name_Variable) |         (1 << Name_Common_Obj) |
         (1 << Name_Cri_Pointer) |      (1 << Name_Dummy_Arg) |
         (1 << Name_Cri_Pointee) |      (1 << Name_Cri_Ch_Pointee) |
         (1 << Name_Func_Result) |      (0 << Name_Intrinsic_Func) |
         (1 << Name_Intrinsic_Subr) |   (1 << Name_Module_Proc) |
         (1 << Name_Derived_Type) |     (1 << Name_Generic_Interface) |
         (1 << Name_Namelist_Group) |   (1 << Name_Namelist_Group_Obj)|
         (1 << Name_Statement_Func) |   (1 << Name_Construct) |
         (1 << Name_Module) |           (1 << Name_Blockdata) |
         (1 << Name_Program) |          (0 << Name_Function) |
         (1 << Name_Curr_Func) |        (1 << Name_Curr_Subr) |
         (1 << Name_Internal_Func) |    (1 << Name_Internal_Subr))

        };


long    obj_to_other[Obj_Done]  =       {

        /* NOTE: An internal function/subroutine can be called in an outer   */
        /*      scope before it is defined as an in