(TranslationUnit
    [(Program
        stop1
        ()
        []
        [(ImplicitNone
            []
            (TriviaNode
                []
                [(EndOfLine)
                (Comment
                    "! AST only(Syntax check)"
                )]
            )
        )]
        [(Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(stop
            []
            []
            ()
            15
            Equal
            ())]
            ()
        )
        (Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(errstop
            []
            []
            ()
            25
            Equal
            ())]
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )]
        [(If
            0
            ()
            (/= stop 15)
            [(Stop
                0
                ()
                ()
                ()
            )]
            [(If
                0
                ()
                (/= errstop 25)
                [(ErrorStop
                    0
                    ()
                    ()
                    ()
                )]
                []
                ()
                ()
                ()
            )]
            ()
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (If
            0
            ()
            (/= stop 15)
            [(Stop
                0
                (String "message")
                ()
                ()
            )]
            [(If
                0
                ()
                (/= errstop 25)
                [(ErrorStop
                    0
                    (String "message")
                    ()
                    ()
                )]
                []
                ()
                ()
                ()
            )]
            ()
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (If
            0
            ()
            (/= stop 15)
            [(Stop
                0
                0
                ()
                ()
            )]
            [(If
                0
                ()
                (/= errstop 25)
                [(ErrorStop
                    0
                    0
                    ()
                    ()
                )]
                []
                ()
                ()
                ()
            )]
            ()
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (If
            0
            ()
            (/= stop 15)
            [(Stop
                0
                ()
                (Logical .true.)
                ()
            )]
            [(If
                0
                ()
                (/= errstop 25)
                [(ErrorStop
                    0
                    ()
                    (Logical .true.)
                    ()
                )]
                []
                ()
                ()
                ()
            )]
            ()
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )
        (If
            0
            ()
            (/= stop 15)
            [(Stop
                0
                1
                (Logical .false.)
                ()
            )]
            [(If
                0
                ()
                (/= errstop 25)
                [(ErrorStop
                    0
                    1
                    (Logical .false.)
                    ()
                )]
                []
                ()
                ()
                ()
            )]
            ()
            ()
            (TriviaNode
                []
                [(EndOfLine)
                (EndOfLine)]
            )
        )]
        []
    )]
)
