(TranslationUnit
    [(Subroutine
        triad
        [(a)
        (b)
        (scalar)
        (c)]
        []
        ()
        ()
        []
        []
        []
        [(Declaration
            (AttrType
                TypeReal
                []
                ()
                ()
                None
            )
            [(AttrIntent
                In
            )]
            [(a
            [(()
            ()
            DimensionExpr)]
            []
            ()
            ()
            None
            ())
            (b
            [(()
            ()
            DimensionExpr)]
            []
            ()
            ()
            None
            ())
            (scalar
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeReal
                []
                ()
                ()
                None
            )
            [(AttrIntent
                Out
            )]
            [(c
            [(()
            ()
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(N
            []
            []
            ()
            ()
            None
            ())
            (N2
            []
            []
            ()
            ()
            None
            ())
            (i
            []
            []
            ()
            ()
            None
            ())
            (j
            []
            []
            ()
            ()
            None
            ())]
            ()
        )]
        [(Assignment
            0
            N
            (FuncCallOrArray
                size
                []
                [(()
                a
                ()
                0)]
                []
                []
                []
            )
            ()
        )
        (Assignment
            0
            N2
            (FuncCallOrArray
                size
                []
                [(()
                b
                ()
                0)]
                []
                []
                []
            )
            ()
        )
        (DoConcurrentLoop
            0
            ()
            [(ConcurrentControl
                i
                1
                N
                ()
            )]
            ()
            []
            [(Assignment
                0
                (FuncCallOrArray
                    c
                    []
                    [(()
                    i
                    ()
                    0)]
                    []
                    []
                    []
                )
                (+ (FuncCallOrArray
                    a
                    []
                    [(()
                    i
                    ()
                    0)]
                    []
                    []
                    []
                ) (* scalar (FuncCallOrArray
                    b
                    []
                    [(()
                    i
                    ()
                    0)]
                    []
                    []
                    []
                )))
                ()
            )]
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (DoConcurrentLoop
            0
            ()
            [(ConcurrentControl
                j
                1
                N2
                ()
            )]
            ()
            []
            [(Assignment
                0
                (FuncCallOrArray
                    c
                    []
                    [(()
                    j
                    ()
                    0)]
                    []
                    []
                    []
                )
                (+ (FuncCallOrArray
                    b
                    []
                    [(()
                    j
                    ()
                    0)]
                    []
                    []
                    []
                ) scalar)
                ()
            )]
            ()
            ()
        )]
        []
        []
    )]
)
