AssociateBlockCall¶
Runs the body of an associate construct.
Declaración¶
Sintaxis¶
AssociateBlockCall(symbol m)
Argumentos¶
Argument |
Descripción |
|---|---|
|
the AssociateBlock symbol holding the scope and the statements. |
Valores devueltos¶
None.
Descripción¶
Like BlockCall, this marks where the construct runs while the scope and the statements live in the symbol.
Ejemplos¶
(AssociateBlockCall
:m (SymbolRef 1 "block")
)
It comes from this complete ASR text document:
(TranslationUnit
:symtab (SymbolTable
:id 0
:symbols {
"main" (Program
:symtab (SymbolTable
:id 1
:symbols {
"block" (AssociateBlock
:symtab (SymbolTable
:id 2
:symbols {
"k" (Variable
:parent_symtab 2
:name "k"
:dependencies []
:intent :Local
:symbolic_value nil
:value nil
:storage :Default
:type (Integer
:kind 4
)
:type_declaration nil
:abi :Source
:access :Public
:presence :Required
:value_attr false
:target_attr false
:contiguous_attr false
:bindc_name nil
:is_volatile false
:is_protected false
:pass_attr :NotMethod
:self_argument nil
:codims []
:common_block nil
)
}
)
:name "block"
:body [
(Associate
:target (Var
:v (SymbolRef 2 "k")
)
:value (Var
:v (SymbolRef 1 "x")
)
:form :NoPointerBounds
)
(Assignment
:target (Var
:v (SymbolRef 2 "k")
)
:value (IntegerConstant
:n 1
:type (Integer
:kind 4
)
:intboz_type :Decimal
)
:overloaded nil
:realloc_lhs false
:move_allocation false
:new_target false
:new_allocation false
)
]
)
"x" (Variable
:parent_symtab 1
:name "x"
:dependencies []
:intent :Local
:symbolic_value nil
:value nil
:storage :Default
:type (Integer
:kind 4
)
:type_declaration nil
:abi :Source
:access :Public
:presence :Required
:value_attr false
:target_attr false
:contiguous_attr false
:bindc_name nil
:is_volatile false
:is_protected false
:pass_attr :NotMethod
:self_argument nil
:codims []
:common_block nil
)
}
)
:name "main"
:dependencies []
:body [
(AssociateBlockCall
:m (SymbolRef 1 "block")
)
]
:global_init nil
)
}
)
:items []
:global_init nil
)