(TranslationUnit
    (SymbolTable
        1
        {
            template_02:
                (Program
                    (SymbolTable
                        8
                        {
                            change_positions_chr:
                                (Function
                                    (SymbolTable
                                        12
                                        {
                                            i:
                                                (Variable
                                                    12
                                                    i
                                                    []
                                                    Local
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                ),
                                            j:
                                                (Variable
                                                    12
                                                    j
                                                    []
                                                    Local
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                ),
                                            mask:
                                                (Variable
                                                    12
                                                    mask
                                                    []
                                                    ReturnVar
                                                    ()
                                                    ()
                                                    Default
                                                    (Allocatable
                                                        (Array
                                                            (Integer 4)
                                                            [(()
                                                            ())]
                                                            DescriptorArray
                                                        )
                                                    )
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                ),
                                            n:
                                                (Variable
                                                    12
                                                    n
                                                    []
                                                    Local
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                ),
                                            pos:
                                                (Variable
                                                    12
                                                    pos
                                                    []
                                                    Local
                                                    ()
                                                    ()
                                                    Default
                                                    (Allocatable
                                                        (Array
                                                            (Integer 4)
                                                            [(()
                                                            ())]
                                                            DescriptorArray
                                                        )
                                                    )
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                ),
                                            vec:
                                                (Variable
                                                    12
                                                    vec
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (Array
                                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                                        [(()
                                                        ())]
                                                        DescriptorArray
                                                    )
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                )
                                        })
                                    change_positions_chr
                                    (FunctionType
                                        [(Array
                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                            [(()
                                            ())]
                                            DescriptorArray
                                        )]
                                        (Allocatable
                                            (Array
                                                (Integer 4)
                                                [(()
                                                ())]
                                                DescriptorArray
                                            )
                                        )
                                        Source
                                        Implementation
                                        ()
                                        .false.
                                        .false.
                                        .false.
                                        .false.
                                        .false.
                                        []
                                        .false.
                                    )
                                    [~neq_intrinsic1]
                                    [(Var 12 vec)]
                                    [(Assignment
                                        (Var 12 n)
                                        (ArraySize
                                            (Var 12 vec)
                                            ()
                                            (Integer 4)
                                            ()
                                        )
                                        ()
                                        .false.
                                        .false.
                                    )
                                    (Allocate
                                        [((Var 12 pos)
                                        [((IntegerConstant 1 (Integer 4) Decimal)
                                        (Var 12 n))]
                                        ()
                                        ()
                                        ())]
                                        ()
                                        ()
                                        ()
                                    )
                                    (If
                                        ()
                                        (IntegerCompare
                                            (Var 12 n)
                                            Lt
                                            (IntegerConstant 1 (Integer 4) Decimal)
                                            (Logical 4)
                                            ()
                                        )
                                        [(Return)]
                                        []
                                    )
                                    (Assignment
                                        (Var 12 pos)
                                        (ArrayBroadcast
                                            (IntegerConstant 0 (Integer 4) Decimal)
                                            (IntrinsicArrayFunction
                                                Shape
                                                [(Var 12 pos)]
                                                0
                                                (Array
                                                    (Integer 4)
                                                    [((IntegerConstant 1 (Integer 4) Decimal)
                                                    (IntegerConstant 1 (Integer 4) Decimal))]
                                                    FixedSizeArray
                                                )
                                                ()
                                            )
                                            (Allocatable
                                                (Array
                                                    (Integer 4)
                                                    [(()
                                                    ())]
                                                    DescriptorArray
                                                )
                                            )
                                            ()
                                        )
                                        ()
                                        .false.
                                        .false.
                                    )
                                    (Assignment
                                        (ArrayItem
                                            (Var 12 pos)
                                            [(()
                                            (IntegerConstant 1 (Integer 4) Decimal)
                                            ())]
                                            (Integer 4)
                                            ColMajor
                                            ()
                                        )
                                        (IntegerConstant 1 (Integer 4) Decimal)
                                        ()
                                        .false.
                                        .false.
                                    )
                                    (Assignment
                                        (Var 12 j)
                                        (IntegerConstant 1 (Integer 4) Decimal)
                                        ()
                                        .false.
                                        .false.
                                    )
                                    (DoLoop
                                        ()
                                        ((Var 12 i)
                                        (IntegerConstant 2 (Integer 4) Decimal)
                                        (Var 12 n)
                                        ())
                                        [(If
                                            ()
                                            (FunctionCall
                                                8 ~neq_intrinsic1
                                                ()
                                                [((ArrayItem
                                                    (Var 12 vec)
                                                    [(()
                                                    (Var 12 i)
                                                    ())]
                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                                    ColMajor
                                                    ()
                                                ))
                                                ((ArrayItem
                                                    (Var 12 vec)
                                                    [(()
                                                    (IntegerBinOp
                                                        (Var 12 i)
                                                        Sub
                                                        (IntegerConstant 1 (Integer 4) Decimal)
                                                        (Integer 4)
                                                        ()
                                                    )
                                                    ())]
                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                                    ColMajor
                                                    ()
                                                ))]
                                                (Logical 4)
                                                ()
                                                ()
                                            )
                                            [(Assignment
                                                (Var 12 j)
                                                (IntegerBinOp
                                                    (Var 12 j)
                                                    Add
                                                    (IntegerConstant 1 (Integer 4) Decimal)
                                                    (Integer 4)
                                                    ()
                                                )
                                                ()
                                                .false.
                                                .false.
                                            )
                                            (Assignment
                                                (ArrayItem
                                                    (Var 12 pos)
                                                    [(()
                                                    (Var 12 j)
                                                    ())]
                                                    (Integer 4)
                                                    ColMajor
                                                    ()
                                                )
                                                (Var 12 i)
                                                ()
                                                .false.
                                                .false.
                                            )]
                                            []
                                        )]
                                        []
                                    )
                                    (Allocate
                                        [((Var 12 mask)
                                        [((IntegerConstant 1 (Integer 4) Decimal)
                                        (Var 12 j))]
                                        ()
                                        ()
                                        ())]
                                        ()
                                        ()
                                        ()
                                    )
                                    (DoLoop
                                        ()
                                        ((Var 12 i)
                                        (IntegerConstant 1 (Integer 4) Decimal)
                                        (Var 12 j)
                                        ())
                                        [(Assignment
                                            (ArrayItem
                                                (Var 12 mask)
                                                [(()
                                                (Var 12 i)
                                                ())]
                                                (Integer 4)
                                                ColMajor
                                                ()
                                            )
                                            (ArrayItem
                                                (Var 12 pos)
                                                [(()
                                                (Var 12 i)
                                                ())]
                                                (Integer 4)
                                                ColMajor
                                                ()
                                            )
                                            ()
                                            .false.
                                            .false.
                                        )]
                                        []
                                    )]
                                    (Var 12 mask)
                                    Public
                                    .true.
                                    .true.
                                    ()
                                ),
                            change_positions_int:
                                (Function
                                    (SymbolTable
                                        10
                                        {
                                            i:
                                                (Variable
                                                    10
                                                    i
                                                    []
                                                    Local
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                ),
                                            j:
                                                (Variable
                                                    10
                                                    j
                                                    []
                                                    Local
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                ),
                                            mask:
                                                (Variable
                                                    10
                                                    mask
                                                    []
                                                    ReturnVar
                                                    ()
                                                    ()
                                                    Default
                                                    (Allocatable
                                                        (Array
                                                            (Integer 4)
                                                            [(()
                                                            ())]
                                                            DescriptorArray
                                                        )
                                                    )
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                ),
                                            n:
                                                (Variable
                                                    10
                                                    n
                                                    []
                                                    Local
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                ),
                                            pos:
                                                (Variable
                                                    10
                                                    pos
                                                    []
                                                    Local
                                                    ()
                                                    ()
                                                    Default
                                                    (Allocatable
                                                        (Array
                                                            (Integer 4)
                                                            [(()
                                                            ())]
                                                            DescriptorArray
                                                        )
                                                    )
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                ),
                                            vec:
                                                (Variable
                                                    10
                                                    vec
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (Array
                                                        (Integer 4)
                                                        [(()
                                                        ())]
                                                        DescriptorArray
                                                    )
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                )
                                        })
                                    change_positions_int
                                    (FunctionType
                                        [(Array
                                            (Integer 4)
                                            [(()
                                            ())]
                                            DescriptorArray
                                        )]
                                        (Allocatable
                                            (Array
                                                (Integer 4)
                                                [(()
                                                ())]
                                                DescriptorArray
                                            )
                                        )
                                        Source
                                        Implementation
                                        ()
                                        .false.
                                        .false.
                                        .false.
                                        .false.
                                        .false.
                                        []
                                        .false.
                                    )
                                    [~neq_intrinsic]
                                    [(Var 10 vec)]
                                    [(Assignment
                                        (Var 10 n)
                                        (ArraySize
                                            (Var 10 vec)
                                            ()
                                            (Integer 4)
                                            ()
                                        )
                                        ()
                                        .false.
                                        .false.
                                    )
                                    (Allocate
                                        [((Var 10 pos)
                                        [((IntegerConstant 1 (Integer 4) Decimal)
                                        (Var 10 n))]
                                        ()
                                        ()
                                        ())]
                                        ()
                                        ()
                                        ()
                                    )
                                    (If
                                        ()
                                        (IntegerCompare
                                            (Var 10 n)
                                            Lt
                                            (IntegerConstant 1 (Integer 4) Decimal)
                                            (Logical 4)
                                            ()
                                        )
                                        [(Return)]
                                        []
                                    )
                                    (Assignment
                                        (Var 10 pos)
                                        (ArrayBroadcast
                                            (IntegerConstant 0 (Integer 4) Decimal)
                                            (IntrinsicArrayFunction
                                                Shape
                                                [(Var 10 pos)]
                                                0
                                                (Array
                                                    (Integer 4)
                                                    [((IntegerConstant 1 (Integer 4) Decimal)
                                                    (IntegerConstant 1 (Integer 4) Decimal))]
                                                    FixedSizeArray
                                                )
                                                ()
                                            )
                                            (Allocatable
                                                (Array
                                                    (Integer 4)
                                                    [(()
                                                    ())]
                                                    DescriptorArray
                                                )
                                            )
                                            ()
                                        )
                                        ()
                                        .false.
                                        .false.
                                    )
                                    (Assignment
                                        (ArrayItem
                                            (Var 10 pos)
                                            [(()
                                            (IntegerConstant 1 (Integer 4) Decimal)
                                            ())]
                                            (Integer 4)
                                            ColMajor
                                            ()
                                        )
                                        (IntegerConstant 1 (Integer 4) Decimal)
                                        ()
                                        .false.
                                        .false.
                                    )
                                    (Assignment
                                        (Var 10 j)
                                        (IntegerConstant 1 (Integer 4) Decimal)
                                        ()
                                        .false.
                                        .false.
                                    )
                                    (DoLoop
                                        ()
                                        ((Var 10 i)
                                        (IntegerConstant 2 (Integer 4) Decimal)
                                        (Var 10 n)
                                        ())
                                        [(If
                                            ()
                                            (FunctionCall
                                                8 ~neq_intrinsic
                                                ()
                                                [((ArrayItem
                                                    (Var 10 vec)
                                                    [(()
                                                    (Var 10 i)
                                                    ())]
                                                    (Integer 4)
                                                    ColMajor
                                                    ()
                                                ))
                                                ((ArrayItem
                                                    (Var 10 vec)
                                                    [(()
                                                    (IntegerBinOp
                                                        (Var 10 i)
                                                        Sub
                                                        (IntegerConstant 1 (Integer 4) Decimal)
                                                        (Integer 4)
                                                        ()
                                                    )
                                                    ())]
                                                    (Integer 4)
                                                    ColMajor
                                                    ()
                                                ))]
                                                (Logical 4)
                                                ()
                                                ()
                                            )
                                            [(Assignment
                                                (Var 10 j)
                                                (IntegerBinOp
                                                    (Var 10 j)
                                                    Add
                                                    (IntegerConstant 1 (Integer 4) Decimal)
                                                    (Integer 4)
                                                    ()
                                                )
                                                ()
                                                .false.
                                                .false.
                                            )
                                            (Assignment
                                                (ArrayItem
                                                    (Var 10 pos)
                                                    [(()
                                                    (Var 10 j)
                                                    ())]
                                                    (Integer 4)
                                                    ColMajor
                                                    ()
                                                )
                                                (Var 10 i)
                                                ()
                                                .false.
                                                .false.
                                            )]
                                            []
                                        )]
                                        []
                                    )
                                    (Allocate
                                        [((Var 10 mask)
                                        [((IntegerConstant 1 (Integer 4) Decimal)
                                        (Var 10 j))]
                                        ()
                                        ()
                                        ())]
                                        ()
                                        ()
                                        ()
                                    )
                                    (DoLoop
                                        ()
                                        ((Var 10 i)
                                        (IntegerConstant 1 (Integer 4) Decimal)
                                        (Var 10 j)
                                        ())
                                        [(Assignment
                                            (ArrayItem
                                                (Var 10 mask)
                                                [(()
                                                (Var 10 i)
                                                ())]
                                                (Integer 4)
                                                ColMajor
                                                ()
                                            )
                                            (ArrayItem
                                                (Var 10 pos)
                                                [(()
                                                (Var 10 i)
                                                ())]
                                                (Integer 4)
                                                ColMajor
                                                ()
                                            )
                                            ()
                                            .false.
                                            .false.
                                        )]
                                        []
                                    )]
                                    (Var 10 mask)
                                    Public
                                    .true.
                                    .true.
                                    ()
                                ),
                            change_positions_tmpl:
                                (ExternalSymbol
                                    8
                                    change_positions_tmpl
                                    2 change_positions_tmpl
                                    template_02_m
                                    []
                                    change_positions_tmpl
                                    Public
                                ),
                            eq:
                                (ExternalSymbol
                                    8
                                    eq
                                    2 eq
                                    template_02_m
                                    []
                                    eq
                                    Public
                                ),
                            ~neq:
                                (CustomOperator
                                    8
                                    ~neq
                                    [8 ~neq_intrinsic
                                    8 ~neq_intrinsic1]
                                    Public
                                ),
                            ~neq_intrinsic:
                                (Function
                                    (SymbolTable
                                        9
                                        {
                                            arg0:
                                                (Variable
                                                    9
                                                    arg0
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                ),
                                            arg1:
                                                (Variable
                                                    9
                                                    arg1
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                ),
                                            ret:
                                                (Variable
                                                    9
                                                    ret
                                                    []
                                                    ReturnVar
                                                    ()
                                                    ()
                                                    Default
                                                    (Logical 4)
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                )
                                        })
                                    ~neq_intrinsic
                                    (FunctionType
                                        [(Integer 4)
                                        (Integer 4)]
                                        (Logical 4)
                                        Source
                                        Implementation
                                        ()
                                        .false.
                                        .false.
                                        .false.
                                        .false.
                                        .false.
                                        []
                                        .true.
                                    )
                                    []
                                    [(Var 9 arg0)
                                    (Var 9 arg1)]
                                    [(Assignment
                                        (Var 9 ret)
                                        (IntegerCompare
                                            (Var 9 arg0)
                                            NotEq
                                            (Var 9 arg1)
                                            (Logical 4)
                                            ()
                                        )
                                        ()
                                        .false.
                                        .false.
                                    )]
                                    (Var 9 ret)
                                    Public
                                    .true.
                                    .true.
                                    ()
                                ),
                            ~neq_intrinsic1:
                                (Function
                                    (SymbolTable
                                        11
                                        {
                                            arg0:
                                                (Variable
                                                    11
                                                    arg0
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                ),
                                            arg1:
                                                (Variable
                                                    11
                                                    arg1
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                ),
                                            ret:
                                                (Variable
                                                    11
                                                    ret
                                                    []
                                                    ReturnVar
                                                    ()
                                                    ()
                                                    Default
                                                    (Logical 4)
                                                    ()
                                                    Source
                                                    Private
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                )
                                        })
                                    ~neq_intrinsic1
                                    (FunctionType
                                        [(String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)]
                                        (Logical 4)
                                        Source
                                        Implementation
                                        ()
                                        .false.
                                        .false.
                                        .false.
                                        .false.
                                        .false.
                                        []
                                        .true.
                                    )
                                    []
                                    [(Var 11 arg0)
                                    (Var 11 arg1)]
                                    [(Assignment
                                        (Var 11 ret)
                                        (StringCompare
                                            (Var 11 arg0)
                                            NotEq
                                            (Var 11 arg1)
                                            (Logical 4)
                                            ()
                                        )
                                        ()
                                        .false.
                                        .false.
                                    )]
                                    (Var 11 ret)
                                    Public
                                    .true.
                                    .true.
                                    ()
                                )
                        })
                    template_02
                    [template_02_m]
                    [(Print
                        (StringFormat
                            ()
                            [(FunctionCall
                                8 change_positions_int
                                ()
                                [((ArrayPhysicalCast
                                    (ArrayConstant
                                        28
                                        [3, 3, 6, ...., 2, 2, 1]
                                        (Array
                                            (Integer 4)
                                            [((IntegerConstant 1 (Integer 4) Decimal)
                                            (IntegerConstant 7 (Integer 4) Decimal))]
                                            FixedSizeArray
                                        )
                                        ColMajor
                                    )
                                    FixedSizeArray
                                    DescriptorArray
                                    (Array
                                        (Integer 4)
                                        [((IntegerConstant 1 (Integer 4) Decimal)
                                        (IntegerConstant 7 (Integer 4) Decimal))]
                                        DescriptorArray
                                    )
                                    ()
                                ))]
                                (Allocatable
                                    (Array
                                        (Integer 4)
                                        [(()
                                        ())]
                                        DescriptorArray
                                    )
                                )
                                ()
                                ()
                            )]
                            FormatFortran
                            (Allocatable
                                (String 1 () DeferredLength DescriptorString)
                            )
                            ()
                        )
                    )
                    (Print
                        (StringFormat
                            ()
                            [(FunctionCall
                                8 change_positions_chr
                                ()
                                [((ArrayPhysicalCast
                                    (ArrayConstant
                                        7
                                        ["a", "a", "b", ...., "p", "p", "o"]
                                        (Array
                                            (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                            [((IntegerConstant 1 (Integer 4) Decimal)
                                            (IntegerConstant 7 (Integer 4) Decimal))]
                                            PointerArray
                                        )
                                        ColMajor
                                    )
                                    PointerArray
                                    DescriptorArray
                                    (Array
                                        (String 1 (IntegerConstant 1 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                        [((IntegerConstant 1 (Integer 4) Decimal)
                                        (IntegerConstant 7 (Integer 4) Decimal))]
                                        DescriptorArray
                                    )
                                    ()
                                ))]
                                (Allocatable
                                    (Array
                                        (Integer 4)
                                        [(()
                                        ())]
                                        DescriptorArray
                                    )
                                )
                                ()
                                ()
                            )]
                            FormatFortran
                            (Allocatable
                                (String 1 () DeferredLength DescriptorString)
                            )
                            ()
                        )
                    )]
                ),
            template_02_m:
                (Module
                    (SymbolTable
                        2
                        {
                            change_positions_tmpl:
                                (Template
                                    (SymbolTable
                                        5
                                        {
                                            change_positions_t:
                                                (Function
                                                    (SymbolTable
                                                        7
                                                        {
                                                            i:
                                                                (Variable
                                                                    7
                                                                    i
                                                                    []
                                                                    Local
                                                                    ()
                                                                    ()
                                                                    Default
                                                                    (Integer 4)
                                                                    ()
                                                                    Source
                                                                    Private
                                                                    Required
                                                                    .false.
                                                                    .false.
                                                                    .false.
                                                                    ()
                                                                    .false.
                                                                    .false.
                                                                    NotMethod
                                                                    ()
                                                                ),
                                                            j:
                                                                (Variable
                                                                    7
                                                                    j
                                                                    []
                                                                    Local
                                                                    ()
                                                                    ()
                                                                    Default
                                                                    (Integer 4)
                                                                    ()
                                                                    Source
                                                                    Private
                                                                    Required
                                                                    .false.
                                                                    .false.
                                                                    .false.
                                                                    ()
                                                                    .false.
                                                                    .false.
                                                                    NotMethod
                                                                    ()
                                                                ),
                                                            mask:
                                                                (Variable
                                                                    7
                                                                    mask
                                                                    []
                                                                    ReturnVar
                                                                    ()
                                                                    ()
                                                                    Default
                                                                    (Allocatable
                                                                        (Array
                                                                            (Integer 4)
                                                                            [(()
                                                                            ())]
                                                                            DescriptorArray
                                                                        )
                                                                    )
                                                                    ()
                                                                    Source
                                                                    Private
                                                                    Required
                                                                    .false.
                                                                    .false.
                                                                    .false.
                                                                    ()
                                                                    .false.
                                                                    .false.
                                                                    NotMethod
                                                                    ()
                                                                ),
                                                            n:
                                                                (Variable
                                                                    7
                                                                    n
                                                                    []
                                                                    Local
                                                                    ()
                                                                    ()
                                                                    Default
                                                                    (Integer 4)
                                                                    ()
                                                                    Source
                                                                    Private
                                                                    Required
                                                                    .false.
                                                                    .false.
                                                                    .false.
                                                                    ()
                                                                    .false.
                                                                    .false.
                                                                    NotMethod
                                                                    ()
                                                                ),
                                                            pos:
                                                                (Variable
                                                                    7
                                                                    pos
                                                                    []
                                                                    Local
                                                                    ()
                                                                    ()
                                                                    Default
                                                                    (Allocatable
                                                                        (Array
                                                                            (Integer 4)
                                                                            [(()
                                                                            ())]
                                                                            DescriptorArray
                                                                        )
                                                                    )
                                                                    ()
                                                                    Source
                                                                    Private
                                                                    Required
                                                                    .false.
                                                                    .false.
                                                                    .false.
                                                                    ()
                                                                    .false.
                                                                    .false.
                                                                    NotMethod
                                                                    ()
                                                                ),
                                                            vec:
                                                                (Variable
                                                                    7
                                                                    vec
                                                                    []
                                                                    In
                                                                    ()
                                                                    ()
                                                                    Default
                                                                    (Array
                                                                        (TypeParameter
                                                                            t
                                                                        )
                                                                        [(()
                                                                        ())]
                                                                        DescriptorArray
                                                                    )
                                                                    ()
                                                                    Source
                                                                    Private
                                                                    Required
                                                                    .false.
                                                                    .false.
                                                                    .false.
                                                                    ()
                                                                    .false.
                                                                    .false.
                                                                    NotMethod
                                                                    ()
                                                                )
                                                        })
                                                    change_positions_t
                                                    (FunctionType
                                                        [(Array
                                                            (TypeParameter
                                                                t
                                                            )
                                                            [(()
                                                            ())]
                                                            DescriptorArray
                                                        )]
                                                        (Allocatable
                                                            (Array
                                                                (Integer 4)
                                                                [(()
                                                                ())]
                                                                DescriptorArray
                                                            )
                                                        )
                                                        Source
                                                        Implementation
                                                        ()
                                                        .false.
                                                        .false.
                                                        .false.
                                                        .false.
                                                        .false.
                                                        []
                                                        .false.
                                                    )
                                                    [ne]
                                                    [(Var 7 vec)]
                                                    [(Assignment
                                                        (Var 7 n)
                                                        (ArraySize
                                                            (Var 7 vec)
                                                            ()
                                                            (Integer 4)
                                                            ()
                                                        )
                                                        ()
                                                        .false.
                                                        .false.
                                                    )
                                                    (Allocate
                                                        [((Var 7 pos)
                                                        [((IntegerConstant 1 (Integer 4) Decimal)
                                                        (Var 7 n))]
                                                        ()
                                                        ()
                                                        ())]
                                                        ()
                                                        ()
                                                        ()
                                                    )
                                                    (If
                                                        ()
                                                        (IntegerCompare
                                                            (Var 7 n)
                                                            Lt
                                                            (IntegerConstant 1 (Integer 4) Decimal)
                                                            (Logical 4)
                                                            ()
                                                        )
                                                        [(Return)]
                                                        []
                                                    )
                                                    (Assignment
                                                        (Var 7 pos)
                                                        (ArrayBroadcast
                                                            (IntegerConstant 0 (Integer 4) Decimal)
                                                            (IntrinsicArrayFunction
                                                                Shape
                                                                [(Var 7 pos)]
                                                                0
                                                                (Array
                                                                    (Integer 4)
                                                                    [((IntegerConstant 1 (Integer 4) Decimal)
                                                                    (IntegerConstant 1 (Integer 4) Decimal))]
                                                                    FixedSizeArray
                                                                )
                                                                ()
                                                            )
                                                            (Allocatable
                                                                (Array
                                                                    (Integer 4)
                                                                    [(()
                                                                    ())]
                                                                    DescriptorArray
                                                                )
                                                            )
                                                            ()
                                                        )
                                                        ()
                                                        .false.
                                                        .false.
                                                    )
                                                    (Assignment
                                                        (ArrayItem
                                                            (Var 7 pos)
                                                            [(()
                                                            (IntegerConstant 1 (Integer 4) Decimal)
                                                            ())]
                                                            (Integer 4)
                                                            ColMajor
                                                            ()
                                                        )
                                                        (IntegerConstant 1 (Integer 4) Decimal)
                                                        ()
                                                        .false.
                                                        .false.
                                                    )
                                                    (Assignment
                                                        (Var 7 j)
                                                        (IntegerConstant 1 (Integer 4) Decimal)
                                                        ()
                                                        .false.
                                                        .false.
                                                    )
                                                    (DoLoop
                                                        ()
                                                        ((Var 7 i)
                                                        (IntegerConstant 2 (Integer 4) Decimal)
                                                        (Var 7 n)
                                                        ())
                                                        [(If
                                                            ()
                                                            (FunctionCall
                                                                5 ne
                                                                ()
                                                                [((ArrayItem
                                                                    (Var 7 vec)
                                                                    [(()
                                                                    (Var 7 i)
                                                                    ())]
                                                                    (TypeParameter
                                                                        t
                                                                    )
                                                                    ColMajor
                                                                    ()
                                                                ))
                                                                ((ArrayItem
                                                                    (Var 7 vec)
                                                                    [(()
                                                                    (IntegerBinOp
                                                                        (Var 7 i)
                                                                        Sub
                                                                        (IntegerConstant 1 (Integer 4) Decimal)
                                                                        (Integer 4)
                                                                        ()
                                                                    )
                                                                    ())]
                                                                    (TypeParameter
                                                                        t
                                                                    )
                                                                    ColMajor
                                                                    ()
                                                                ))]
                                                                (Logical 4)
                                                                ()
                                                                ()
                                                            )
                                                            [(Assignment
                                                                (Var 7 j)
                                                                (IntegerBinOp
                                                                    (Var 7 j)
                                                                    Add
                                                                    (IntegerConstant 1 (Integer 4) Decimal)
                                                                    (Integer 4)
                                                                    ()
                                                                )
                                                                ()
                                                                .false.
                                                                .false.
                                                            )
                                                            (Assignment
                                                                (ArrayItem
                                                                    (Var 7 pos)
                                                                    [(()
                                                                    (Var 7 j)
                                                                    ())]
                                                                    (Integer 4)
                                                                    ColMajor
                                                                    ()
                                                                )
                                                                (Var 7 i)
                                                                ()
                                                                .false.
                                                                .false.
                                                            )]
                                                            []
                                                        )]
                                                        []
                                                    )
                                                    (Allocate
                                                        [((Var 7 mask)
                                                        [((IntegerConstant 1 (Integer 4) Decimal)
                                                        (Var 7 j))]
                                                        ()
                                                        ()
                                                        ())]
                                                        ()
                                                        ()
                                                        ()
                                                    )
                                                    (DoLoop
                                                        ()
                                                        ((Var 7 i)
                                                        (IntegerConstant 1 (Integer 4) Decimal)
                                                        (Var 7 j)
                                                        ())
                                                        [(Assignment
                                                            (ArrayItem
                                                                (Var 7 mask)
                                                                [(()
                                                                (Var 7 i)
                                                                ())]
                                                                (Integer 4)
                                                                ColMajor
                                                                ()
                                                            )
                                                            (ArrayItem
                                                                (Var 7 pos)
                                                                [(()
                                                                (Var 7 i)
                                                                ())]
                                                                (Integer 4)
                                                                ColMajor
                                                                ()
                                                            )
                                                            ()
                                                            .false.
                                                            .false.
                                                        )]
                                                        []
                                                    )]
                                                    (Var 7 mask)
                                                    Public
                                                    .true.
                                                    .true.
                                                    ()
                                                ),
                                            ne:
                                                (Function
                                                    (SymbolTable
                                                        6
                                                        {
                                                            lhs:
                                                                (Variable
                                                                    6
                                                                    lhs
                                                                    []
                                                                    In
                                                                    ()
                                                                    ()
                                                                    Default
                                                                    (TypeParameter
                                                                        t
                                                                    )
                                                                    ()
                                                                    Source
                                                                    Public
                                                                    Required
                                                                    .false.
                                                                    .false.
                                                                    .false.
                                                                    ()
                                                                    .false.
                                                                    .false.
                                                                    NotMethod
                                                                    ()
                                                                ),
                                                            ne:
                                                                (Variable
                                                                    6
                                                                    ne
                                                                    []
                                                                    ReturnVar
                                                                    ()
                                                                    ()
                                                                    Default
                                                                    (Logical 4)
                                                                    ()
                                                                    Source
                                                                    Public
                                                                    Required
                                                                    .false.
                                                                    .false.
                                                                    .false.
                                                                    ()
                                                                    .false.
                                                                    .false.
                                                                    NotMethod
                                                                    ()
                                                                ),
                                                            rhs:
                                                                (Variable
                                                                    6
                                                                    rhs
                                                                    []
                                                                    In
                                                                    ()
                                                                    ()
                                                                    Default
                                                                    (TypeParameter
                                                                        t
                                                                    )
                                                                    ()
                                                                    Source
                                                                    Public
                                                                    Required
                                                                    .false.
                                                                    .false.
                                                                    .false.
                                                                    ()
                                                                    .false.
                                                                    .false.
                                                                    NotMethod
                                                                    ()
                                                                )
                                                        })
                                                    ne
                                                    (FunctionType
                                                        [(TypeParameter
                                                            t
                                                        )
                                                        (TypeParameter
                                                            t
                                                        )]
                                                        (Logical 4)
                                                        Source
                                                        Implementation
                                                        ()
                                                        .false.
                                                        .false.
                                                        .false.
                                                        .false.
                                                        .false.
                                                        []
                                                        .true.
                                                    )
                                                    []
                                                    [(Var 6 lhs)
                                                    (Var 6 rhs)]
                                                    []
                                                    (Var 6 ne)
                                                    Public
                                                    .true.
                                                    .true.
                                                    ()
                                                ),
                                            t:
                                                (Variable
                                                    5
                                                    t
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (TypeParameter
                                                        t
                                                    )
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                )
                                        })
                                    change_positions_tmpl
                                    [t
                                    ne]
                                    [(Require
                                        eq
                                        [t
                                        ne]
                                    )]
                                ),
                            eq:
                                (Requirement
                                    (SymbolTable
                                        3
                                        {
                                            ne:
                                                (Function
                                                    (SymbolTable
                                                        4
                                                        {
                                                            lhs:
                                                                (Variable
                                                                    4
                                                                    lhs
                                                                    []
                                                                    In
                                                                    ()
                                                                    ()
                                                                    Default
                                                                    (TypeParameter
                                                                        t
                                                                    )
                                                                    ()
                                                                    Source
                                                                    Public
                                                                    Required
                                                                    .false.
                                                                    .false.
                                                                    .false.
                                                                    ()
                                                                    .false.
                                                                    .false.
                                                                    NotMethod
                                                                    ()
                                                                ),
                                                            ne:
                                                                (Variable
                                                                    4
                                                                    ne
                                                                    []
                                                                    ReturnVar
                                                                    ()
                                                                    ()
                                                                    Default
                                                                    (Logical 4)
                                                                    ()
                                                                    Source
                                                                    Public
                                                                    Required
                                                                    .false.
                                                                    .false.
                                                                    .false.
                                                                    ()
                                                                    .false.
                                                                    .false.
                                                                    NotMethod
                                                                    ()
                                                                ),
                                                            rhs:
                                                                (Variable
                                                                    4
                                                                    rhs
                                                                    []
                                                                    In
                                                                    ()
                                                                    ()
                                                                    Default
                                                                    (TypeParameter
                                                                        t
                                                                    )
                                                                    ()
                                                                    Source
                                                                    Public
                                                                    Required
                                                                    .false.
                                                                    .false.
                                                                    .false.
                                                                    ()
                                                                    .false.
                                                                    .false.
                                                                    NotMethod
                                                                    ()
                                                                )
                                                        })
                                                    ne
                                                    (FunctionType
                                                        [(TypeParameter
                                                            t
                                                        )
                                                        (TypeParameter
                                                            t
                                                        )]
                                                        (Logical 4)
                                                        Source
                                                        Implementation
                                                        ()
                                                        .false.
                                                        .false.
                                                        .false.
                                                        .false.
                                                        .false.
                                                        []
                                                        .true.
                                                    )
                                                    []
                                                    [(Var 4 lhs)
                                                    (Var 4 rhs)]
                                                    []
                                                    (Var 4 ne)
                                                    Public
                                                    .true.
                                                    .true.
                                                    ()
                                                ),
                                            t:
                                                (Variable
                                                    3
                                                    t
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (TypeParameter
                                                        t
                                                    )
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                    .false.
                                                    ()
                                                    .false.
                                                    .false.
                                                    NotMethod
                                                    ()
                                                )
                                        })
                                    eq
                                    [t
                                    ne]
                                    []
                                )
                        })
                    template_02_m
                    ()
                    [template_02_m]
                    .false.
                    .false.
                    .false.
                )
        })
    []
)
