(TranslationUnit
    [(Program
        hello
        ()
        []
        [(ImplicitNone
            []
            ()
        )]
        [(Declaration
            (AttrType
                TypeCharacter
                [(()
                ()
                Colon)]
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrAllocatable
            )]
            [(cmd
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(cmdlen
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(ierr
            []
            []
            ()
            ()
            None
            ())]
            ()
        )]
        [(SubroutineCall
            0
            get_command
            []
            []
            [(length
            cmdlen)]
            []
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (If
            0
            ()
            (> cmdlen 0)
            [(Allocate
                0
                [((FuncCallOrArray
                    character
                    []
                    [(()
                    cmdlen
                    ()
                    0)]
                    []
                    []
                    []
                )
                ()
                cmd
                0)]
                []
                ()
            )
            (SubroutineCall
                0
                get_command
                []
                [(()
                cmd
                ()
                0)]
                []
                []
                ()
            )
            (Print
                0
                ()
                [(String "hello " ())
                cmd]
                ()
            )]
            []
            ()
            ()
            ()
        )
        (Deallocate
            0
            [(()
            cmd
            ()
            0)]
            [(stat
            ierr)]
            ()
        )]
        []
    )]
)
