(TranslationUnit
    [(Program
        main
        ()
        []
        []
        [(Declaration
            ()
            [(SimpleAttribute
                AttrIntrinsic
            )]
            [(aimag
            []
            []
            ()
            ()
            None
            ())
            (cmplx
            []
            []
            ()
            ()
            None
            ())
            (real
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeComplex
                []
                ()
                ()
                None
            )
            []
            [(f
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeComplex
                []
                ()
                ()
                None
            )
            []
            [(x
            []
            []
            ()
            (Complex (Real "1.0") (u- (Real "3.0")))
            Equal
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                []
                ()
                ()
                None
            )
            []
            [(y
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            ()
            [(SimpleAttribute
                AttrIntrinsic
            )]
            [(mod
            []
            []
            ()
            ()
            None
            ())]
            ()
        )]
        [(Assignment
            0
            f
            (FuncCallOrArray
                cmplx
                []
                [(()
                3
                ()
                0)
                (()
                1
                ()
                0)]
                []
                []
                []
            )
            ()
        )
        (Assignment
            0
            y
            (FuncCallOrArray
                aimag
                []
                [(()
                x
                ()
                0)]
                []
                []
                []
            )
            ()
        )]
        []
    )]
)
