diffast-langs-fortran 0.1.1

module Xlist = Diffast_misc.Xlist

module Loc = Diffast_misc.Loc

module Lang_base = Diffast_core.Lang_base

module Spec = Diffast_core.Spec

module Charpool = Diffast_core.Charpool

module Astml = Diffast_core.Astml

module Ast = Fortran_parsing.Ast

module Label_common = Fortran_parsing.Label_common

module Labels = Fortran_parsing.Labels

module Label = Fortran_parsing.Label

module Pinfo = Fortran_parsing.Pinfo

val keyroot_depth_min : int

type tie_id = Lang_base.tie_id

val null_tid : string * string

val mktid : 'a -> 'b -> 'a * 'b

val tid_to_string : (string * string) -> string

val anonymize_tid : ?more:bool -> Lang_base.tie_id -> string * string

val mktidattr : Lang_base.tie_id -> (string * string) list

module type T = sig ... end

val conv_loc : Ast.Loc.t -> Loc.t

include module type of struct include Label_common end

module XML = Label_common.XML

module Xstring = Label_common.Xstring

type name = Fortran_parsing.Common.name

type label = Fortran_parsing.Common.label

type var = Fortran_parsing.Common.var

val opt_to_string : 
  ('a -> string) ->
  ?prefix:string ->
  ?suffix:string ->
  'a option ->
  string

val string_opt_to_string : 
  ?prefix:string ->
  ?suffix:string ->
  string option ->
  string

val int_opt_to_string : 
  ?prefix:string ->
  ?suffix:string ->
  int option ->
  string

val opt_to_list : 'a option -> 'a list

val opt_to_list_map : ('a -> 'b) -> 'a option -> 'b list

val string_list_to_string : ?prefix:string -> string -> string list -> string

val int_list_to_string : ?prefix:string -> string -> int list -> string

val lang_prefix : string

val name_attr_name : string

val label_attr_name : string

val slabel_attr_name : string

val path_attr_name : string

val spec_attr_name : string

val desc_attr_name : string

val var_attr_name : string

val rank_attr_name : string

val proc_name_attr_name : string

val value_attr_name : string

val opt_to_attr : ('a -> 'b) -> 'c -> 'a option -> ('c * 'b) list

val string_opt_to_attr : 'a -> string option -> ('a * string) list

val int_opt_to_attr : 'a -> int option -> ('a * string) list

val list_to_attr : ('a -> 'b) -> string -> 'a list -> (string * 'b) list

val name_list_to_attr : string -> string list -> (string * string) list

val int_list_to_attr : string -> int list -> (string * string) list

val strlit_to_encoded_path : string -> string

module HeaderFile : sig ... end

module PpDirective : sig ... end

module ProgramUnit : sig ... end

module InternalSubprogram : sig ... end

module ModuleSubprogram : sig ... end

module IntentSpec : sig ... end

module AttrSpec : sig ... end

module AccessSpec : sig ... end

module TypeAttrSpec : sig ... end

module Stmt : sig ... end

module Ambiguous : sig ... end

module Constant : sig ... end

module IntrinsicOperator : sig ... end

module DefinedOperator : sig ... end

module OclDirective : sig ... end

module Dec : sig ... end

module Xlf : sig ... end

module OmpClause : sig ... end

module OmpDirective : sig ... end

module OmpConstruct : sig ... end

module AccClause : sig ... end

module AccDirective : sig ... end

module AccConstruct : sig ... end

module LindaCall : sig ... end

module TypeSpec : sig ... end

module GenericSpec : sig ... end

module IoControlSpec : sig ... end

module InquireSpec : sig ... end

module ConnectSpec : sig ... end

module CloseSpec : sig ... end

module PositionSpec : sig ... end

module Format : sig ... end

module PrefixSpec : sig ... end

module CaseSelector : sig ... end

module CaseValueRange : sig ... end

module ControlEditDesc : sig ... end

module FormatItem : sig ... end

module WaitSpec : sig ... end

module FlushSpec : sig ... end

module BindingAttr : sig ... end

module ProcComponentAttrSpec : sig ... end

module ProcAttrSpec : sig ... end

include module type of struct include Label end

