(TranslationUnit
    (SymbolTable
        1
        {
            string_02:
                (Program
                    (SymbolTable
                        2
                        {
                            firstname:
                                (Variable
                                    2
                                    firstname
                                    []
                                    Local
                                    ()
                                    ()
                                    Default
                                    (String 1 (IntegerConstant 15 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                    []
                                ),
                            greetings:
                                (Variable
                                    2
                                    greetings
                                    []
                                    Local
                                    ()
                                    ()
                                    Default
                                    (String 1 (IntegerConstant 25 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                    []
                                ),
                            surname:
                                (Variable
                                    2
                                    surname
                                    []
                                    Local
                                    ()
                                    ()
                                    Default
                                    (String 1 (IntegerConstant 15 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                    []
                                ),
                            title:
                                (Variable
                                    2
                                    title
                                    []
                                    Local
                                    ()
                                    ()
                                    Default
                                    (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                    .false.
                                    ()
                                    .false.
                                    .false.
                                    NotMethod
                                    ()
                                    []
                                )
                        })
                    string_02
                    []
                    [(Assignment
                        (Var 2 title)
                        (StringConstant
                            "Mr. "
                            (String 1 (IntegerConstant 4 (Integer 4) Decimal) ExpressionLength DescriptorString)
                        )
                        ()
                        .false.
                        .false.
                    )
                    (Assignment
                        (Var 2 firstname)
                        (StringConstant
                            "Rowan "
                            (String 1 (IntegerConstant 6 (Integer 4) Decimal) ExpressionLength DescriptorString)
                        )
                        ()
                        .false.
                        .false.
                    )
                    (Assignment
                        (Var 2 surname)
                        (StringConstant
                            "Atkinson"
                            (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
                        )
                        ()
                        .false.
                        .false.
                    )
                    (Assignment
                        (Var 2 greetings)
                        (StringConstant
                            "A big hello from Mr. Bean"
                            (String 1 (IntegerConstant 25 (Integer 4) Decimal) ExpressionLength DescriptorString)
                        )
                        ()
                        .false.
                        .false.
                    )
                    (Print
                        (StringFormat
                            ()
                            [(StringConstant
                                "Here is "
                                (String 1 (IntegerConstant 8 (Integer 4) Decimal) ExpressionLength DescriptorString)
                            )
                            (Var 2 title)
                            (Var 2 firstname)
                            (Var 2 surname)]
                            FormatFortran
                            (Allocatable
                                (String 1 () DeferredLength DescriptorString)
                            )
                            ()
                        )
                    )
                    (Print
                        (Var 2 greetings)
                    )]
                )
        })
    []
)
