(TranslationUnit
    [(Program
        pragma2
        ()
        []
        []
        [(DeclarationPragma
            LFortranPragma
            "attributes simd :: A"
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                []
                ()
                ()
                None
            )
            []
            [(A
            [(1
            8
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )]
        [(Assignment
            0
            A
            1
            ()
        )]
        []
    )]
)
