(TranslationUnit
    [(Program
        fixed_form_interface
        ()
        []
        [(ImplicitNone
            []
            ()
        )]
        [(Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(i
            []
            []
            ()
            ()
            None
            ())
            (arr
            [(1
            5
            DimensionExpr)]
            []
            ()
            ()
            None
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(output_unit
            []
            []
            ()
            ()
            None
            ())]
            ()
        )
        (DerivedType
            element
            []
            ()
            []
            [(Declaration
                (AttrType
                    TypeCharacter
                    [(len
                    2
                    Value)]
                    ()
                    ()
                    None
                )
                []
                [(symbol
                []
                []
                ()
                ()
                None
                ())]
                ()
            )
            (Declaration
                (AttrType
                    TypeInteger
                    []
                    ()
                    ()
                    None
                )
                []
                [(atomic_number
                []
                []
                ()
                ()
                None
                ())]
                ()
            )
            (Declaration
                (AttrType
                    TypeReal
                    []
                    ()
                    ()
                    None
                )
                []
                [(atomic_mass
                []
                []
                ()
                ()
                None
                ())]
                ()
            )
            (Declaration
                (AttrType
                    TypeInteger
                    []
                    ()
                    ()
                    None
                )
                []
                [(quantity
                []
                []
                ()
                ()
                None
                ())]
                ()
            )]
            []
        )
        (DerivedType
            chemical_compound
            []
            ()
            []
            [(Declaration
                (AttrType
                    TypeCharacter
                    [(len
                    30
                    Value)]
                    ()
                    ()
                    None
                )
                []
                [(name
                []
                []
                ()
                ()
                None
                ())]
                ()
            )
            (Declaration
                (AttrType
                    TypeCharacter
                    [(len
                    10
                    Value)]
                    ()
                    ()
                    None
                )
                []
                [(formula
                []
                []
                ()
                ()
                None
                ())]
                ()
            )
            (Declaration
                (AttrType
                    TypeReal
                    []
                    ()
                    ()
                    None
                )
                []
                [(molecular_weight
                []
                []
                ()
                ()
                None
                ())]
                ()
            )
            (Declaration
                (AttrType
                    TypeType
                    []
                    ()
                    element
                    None
                )
                [(SimpleAttribute
                    AttrAllocatable
                )
                (AttrDimension
                    [(()
                    ()
                    DimensionExpr)]
                )]
                [(elements
                []
                []
                ()
                ()
                None
                ())]
                ()
            )]
            []
        )
        (Interface
            (InterfaceHeader)
            ()
            [(InterfaceProc
                (Subroutine
                    my_subroutine
                    [(a)]
                    []
                    ()
                    ()
                    []
                    []
                    []
                    [(Declaration
                        (AttrType
                            TypeInteger
                            []
                            ()
                            ()
                            None
                        )
                        [(AttrIntent
                            In
                        )]
                        [(a
                        []
                        []
                        ()
                        ()
                        None
                        ())]
                        ()
                    )]
                    []
                    []
                    []
                )
            )
            (InterfaceProc
                (Function
                    my_function
                    [(b)]
                    []
                    res
                    ()
                    ()
                    []
                    []
                    []
                    [(Declaration
                        (AttrType
                            TypeInteger
                            []
                            ()
                            ()
                            None
                        )
                        [(AttrIntent
                            In
                        )]
                        [(b
                        []
                        []
                        ()
                        ()
                        None
                        ())]
                        ()
                    )
                    (Declaration
                        (AttrType
                            TypeInteger
                            []
                            ()
                            ()
                            None
                        )
                        []
                        [(res
                        []
                        []
                        ()
                        ()
                        None
                        ())]
                        ()
                    )]
                    []
                    []
                    []
                )
            )]
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(num
            []
            []
            ()
            2
            Equal
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            [(AttrDimension
                [(()
                ()
                DimensionExpr)]
            )
            (SimpleAttribute
                AttrAllocatable
            )]
            [(factors
            []
            []
            ()
            ()
            None
            ())]
            ()
        )]
        [(Allocate
            0
            [(()
            (FuncCallOrArray
                factors
                []
                [(()
                num
                ()
                0)]
                []
                []
                []
            )
            ()
            0)]
            []
            ()
        )
        (Assignment
            0
            factors
            (ArrayInitializer
                ()
                ()
                [3
                4]
            )
            ()
        )
        (Deallocate
            0
            [(()
            factors
            ()
            0)]
            []
            ()
        )
        (Format
            1
            "tr1,a"
            ()
        )
        (Print
            0
            1
            [factors]
            ()
        )
        (DoConcurrentLoop
            0
            ()
            [(ConcurrentControl
                i
                1
                10
                2
            )]
            ()
            []
            [(Assignment
                0
                (FuncCallOrArray
                    arr
                    []
                    [(()
                    i
                    ()
                    0)]
                    []
                    []
                    []
                )
                i
                ()
            )]
            ()
            ()
        )
        (Flush
            0
            [output_unit]
            []
            ()
        )]
        []
    )]
)