val sprintf : ('a, unit, string) format -> 'a

type t = Fortran_parsing.Label.t =

| DUMMY
| EMPTY
| WEIRD of string
| ERROR of string
| Include of string
| PpDirective of Fortran_parsing.Labels.PpDirective.t
| PpBranch
| PpBranchDo
| PpBranchForall
| PpBranchIf
| PpBranchSelect
| PpBranchWhere
| PpBranchDerivedType
| PpBranchFunction
| PpBranchSubroutine
| PpBranchPu
| PpBranchEndDo
| PpBranchEndForall
| PpBranchEndIf
| PpBranchEndSelect
| PpBranchEndWhere
| PpBranchEndType
| PpBranchEndFunction
| PpBranchEndSubroutine
| PpBranchEndPu
| PpSectionIf of string
| PpSectionIfdef of string
| PpSectionIfndef of string
| PpSectionElif of string
| PpSectionElse
| SubroutineStmtHead of string
| FunctionStmtHead of string
| OclDirective of Fortran_parsing.Labels.OclDirective.t
| OCL
| XlfDirective of Fortran_parsing.Labels.Xlf.Directive.t
| XlfAssertion of Fortran_parsing.Labels.Xlf.Assertion.t
| XlfMisc of Fortran_parsing.Labels.Xlf.t
| XLF
| DecDirective of Fortran_parsing.Labels.Dec.Directive.t
| DecClause of Fortran_parsing.Labels.Dec.Clause.t
| DecAttribute of Fortran_parsing.Labels.Dec.Attribute.t
| DecMisc of Fortran_parsing.Labels.Dec.t
| DEC
| OmpDirective of Fortran_parsing.Labels.OmpDirective.t
| OmpClause of Fortran_parsing.Labels.OmpClause.t
| OMP
| OmpConstruct of Fortran_parsing.Labels.OmpConstruct.t
| AccDirective of Fortran_parsing.Labels.AccDirective.t
| AccClause of Fortran_parsing.Labels.AccClause.t
| ACC
| AccConstruct of Fortran_parsing.Labels.AccConstruct.t
| LindaCall of Fortran_parsing.Labels.LindaCall.t
| Program
| ProgramUnit of Fortran_parsing.Labels.ProgramUnit.t
| InternalSubprogram of Fortran_parsing.Labels.InternalSubprogram.t
| ModuleSubprogram of Fortran_parsing.Labels.ModuleSubprogram.t
| Stmt of Fortran_parsing.Labels.Stmt.t
| TypeSpec of Fortran_parsing.Labels.TypeSpec.t
| Ambiguous of Fortran_parsing.Labels.Ambiguous.t
| SpecificationPart
| ExecutionPart
| SubprogramPart
| ImplicitPart
| Block
| InterfaceBlock of Fortran_parsing.Label_common.name option
| InterfaceBody
| CaseConstruct
| DoConstruct of Fortran_parsing.Label_common.var option
| ForallConstruct
| IfConstruct
| WhereConstruct
| DerivedTypeDef of Fortran_parsing.Label_common.name
| SelectTypeConstruct
| AssociateConstruct
| BlockConstruct
| CriticalConstruct
| ArrayElement of Fortran_parsing.Label_common.name
| ArraySection of Fortran_parsing.Label_common.name
| StructureComponent of Fortran_parsing.Label_common.name
| Substring
| SectionSubscriptList of Fortran_parsing.Label_common.name
| SubscriptTriplet
| FirstSubscript
| SecondSubscript
| Stride
| SubstringRange
| StartingPoint
| EndingPoint
| ActualArgSpec of Fortran_parsing.Label_common.name option
| AltReturnSpec of Fortran_parsing.Label_common.label
| PartRef
| PartName of Fortran_parsing.Label_common.name
| Name of Fortran_parsing.Label_common.name
| Label of Fortran_parsing.Label_common.label
| VariableName of Fortran_parsing.Label_common.name
| Constant of Fortran_parsing.Labels.Constant.t
| ParenExpr
| ArrayConstructor
| FunctionReference of Fortran_parsing.Label_common.name
| StructureConstructor of Fortran_parsing.Label_common.name
| IntrinsicOperator of Fortran_parsing.Labels.IntrinsicOperator.t
| DefinedOperator of Fortran_parsing.Labels.DefinedOperator.t
| LoopControl of Fortran_parsing.Label_common.var
| LoopControlWhile
| LoopControlConcurrent
| GenericSpec of Fortran_parsing.Labels.GenericSpec.t
| Rename
| OnlyList
| KindSelector
| CharSelector
| LengthSelector
| LengthSelectorOverride
| TypeParamValueAsterisk
| TypeParamValueColon
| ExplicitShapeSpec
| AssumedShapeSpec
| DeferredShapeSpec
| ComponentDecl of Fortran_parsing.Label_common.name
| ComponentAttrSpecs
| InitializationExpr
| InitializationNull
| InitializationTarget
| InitializationOldStyle
| EntityDecl of Fortran_parsing.Label_common.name
| CommonBlockObject of Fortran_parsing.Label_common.name
| CommonSpec of Fortran_parsing.Label_common.name option
| NamedConstantDef of Fortran_parsing.Label_common.name
| AttrSpec of Fortran_parsing.Labels.AttrSpec.t
| AttrSpecs
| ArraySpec of int
| ExplicitShapeArray of int
| AssumedShapeArray of int
| DeferredShapeArray of int
| AssumedSizeArray of int
| AssumedRankArray
| ComponentArraySpec of int
| ExplicitShapeComponentArray of int
| DeferredShapeComponentArray of int
| AccessSpec of Fortran_parsing.Labels.AccessSpec.t
| TypeAttrSpec of Fortran_parsing.Labels.TypeAttrSpec.t
| StopCode of Fortran_parsing.Labels.Constant.t
| InquireSpec of Fortran_parsing.Labels.InquireSpec.t
| CloseSpec of Fortran_parsing.Labels.CloseSpec.t
| ConnectSpec of Fortran_parsing.Labels.ConnectSpec.t
| PositionSpec of Fortran_parsing.Labels.PositionSpec.t
| IoControlSpec of Fortran_parsing.Labels.IoControlSpec.t
| WaitSpec of Fortran_parsing.Labels.WaitSpec.t
| FlushSpec of Fortran_parsing.Labels.FlushSpec.t
| BindingAttr of Fortran_parsing.Labels.BindingAttr.t
| ProcComponentAttrSpec of Fortran_parsing.Labels.ProcComponentAttrSpec.t
| ProcAttrSpec of Fortran_parsing.Labels.ProcAttrSpec.t
| InputItemList
| OutputItemList
| IoItemList
| IoLength
| Format of Fortran_parsing.Labels.Format.t
| IoImpliedDo
| IoImpliedDoControl of Fortran_parsing.Label_common.var
| Array of Fortran_parsing.Label_common.name
| EquivalenceSet
| NamelistGroup of Fortran_parsing.Label_common.name
| ObjectName of Fortran_parsing.Label_common.name
| DataStmtSet
| DataStmtValue
| DataImpliedDo
| DataIDoObject
| DataIDoObjectList
| DataStmtObjectList
| DataStmtValueList
| PrefixSpec of Fortran_parsing.Labels.PrefixSpec.t
| Prefix
| DummyArgNameList of Fortran_parsing.Label_common.name
| DummyArgList of Fortran_parsing.Label_common.name
| ActualArgSpecList of Fortran_parsing.Label_common.name
| Result of Fortran_parsing.Label_common.name
| AlternateReturnIndicator
| IntentSpec of Fortran_parsing.Labels.IntentSpec.t
| CaseSelector of Fortran_parsing.Labels.CaseSelector.t
| CaseValueRange of Fortran_parsing.Labels.CaseValueRange.t
| ForallHeader
| ForallTripletSpec of Fortran_parsing.Label_common.name
| ImplicitSpec
| LetterSpec of string * string option
| FormatSpecification
| FormatItem of Fortran_parsing.Labels.FormatItem.t
| AcImpliedDo
| AcImpliedDoControl of Fortran_parsing.Label_common.var
| StatVariable
| ErrmsgVariable
| SourceExpr
| MoldExpr
| CommonBlockName of Fortran_parsing.Label_common.name
| IntrinsicProcedureName of Fortran_parsing.Label_common.name
| LindaFormal
| LindaActual
| LindaLength
| LindaTypeof
| Variable
| PpMacroId of Fortran_parsing.Label_common.name
| PpMacroExpr of Fortran_parsing.Label_common.name
| PpMacroVariable of Fortran_parsing.Label_common.name
| PpMacroEntityDecl of Fortran_parsing.Label_common.name
| PpMacroObject of Fortran_parsing.Label_common.name
| StructureDecl of Fortran_parsing.Label_common.name option
| UnionDecl
| MapDecl
| RecordDecl of Fortran_parsing.Label_common.name
| RecordFieldRef of Fortran_parsing.Label_common.name
| EntityName of Fortran_parsing.Label_common.name
| DummyArgName of Fortran_parsing.Label_common.name
| ExternalName of Fortran_parsing.Label_common.name
| LanguageBindingSpec
| Suffix
| Fragment
| ModuleNatureIntrinsic
| ModuleNatureNonIntrinsic
| IfThenBlock
| ElseIfBlock
| ElseBlock
| CrayPointerSpec
| CaseBlock
| DoBlock
| Allocation of Fortran_parsing.Label_common.name
| AllocateShapeSpec
| AllocateShapeSpecList
| TypeBoundProcDecl of Fortran_parsing.Label_common.name * Fortran_parsing.Label_common.name option
| TypeBoundProcedurePart
| ProcedureDesignator of Fortran_parsing.Label_common.name
| ProcDecl of Fortran_parsing.Label_common.name
| TypeGuardBlock
| Association of Fortran_parsing.Label_common.name
| DeferredCoshapeSpec
| ExplicitCoshapeSpec
| DeferredCoshapeCoarray
| ExplicitCoshapeCoarray
| CodimensionDecl of Fortran_parsing.Label_common.name
| Enumerator of Fortran_parsing.Label_common.name
| EnumDef
| BoundsSpec
| BoundsRemapping
| BoundsSpecList
| BoundsRemappingList
| DataPointerObject of Fortran_parsing.Label_common.name
| AllocateCoshapeSpec
| AllocateCoarraySpec
| AcquiredLock
| ImageSelector
| AllImages
| WhereBlock
| SelectiveOp
| DefineFileSpec
| Options of string
| ApolloPointerSpec
| ProcName of Fortran_parsing.Label_common.name

val to_string : t -> string

val to_simple_string : t -> Fortran_parsing.Label_common.name

val to_tag : 
  ?strip:bool ->
  t ->
  string * (string * Fortran_parsing.Label_common.name) list

val has_value : t -> bool

val has_non_trivial_value : t -> bool

val has_non_trivial_tid : 'a -> bool

val get_name : ?strip:bool -> t -> Fortran_parsing.Label_common.name

val get_name_opt : t -> Fortran_parsing.Label_common.name option

val get_names : t -> Fortran_parsing.Label_common.name list

val get_label : t -> Fortran_parsing.Label_common.label

val get_var : t -> Fortran_parsing.Label_common.var

val get_var_opt : t -> Fortran_parsing.Label_common.var option

val is_error : t -> bool

val mklabeledstmt : 
  Fortran_parsing.Label_common.label ->
  Fortran_parsing.Labels.Stmt._t ->
  t

val mkstmt : Fortran_parsing.Labels.Stmt._t -> t

val mkambiguous_desig : Fortran_parsing.Label_common.name -> t

val mkambiguous_namedtuple : Fortran_parsing.Label_common.name -> t

val mkambiguous_tuple : unit -> t

val mkambiguous_subobject : unit -> t

val mkambiguous_triplet_or_range : unit -> t

val mkambiguous_first : unit -> t

val mkambiguous_second : unit -> t

val mkambiguous_data_stmt_constant : unit -> t

val mkambiguous_deferred : unit -> t

val mkambiguous_assumed : unit -> t

val mkambiguous_assumedsize : unit -> t

val mkambiguous_generic_spec_or_use_name : 
  Fortran_parsing.Label_common.name ->
  t

val mkocl : Fortran_parsing.Labels.OclDirective.t -> t

val mkxlfd : Fortran_parsing.Labels.Xlf.Directive.t -> t

val mkxlfa : Fortran_parsing.Labels.Xlf.Assertion.t -> t

val mkxlf : Fortran_parsing.Labels.Xlf.t -> t

val mkdecd : Fortran_parsing.Labels.Dec.Directive.t -> t

val mkdecc : Fortran_parsing.Labels.Dec.Clause.t -> t

val mkdeca : Fortran_parsing.Labels.Dec.Attribute.t -> t

val mkdec : Fortran_parsing.Labels.Dec.t -> t

val mkomp : Fortran_parsing.Labels.OmpDirective.t -> t

val mkompc : Fortran_parsing.Labels.OmpClause.t -> t

val mkacc : Fortran_parsing.Labels.AccDirective.t -> t

val mkaccc : Fortran_parsing.Labels.AccClause.t -> t

val mklinda : Fortran_parsing.Labels.LindaCall.t -> t

val access_spec_to_attr_spec : t -> t

val access_spec_to_type_attr_spec : t -> t

val access_spec_to_proc_attr_spec : t -> t

val type_spec_to_prefix_spec : t -> t

val relabstmt : t -> Fortran_parsing.Labels.Stmt._t -> t

val is_specification_part_construct : t -> bool

val is_execution_part_construct : t -> bool

val is_ambiguous_desig : t -> bool

val is_ambiguous_tuple : t -> bool

val is_ambiguous_triplet_or_range : t -> bool

val is_ambiguous_data_stmt_constant : t -> bool

val is_array_spec : t -> bool

val is_component_array_spec : t -> bool

val is_coarray_spec : t -> bool

val get_generic_name : t -> Fortran_parsing.Label_common.name

val is_subscript_triplet : t -> bool

val is_section_subscript_list : t -> bool

val is_stmt : t -> bool

val is_statement : t -> bool

val get_stmt_label : t -> Fortran_parsing.Label_common.label

val is_action_stmt : t -> bool

val is_type_decl_stmt : t -> bool

val is_do_stmt : t -> bool

val is_if_stmt : t -> bool

val is_arithmetic_if_stmt : t -> bool

val is_if_then_stmt : t -> bool

val is_else_if_stmt : t -> bool

val is_else_stmt : t -> bool

val is_end_if_stmt : t -> bool

val is_end_do_stmt : t -> bool

val is_constant : t -> bool

val is_var_name : t -> bool

val is_part_name : t -> bool

val is_entity_decl : t -> bool

val is_assignment_stmt : t -> bool

val get_external_subprogram_name : t -> Fortran_parsing.Label_common.name

val get_module_subprogram_name : t -> Fortran_parsing.Label_common.name

val get_value : t -> string

val get_category : t -> string

val is_xlf_directive : t -> bool

val is_directive : t -> bool

val is_pp_directive_branch : t -> bool

val is_pp_section : t -> bool

val is_pp_section_omp : t -> bool

val is_subroutine_stmt_head : t -> bool

val is_function_stmt_head : t -> bool

val anonymize : ?more:bool -> t -> t

exception Not_a_construct_head of t

val mk_endchk_x : 
  ?multi:bool ->
  (t -> bool) ->
  ('a -> t) ->
  t ->
  'a option ->
  t ->
  t option ->
  bool

val is_do_like_construct : t -> bool

val is_do_or_like_construct : t -> bool

val mk_endchk_loops : 
  ?multi:bool ->
  ('a -> t) ->
  t ->
  'a option ->
  t ->
  t option ->
  bool

val mk_endchk_assigns : 
  ?multi:bool ->
  ('a -> t) ->
  t ->
  'a option ->
  t ->
  t option ->
  bool

val omp_mk_endchk : Fortran_parsing.Labels.OmpDirective.t -> t -> 'a -> bool

val omp_mk_endchk_loops : 
  ?multi:bool ->
  t ->
  Fortran_parsing.Labels.OmpDirective.t option ->
  t ->
  t option ->
  bool

val omp_mk_endchk_assigns : 
  ?multi:bool ->
  t ->
  Fortran_parsing.Labels.OmpDirective.t option ->
  t ->
  t option ->
  bool

val omp_get_endchk_and_construct : 
  Fortran_parsing.Labels.OmpDirective.t ->
  (t -> t option -> bool) * Fortran_parsing.Labels.OmpConstruct.t

val acc_mk_endchk : Fortran_parsing.Labels.AccDirective.t -> t -> 'a -> bool

val acc_mk_endchk_loops : 
  ?multi:bool ->
  t ->
  Fortran_parsing.Labels.AccDirective.t option ->
  t ->
  t option ->
  bool

val acc_get_endchk_and_construct : 
  Fortran_parsing.Labels.AccDirective.t ->
  (t -> t option -> bool) * Fortran_parsing.Labels.AccConstruct.t

val get_endchk_and_construct : t -> (t -> t option -> bool) * t

val has_endchk : t -> bool

val to_short_string : ?ignore_identifiers_flag:bool -> t -> string

val strip : 'a -> 'a

val anonymize2 : t -> t

val anonymize3 : t -> t

module Annotation : sig ... end

type annotation = Annotation.t

val null_annotation : Annotation.t

val annotation_to_string : Annotation.spec list -> string

val is_hunk_boundary : 'a -> 'b -> bool

val forced_to_be_collapsible : 'a -> bool

val is_collapse_target : < no_collapse_flag : bool.. > -> t -> bool

val is_to_be_notified : t -> bool

val is_partition : t -> bool

val is_sequence : t -> bool

val is_ntuple : 'a -> bool

val is_boundary : t -> bool

val is_primary : t -> bool

val is_expr : t -> bool

val is_op : t -> bool

val is_scope_creating : 'a -> bool

val is_compatible : ?weak:bool -> 'a -> 'b -> bool

val is_order_insensitive : 'a -> bool

val quasi_eq : 'a -> 'b -> bool

val relabel_allowed : (t * t) -> bool

val move_disallowed : 'a -> bool

val is_common : 'a -> bool

val get_ident_use : t -> Fortran_parsing.Label_common.name

val to_char : 'a -> char

val has_names : t -> bool

val has_a_name : t -> bool

val is_named : t -> bool

val is_named_orig : t -> bool

val to_elem_data : 
  ?strip:bool ->
  ?afilt:(string -> bool) ->
  Astml.Loc.t ->
  t ->
  string * (string * string) list * string

val of_elem_data : 'a -> 'b -> 'c -> t

val getlab : < data : < _label : Obj.t.. >.. > -> t

val cannot_be_keyroot : < data : < _label : Obj.t.. >.. > -> bool

val is_int_literal : t -> bool

val is_real_literal : t -> bool

val is_string_literal : t -> bool

val is_phantom : t -> bool

val is_special : 'a -> bool

val is_pp_directive : t -> bool

val is_pp_define : t -> bool

val is_pp_include : t -> bool

val get_pp_include_path : t -> string

val is_ocl_directive : t -> bool

val is_omp_clause : t -> bool

val is_omp_directive : t -> bool

val is_omp_construct : t -> bool

val is_acc_clause : t -> bool

val is_acc_directive : t -> bool

val is_acc_construct : t -> bool

val is_dec_clause : t -> bool

val is_dec_directive : t -> bool

val is_program_unit : t -> bool

val is_program : t -> bool

val is_fragment : t -> bool

val is_execution_part : t -> bool

val is_subprogram_part : t -> bool

val is_external_subprogram : t -> bool

val is_main_program : t -> bool

val is_function : t -> bool

val is_ext_function : t -> bool

val is_int_function : t -> bool

val is_mod_function : t -> bool

val is_subroutine : t -> bool

val is_ext_subroutine : t -> bool

val is_int_subroutine : t -> bool

val is_mod_subroutine : t -> bool

val is_subprogram : t -> bool

val is_program_unit_or_fragment : t -> bool

val is_program_unit_or_subprogram : t -> bool

val is_module : t -> bool

val is_block_data : t -> bool

val is_case_construct : t -> bool

val is_do_construct : t -> bool

val is_forall_construct : t -> bool

val is_if_construct : t -> bool

val is_where_construct : t -> bool

val is_select_type_construct : t -> bool

val is_associate_construct : t -> bool

val is_block_construct : t -> bool

val is_critical_construct : t -> bool

val is_derived_type_def : t -> bool

val is_interface_block : t -> bool

val is_block : t -> bool

val is_ambiguous : t -> bool

val is_array_access : t -> bool

val is_if_then_block : t -> bool

val is_else_block : t -> bool

val is_else_if_block : t -> bool

val is_where_block : t -> bool

val is_case_block : t -> bool

val is_type_guard_block : t -> bool

val is_do_block : t -> bool

val is_pp_branch : t -> bool

val is_pp_branch_do : t -> bool

val is_pp_branch_if : t -> bool

val is_pp_branch_forall : t -> bool

val is_pp_branch_where : t -> bool

val is_pp_branch_select : t -> bool

val is_pp_branch_end_do : t -> bool

val is_pp_branch_end_if : t -> bool

val is_pp_branch_end_forall : t -> bool

val is_pp_branch_end_where : t -> bool

val is_pp_branch_end_select : t -> bool

val is_pp_section_ifdef : t -> bool

val is_pp_section_ifndef : t -> bool

val is_pp_section_if : t -> bool

val is_pp_section_elif : t -> bool

val is_pp_section_else : t -> bool

val is_container_unit : t -> bool

package diffast-langs-fortran