(TranslationUnit
    [(Program
        array9
        (TriviaNode
            []
            [(EndOfLine)
            (EndOfLine)]
        )
        []
        []
        [(DerivedType
            varying_string
            []
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
            []
            [(Declaration
                (AttrType
                    TypeCharacter
                    [(len
                    1
                    Value)]
                    ()
                    ()
                    None
                )
                [(SimpleAttribute
                    AttrAllocatable
                )]
                [(characters
                [(()
                ()
                DimensionExpr)]
                []
                ()
                ()
                None
                ())]
                ()
            )]
            []
        )
        (Declaration
            (AttrType
                TypeType
                []
                ()
                varying_string
                None
            )
            []
            [(x
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeType
                []
                ()
                varying_string
                None
            )
            [(SimpleAttribute
                AttrAllocatable
            )]
            [(a
            [(()
            ()
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrAllocatable
            )]
            [(b
            [(()
            ()
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrAllocatable
            )]
            [(c
            [(()
            ()
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                [(kind
                4
                Value)]
                ()
                ()
                None
            )
            [(SimpleAttribute
                AttrAllocatable
            )]
            [(d
            [(()
            ()
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )]
        [(Assignment
            0
            a
            (ArrayInitializer
                ()
                varying_string
                []
            )
            ()
        )
        (Assignment
            0
            b
            (ArrayInitializer
                (AttrType
                    TypeReal
                    []
                    ()
                    ()
                    None
                )
                ()
                []
            )
            ()
        )
        (Assignment
            0
            b
            (ArrayInitializer
                (AttrType
                    TypeInteger
                    []
                    ()
                    ()
                    None
                )
                ()
                []
            )
            ()
        )
        (Assignment
            0
            d
            (ArrayInitializer
                (AttrType
                    TypeReal
                    [(kind
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                ()
                []
            )
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (Assignment
            0
            a
            (ArrayInitializer
                ()
                varying_string
                [x
                x]
            )
            ()
        )
        (Assignment
            0
            b
            (ArrayInitializer
                (AttrType
                    TypeReal
                    []
                    ()
                    ()
                    None
                )
                ()
                [(Real "1.0")
                (Real "2.0")]
            )
            ()
        )
        (Assignment
            0
            b
            (ArrayInitializer
                (AttrType
                    TypeInteger
                    []
                    ()
                    ()
                    None
                )
                ()
                [1
                2]
            )
            ()
        )
        (Assignment
            0
            d
            (ArrayInitializer
                (AttrType
                    TypeReal
                    [(kind
                    4
                    Value)]
                    ()
                    ()
                    None
                )
                ()
                [(Real "1.0")
                (Real "2.0")]
            )
            ()
        )]
        []
    )]
)
