(TranslationUnit
    (SymbolTable
        1
        {
            stdlib_strings_use:
                (Program
                    (SymbolTable
                        14
                        {
                            char:
                                (ExternalSymbol
                                    14
                                    char
                                    2 char
                                    string_19_stdlib_string_type
                                    []
                                    char
                                    Public
                                ),
                            char_string:
                                (ExternalSymbol
                                    14
                                    char_string
                                    2 char_string
                                    string_19_stdlib_string_type
                                    []
                                    char_string
                                    Public
                                ),
                            compute_lps:
                                (ExternalSymbol
                                    14
                                    compute_lps
                                    6 compute_lps
                                    string_19_stdlib_strings
                                    []
                                    compute_lps
                                    Public
                                ),
                            compute_lps_use:
                                (ExternalSymbol
                                    14
                                    compute_lps_use
                                    6 compute_lps_use
                                    string_19_stdlib_strings
                                    []
                                    compute_lps_use
                                    Public
                                ),
                            compute_lps_use1:
                                (ExternalSymbol
                                    14
                                    compute_lps_use1
                                    6 compute_lps_use1
                                    string_19_stdlib_strings
                                    []
                                    compute_lps_use1
                                    Public
                                ),
                            len:
                                (ExternalSymbol
                                    14
                                    len
                                    2 len
                                    string_19_stdlib_string_type
                                    []
                                    len
                                    Public
                                ),
                            len_string:
                                (ExternalSymbol
                                    14
                                    len_string
                                    2 len_string
                                    string_19_stdlib_string_type
                                    []
                                    len_string
                                    Public
                                ),
                            padl:
                                (ExternalSymbol
                                    14
                                    padl
                                    6 padl
                                    string_19_stdlib_strings
                                    []
                                    padl
                                    Public
                                ),
                            padl_char_default:
                                (ExternalSymbol
                                    14
                                    padl_char_default
                                    6 padl_char_default
                                    string_19_stdlib_strings
                                    []
                                    padl_char_default
                                    Public
                                ),
                            padl_char_pad_with:
                                (ExternalSymbol
                                    14
                                    padl_char_pad_with
                                    6 padl_char_pad_with
                                    string_19_stdlib_strings
                                    []
                                    padl_char_pad_with
                                    Public
                                ),
                            padl_string_default:
                                (ExternalSymbol
                                    14
                                    padl_string_default
                                    6 padl_string_default
                                    string_19_stdlib_strings
                                    []
                                    padl_string_default
                                    Public
                                ),
                            padl_string_pad_with:
                                (ExternalSymbol
                                    14
                                    padl_string_pad_with
                                    6 padl_string_pad_with
                                    string_19_stdlib_strings
                                    []
                                    padl_string_pad_with
                                    Public
                                ),
                            string_type:
                                (ExternalSymbol
                                    14
                                    string_type
                                    2 string_type
                                    string_19_stdlib_string_type
                                    []
                                    string_type
                                    Public
                                )
                        })
                    stdlib_strings_use
                    [string_19_stdlib_strings]
                    []
                ),
            string_19_stdlib_string_type:
                (Module
                    (SymbolTable
                        2
                        {
                            char:
                                (GenericProcedure
                                    2
                                    char
                                    [2 char_string]
                                    Public
                                ),
                            char_string:
                                (Function
                                    (SymbolTable
                                        5
                                        {
                                            character_string:
                                                (Variable
                                                    5
                                                    character_string
                                                    [string]
                                                    ReturnVar
                                                    ()
                                                    ()
                                                    Default
                                                    (String 1 -3 (FunctionCall
                                                        2 len_string
                                                        2 len
                                                        [((Var 5 string))]
                                                        (Integer 4)
                                                        ()
                                                        ()
                                                    ) PointerString)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            string:
                                                (Variable
                                                    5
                                                    string
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (StructType
                                                        2 string_type
                                                    )
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                )
                                        })
                                    char_string
                                    (FunctionType
                                        [(StructType
                                            2 string_type
                                        )]
                                        (String 1 -3 (FunctionCall
                                            2 len_string
                                            2 len
                                            [((FunctionParam
                                                0
                                                (StructType
                                                    2 string_type
                                                )
                                                ()
                                            ))]
                                            (Integer 4)
                                            ()
                                            ()
                                        ) PointerString)
                                        Source
                                        Implementation
                                        ()
                                        .false.
                                        .true.
                                        .false.
                                        .false.
                                        .false.
                                        []
                                        .false.
                                    )
                                    [len_string]
                                    [(Var 5 string)]
                                    []
                                    (Var 5 character_string)
                                    Public
                                    .false.
                                    .false.
                                    ()
                                ),
                            len:
                                (GenericProcedure
                                    2
                                    len
                                    [2 len_string]
                                    Public
                                ),
                            len_string:
                                (Function
                                    (SymbolTable
                                        4
                                        {
                                            length:
                                                (Variable
                                                    4
                                                    length
                                                    []
                                                    ReturnVar
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            string:
                                                (Variable
                                                    4
                                                    string
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (StructType
                                                        2 string_type
                                                    )
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                )
                                        })
                                    len_string
                                    (FunctionType
                                        [(StructType
                                            2 string_type
                                        )]
                                        (Integer 4)
                                        Source
                                        Implementation
                                        ()
                                        .true.
                                        .false.
                                        .false.
                                        .false.
                                        .false.
                                        []
                                        .false.
                                    )
                                    []
                                    [(Var 4 string)]
                                    []
                                    (Var 4 length)
                                    Public
                                    .false.
                                    .false.
                                    ()
                                ),
                            string_type:
                                (Struct
                                    (SymbolTable
                                        3
                                        {
                                            raw:
                                                (Variable
                                                    3
                                                    raw
                                                    []
                                                    Local
                                                    ()
                                                    ()
                                                    Default
                                                    (Allocatable
                                                        (String 1 -2 () DescriptorString)
                                                    )
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                )
                                        })
                                    string_type
                                    []
                                    [raw]
                                    Source
                                    Public
                                    .false.
                                    .false.
                                    []
                                    ()
                                    ()
                                )
                        })
                    string_19_stdlib_string_type
                    []
                    .false.
                    .false.
                ),
            string_19_stdlib_strings:
                (Module
                    (SymbolTable
                        6
                        {
                            char:
                                (ExternalSymbol
                                    6
                                    char
                                    2 char
                                    string_19_stdlib_string_type
                                    []
                                    char
                                    Public
                                ),
                            char_string:
                                (ExternalSymbol
                                    6
                                    char_string
                                    2 char_string
                                    string_19_stdlib_string_type
                                    []
                                    char_string
                                    Public
                                ),
                            compute_lps:
                                (Function
                                    (SymbolTable
                                        7
                                        {
                                            lps_array:
                                                (Variable
                                                    7
                                                    lps_array
                                                    [string]
                                                    ReturnVar
                                                    ()
                                                    ()
                                                    Default
                                                    (Array
                                                        (Integer 4)
                                                        [((IntegerConstant 1 (Integer 4) Decimal)
                                                        (StringLen
                                                            (Var 7 string)
                                                            (Integer 4)
                                                            ()
                                                        ))]
                                                        PointerToDataArray
                                                    )
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            string:
                                                (Variable
                                                    7
                                                    string
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (String 1 -1 () PointerString)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                )
                                        })
                                    compute_lps
                                    (FunctionType
                                        [(String 1 -1 () PointerString)]
                                        (Array
                                            (Integer 4)
                                            [((IntegerConstant 1 (Integer 4) Decimal)
                                            (StringLen
                                                (FunctionParam
                                                    0
                                                    (String 1 -1 () PointerString)
                                                    ()
                                                )
                                                (Integer 4)
                                                ()
                                            ))]
                                            PointerToDataArray
                                        )
                                        Source
                                        Implementation
                                        ()
                                        .false.
                                        .true.
                                        .false.
                                        .false.
                                        .false.
                                        []
                                        .false.
                                    )
                                    []
                                    [(Var 7 string)]
                                    []
                                    (Var 7 lps_array)
                                    Public
                                    .false.
                                    .false.
                                    ()
                                ),
                            compute_lps_use:
                                (Function
                                    (SymbolTable
                                        8
                                        {
                                            l:
                                                (Variable
                                                    8
                                                    l
                                                    []
                                                    ReturnVar
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            string:
                                                (Variable
                                                    8
                                                    string
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (String 1 -1 () PointerString)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                )
                                        })
                                    compute_lps_use
                                    (FunctionType
                                        [(String 1 -1 () PointerString)]
                                        (Integer 4)
                                        Source
                                        Implementation
                                        ()
                                        .false.
                                        .false.
                                        .false.
                                        .false.
                                        .false.
                                        []
                                        .false.
                                    )
                                    [compute_lps]
                                    [(Var 8 string)]
                                    [(Print
                                        (StringFormat
                                            ()
                                            [(FunctionCall
                                                6 compute_lps
                                                ()
                                                [((Var 8 string))]
                                                (Array
                                                    (Integer 4)
                                                    [((IntegerConstant 1 (Integer 4) Decimal)
                                                    (StringLen
                                                        (Var 8 string)
                                                        (Integer 4)
                                                        ()
                                                    ))]
                                                    PointerToDataArray
                                                )
                                                ()
                                                ()
                                            )]
                                            FormatFortran
                                            (String -1 0 () PointerString)
                                            ()
                                        )
                                    )]
                                    (Var 8 l)
                                    Public
                                    .false.
                                    .false.
                                    ()
                                ),
                            compute_lps_use1:
                                (Function
                                    (SymbolTable
                                        9
                                        {
                                            char@char_string:
                                                (ExternalSymbol
                                                    9
                                                    char@char_string
                                                    2 char_string
                                                    string_19_stdlib_string_type
                                                    []
                                                    char_string
                                                    Private
                                                ),
                                            l:
                                                (Variable
                                                    9
                                                    l
                                                    []
                                                    ReturnVar
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            len_string:
                                                (ExternalSymbol
                                                    9
                                                    len_string
                                                    2 len_string
                                                    string_19_stdlib_string_type
                                                    []
                                                    len_string
                                                    Private
                                                ),
                                            string:
                                                (Variable
                                                    9
                                                    string
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (StructType
                                                        6 string_type
                                                    )
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                )
                                        })
                                    compute_lps_use1
                                    (FunctionType
                                        [(StructType
                                            6 string_type
                                        )]
                                        (Integer 4)
                                        Source
                                        Implementation
                                        ()
                                        .false.
                                        .false.
                                        .false.
                                        .false.
                                        .false.
                                        []
                                        .false.
                                    )
                                    []
                                    [(Var 9 string)]
                                    [(Print
                                        (FunctionCall
                                            9 char@char_string
                                            6 char
                                            [((Var 9 string))]
                                            (String 1 -3 (FunctionCall
                                                9 len_string
                                                6 len
                                                [((Var 9 string))]
                                                (Integer 4)
                                                ()
                                                ()
                                            ) PointerString)
                                            ()
                                            ()
                                        )
                                    )]
                                    (Var 9 l)
                                    Public
                                    .false.
                                    .false.
                                    ()
                                ),
                            len:
                                (ExternalSymbol
                                    6
                                    len
                                    2 len
                                    string_19_stdlib_string_type
                                    []
                                    len
                                    Public
                                ),
                            len_string:
                                (ExternalSymbol
                                    6
                                    len_string
                                    2 len_string
                                    string_19_stdlib_string_type
                                    []
                                    len_string
                                    Public
                                ),
                            padl:
                                (GenericProcedure
                                    6
                                    padl
                                    [6 padl_char_default
                                    6 padl_char_pad_with]
                                    Public
                                ),
                            padl_char_default:
                                (Function
                                    (SymbolTable
                                        12
                                        {
                                            output_length:
                                                (Variable
                                                    12
                                                    output_length
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            res:
                                                (Variable
                                                    12
                                                    res
                                                    [string]
                                                    ReturnVar
                                                    ()
                                                    ()
                                                    Default
                                                    (String 1 -3 (StringLen
                                                        (Var 12 string)
                                                        (Integer 4)
                                                        ()
                                                    ) PointerString)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            string:
                                                (Variable
                                                    12
                                                    string
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (String 1 -1 () PointerString)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                )
                                        })
                                    padl_char_default
                                    (FunctionType
                                        [(String 1 -1 () PointerString)
                                        (Integer 4)]
                                        (String 1 -1 () PointerString)
                                        Source
                                        Implementation
                                        ()
                                        .false.
                                        .true.
                                        .false.
                                        .false.
                                        .false.
                                        []
                                        .false.
                                    )
                                    [padl_char_pad_with]
                                    [(Var 12 string)
                                    (Var 12 output_length)]
                                    [(Assignment
                                        (Var 12 res)
                                        (FunctionCall
                                            6 padl_char_pad_with
                                            6 padl
                                            [((Var 12 string))
                                            ((Var 12 output_length))
                                            ((StringConstant
                                                " "
                                                (String 1 1 () PointerString)
                                            ))]
                                            (String 1 -3 (IntrinsicElementalFunction
                                                Max
                                                [(StringLen
                                                    (Var 12 string)
                                                    (Integer 4)
                                                    ()
                                                )
                                                (Var 12 output_length)]
                                                0
                                                (Integer 4)
                                                ()
                                            ) PointerString)
                                            ()
                                            ()
                                        )
                                        ()
                                    )]
                                    (Var 12 res)
                                    Public
                                    .false.
                                    .false.
                                    ()
                                ),
                            padl_char_pad_with:
                                (Function
                                    (SymbolTable
                                        13
                                        {
                                            output_length:
                                                (Variable
                                                    13
                                                    output_length
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            pad_with:
                                                (Variable
                                                    13
                                                    pad_with
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (String 1 1 () PointerString)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            res:
                                                (Variable
                                                    13
                                                    res
                                                    [string
                                                    output_length]
                                                    ReturnVar
                                                    ()
                                                    ()
                                                    Default
                                                    (String 1 -3 (IntrinsicElementalFunction
                                                        Max
                                                        [(StringLen
                                                            (Var 13 string)
                                                            (Integer 4)
                                                            ()
                                                        )
                                                        (Var 13 output_length)]
                                                        0
                                                        (Integer 4)
                                                        ()
                                                    ) PointerString)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            string:
                                                (Variable
                                                    13
                                                    string
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (String 1 -1 () PointerString)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            string_length:
                                                (Variable
                                                    13
                                                    string_length
                                                    []
                                                    Local
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                )
                                        })
                                    padl_char_pad_with
                                    (FunctionType
                                        [(String 1 -1 () PointerString)
                                        (Integer 4)
                                        (String 1 1 () PointerString)]
                                        (String 1 1 () PointerString)
                                        Source
                                        Implementation
                                        ()
                                        .false.
                                        .true.
                                        .false.
                                        .false.
                                        .false.
                                        []
                                        .false.
                                    )
                                    []
                                    [(Var 13 string)
                                    (Var 13 output_length)
                                    (Var 13 pad_with)]
                                    []
                                    (Var 13 res)
                                    Public
                                    .false.
                                    .false.
                                    ()
                                ),
                            padl_string_default:
                                (Function
                                    (SymbolTable
                                        10
                                        {
                                            char@char_string:
                                                (ExternalSymbol
                                                    10
                                                    char@char_string
                                                    2 char_string
                                                    string_19_stdlib_string_type
                                                    []
                                                    char_string
                                                    Private
                                                ),
                                            len_string:
                                                (ExternalSymbol
                                                    10
                                                    len_string
                                                    2 len_string
                                                    string_19_stdlib_string_type
                                                    []
                                                    len_string
                                                    Private
                                                ),
                                            output_length:
                                                (Variable
                                                    10
                                                    output_length
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            res:
                                                (Variable
                                                    10
                                                    res
                                                    []
                                                    ReturnVar
                                                    ()
                                                    ()
                                                    Default
                                                    (StructType
                                                        6 string_type
                                                    )
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            string:
                                                (Variable
                                                    10
                                                    string
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (StructType
                                                        6 string_type
                                                    )
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                )
                                        })
                                    padl_string_default
                                    (FunctionType
                                        [(StructType
                                            6 string_type
                                        )
                                        (Integer 4)]
                                        (StructType
                                            6 string_type
                                        )
                                        Source
                                        Implementation
                                        ()
                                        .false.
                                        .true.
                                        .false.
                                        .false.
                                        .false.
                                        []
                                        .false.
                                    )
                                    [padl_char_pad_with]
                                    [(Var 10 string)
                                    (Var 10 output_length)]
                                    [(Assignment
                                        (Var 10 res)
                                        (StructConstructor
                                            6 string_type
                                            [((StringPhysicalCast
                                                (FunctionCall
                                                    6 padl_char_pad_with
                                                    6 padl
                                                    [((FunctionCall
                                                        10 char@char_string
                                                        6 char
                                                        [((Var 10 string))]
                                                        (String 1 -3 (FunctionCall
                                                            10 len_string
                                                            6 len
                                                            [((Var 10 string))]
                                                            (Integer 4)
                                                            ()
                                                            ()
                                                        ) PointerString)
                                                        ()
                                                        ()
                                                    ))
                                                    ((Var 10 output_length))
                                                    ((StringConstant
                                                        " "
                                                        (String 1 1 () PointerString)
                                                    ))]
                                                    (String 1 -3 (IntrinsicElementalFunction
                                                        Max
                                                        [(StringLen
                                                            (FunctionCall
                                                                10 char@char_string
                                                                6 char
                                                                [((Var 10 string))]
                                                                (String 1 -3 (FunctionCall
                                                                    10 len_string
                                                                    6 len
                                                                    [((Var 10 string))]
                                                                    (Integer 4)
                                                                    ()
                                                                    ()
                                                                ) PointerString)
                                                                ()
                                                                ()
                                                            )
                                                            (Integer 4)
                                                            ()
                                                        )
                                                        (Var 10 output_length)]
                                                        0
                                                        (Integer 4)
                                                        ()
                                                    ) PointerString)
                                                    ()
                                                    ()
                                                )
                                                PointerString
                                                DescriptorString
                                                (Allocatable
                                                    (String 1 -3 (IntrinsicElementalFunction
                                                        Max
                                                        [(StringLen
                                                            (FunctionCall
                                                                10 char@char_string
                                                                6 char
                                                                [((Var 10 string))]
                                                                (String 1 -3 (FunctionCall
                                                                    10 len_string
                                                                    6 len
                                                                    [((Var 10 string))]
                                                                    (Integer 4)
                                                                    ()
                                                                    ()
                                                                ) PointerString)
                                                                ()
                                                                ()
                                                            )
                                                            (Integer 4)
                                                            ()
                                                        )
                                                        (Var 10 output_length)]
                                                        0
                                                        (Integer 4)
                                                        ()
                                                    ) DescriptorString)
                                                )
                                                ()
                                            ))]
                                            (StructType
                                                6 string_type
                                            )
                                            ()
                                        )
                                        ()
                                    )]
                                    (Var 10 res)
                                    Public
                                    .false.
                                    .false.
                                    ()
                                ),
                            padl_string_pad_with:
                                (Function
                                    (SymbolTable
                                        11
                                        {
                                            char@char_string:
                                                (ExternalSymbol
                                                    11
                                                    char@char_string
                                                    2 char_string
                                                    string_19_stdlib_string_type
                                                    []
                                                    char_string
                                                    Private
                                                ),
                                            len_string:
                                                (ExternalSymbol
                                                    11
                                                    len_string
                                                    2 len_string
                                                    string_19_stdlib_string_type
                                                    []
                                                    len_string
                                                    Private
                                                ),
                                            output_length:
                                                (Variable
                                                    11
                                                    output_length
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (Integer 4)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            pad_with:
                                                (Variable
                                                    11
                                                    pad_with
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (String 1 1 () PointerString)
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            res:
                                                (Variable
                                                    11
                                                    res
                                                    []
                                                    ReturnVar
                                                    ()
                                                    ()
                                                    Default
                                                    (StructType
                                                        6 string_type
                                                    )
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                ),
                                            string:
                                                (Variable
                                                    11
                                                    string
                                                    []
                                                    In
                                                    ()
                                                    ()
                                                    Default
                                                    (StructType
                                                        6 string_type
                                                    )
                                                    ()
                                                    Source
                                                    Public
                                                    Required
                                                    .false.
                                                    .false.
                                                )
                                        })
                                    padl_string_pad_with
                                    (FunctionType
                                        [(StructType
                                            6 string_type
                                        )
                                        (Integer 4)
                                        (String 1 1 () PointerString)]
                                        (StructType
                                            6 string_type
                                        )
                                        Source
                                        Implementation
                                        ()
                                        .false.
                                        .true.
                                        .false.
                                        .false.
                                        .false.
                                        []
                                        .false.
                                    )
                                    [padl_char_pad_with]
                                    [(Var 11 string)
                                    (Var 11 output_length)
                                    (Var 11 pad_with)]
                                    [(Assignment
                                        (Var 11 res)
                                        (StructConstructor
                                            6 string_type
                                            [((StringPhysicalCast
                                                (FunctionCall
                                                    6 padl_char_pad_with
                                                    6 padl
                                                    [((FunctionCall
                                                        11 char@char_string
                                                        6 char
                                                        [((Var 11 string))]
                                                        (String 1 -3 (FunctionCall
                                                            11 len_string
                                                            6 len
                                                            [((Var 11 string))]
                                                            (Integer 4)
                                                            ()
                                                            ()
                                                        ) PointerString)
                                                        ()
                                                        ()
                                                    ))
                                                    ((Var 11 output_length))
                                                    ((Var 11 pad_with))]
                                                    (String 1 -3 (IntrinsicElementalFunction
                                                        Max
                                                        [(StringLen
                                                            (FunctionCall
                                                                11 char@char_string
                                                                6 char
                                                                [((Var 11 string))]
                                                                (String 1 -3 (FunctionCall
                                                                    11 len_string
                                                                    6 len
                                                                    [((Var 11 string))]
                                                                    (Integer 4)
                                                                    ()
                                                                    ()
                                                                ) PointerString)
                                                                ()
                                                                ()
                                                            )
                                                            (Integer 4)
                                                            ()
                                                        )
                                                        (Var 11 output_length)]
                                                        0
                                                        (Integer 4)
                                                        ()
                                                    ) PointerString)
                                                    ()
                                                    ()
                                                )
                                                PointerString
                                                DescriptorString
                                                (Allocatable
                                                    (String 1 -3 (IntrinsicElementalFunction
                                                        Max
                                                        [(StringLen
                                                            (FunctionCall
                                                                11 char@char_string
                                                                6 char
                                                                [((Var 11 string))]
                                                                (String 1 -3 (FunctionCall
                                                                    11 len_string
                                                                    6 len
                                                                    [((Var 11 string))]
                                                                    (Integer 4)
                                                                    ()
                                                                    ()
                                                                ) PointerString)
                                                                ()
                                                                ()
                                                            )
                                                            (Integer 4)
                                                            ()
                                                        )
                                                        (Var 11 output_length)]
                                                        0
                                                        (Integer 4)
                                                        ()
                                                    ) DescriptorString)
                                                )
                                                ()
                                            ))]
                                            (StructType
                                                6 string_type
                                            )
                                            ()
                                        )
                                        ()
                                    )]
                                    (Var 11 res)
                                    Public
                                    .false.
                                    .false.
                                    ()
                                ),
                            string_type:
                                (ExternalSymbol
                                    6
                                    string_type
                                    2 string_type
                                    string_19_stdlib_string_type
                                    []
                                    string_type
                                    Public
                                )
                        })
                    string_19_stdlib_strings
                    [string_19_stdlib_string_type
                    string_19_stdlib_strings]
                    .false.
                    .false.
                )
        })
    []
)
