(TranslationUnit
    [(Program
        block1
        (TriviaNode
            []
            [(EndOfLine)
            (Comment
                "! The variable B is implicitly declared in the scoping unit of the main program."
            )
            (Comment
                "! The statement IMPORT, NONE makes B inaccessible in the BLOCK construct."
            )
            (Comment
                "! If the IMPORT, NONE statement is replaced with the IMPORT statement in the"
            )
            (Comment
                "! comment, the program is conformant."
            )]
        )
        []
        [(Implicit
            [(ImplicitSpec
                (AttrType
                    TypeInteger
                    []
                    ()
                    ()
                    None
                )
                [(LetterSpec
                    a
                    z
                )]
            )]
            ()
        )]
        [(Declaration
            (AttrType
                TypeInteger
                []
                ()
                ()
                None
            )
            []
            [(B
            []
            []
            ()
            ()
            None
            ())]
            (TriviaNode
                []
                [(EndOfLine)
                (Comment
                    "! TODO: Fix this test case"
                )]
            )
        )]
        [(Block
            0
            ()
            []
            []
            []
            [(Assignment
                0
                B
                10
                ()
            )
            (Print
                0
                ()
                [B]
                ()
            )
            (If
                0
                ()
                (== B 10)
                [(Print
                    0
                    ()
                    [(String "pass")]
                    ()
                )]
                []
                ()
                ()
                ()
            )]
            (TriviaNode
                []
                [(EndOfLine)
                (Comment
                    "!     use mod, only: example"
                )
                (Comment
                    "!     import, none"
                )
                (Comment
                    "!     !import, only: B"
                )]
            )
            ()
        )]
        []
    )]
)
