(TranslationUnit
    [(Program
        arrays_09
        ()
        []
        [(ImplicitNone
            []
            ()
        )]
        [(Declaration
            (AttrType
                TypeCharacter
                [(()
                10
                Value)]
                ()
                ()
                None
            )
            []
            [(a
            [(1
            1
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )]
        [(Assignment
            0
            (FuncCallOrArray
                a
                []
                [(()
                1
                ()
                0)]
                []
                []
                []
            )
            (String "Substring")
            ()
        )
        (If
            0
            ()
            (/= (FuncCallOrArray
                a
                []
                [(()
                1
                ()
                0)]
                []
                [(4
                9
                1
                0)]
                []
            ) (String "string"))
            [(ErrorStop
                0
                ()
                ()
                ()
            )]
            []
            ()
            ()
            ()
        )]
        []
    )]
)
