(TranslationUnit
    [(Program
        implied_do_loop10
        ()
        []
        [(ImplicitNone
            []
            ()
        )]
        [(Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(i
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (DerivedType
            col
            []
            ()
            []
            [(Declaration
                (AttrType
                    TypeInteger
                    []
                    ()
                    ()
                    None
                )
                []
                [(rgb
                [(1
                3
                DimensionExpr)]
                []
                ()
                ()
                None
                ())]
                ()
            )]
            []
        )
        (Declaration
            (AttrType
                TypeType
                []
                ()
                col
                None
            )
            []
            [(colours
            []
            []
            ()
            ()
            None
            ())]
            ()
        )]
        [(DataStmt
            0
            [(DataStmtSet
                [(DataImpliedDo
                    [(FuncCallOrArray
                        rgb
                        [(colours
                        [])]
                        [(()
                        i
                        ()
                        0)]
                        []
                        []
                        []
                    )]
                    ()
                    i
                    1
                    3
                    ()
                )]
                [1
                2
                3]
            )]
            ()
        )
        (Print
            0
            ()
            [(String "colours%rgb : " ())
            rgb [(colours
            [])]]
            ()
        )
        (If
            0
            ()
            (FuncCallOrArray
                any
                []
                [(()
                (/= rgb [(colours
                [])] (ArrayInitializer
                    ()
                    ()
                    [1
                    2
                    3]
                ))
                ()
                0)]
                []
                []
                []
            )
            [(ErrorStop
                0
                ()
                ()
                ()
            )]
            []
            ()
            ()
            ()
        )]
        []
    )]
)
