(TranslationUnit
    (SymbolTable
        1
        {
            bits_02:
                (Program
                    (SymbolTable
                        2
                        {
                            all_ones:
                                (Variable
                                    2
                                    all_ones
                                    [all_zeros]
                                    Local
                                    (IntrinsicElementalFunction
                                        Not
                                        [(Var 2 all_zeros)]
                                        0
                                        (Integer 8)
                                        (IntegerConstant -1 (Integer 8) Decimal)
                                    )
                                    (IntegerConstant -1 (Integer 8) Decimal)
                                    Parameter
                                    (Integer 8)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                ),
                            all_zeros:
                                (Variable
                                    2
                                    all_zeros
                                    []
                                    Local
                                    (IntegerConstant 0 (Integer 8) Decimal)
                                    (IntegerConstant 0 (Integer 8) Decimal)
                                    Parameter
                                    (Integer 8)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                ),
                            bits_kind:
                                (ExternalSymbol
                                    2
                                    bits_kind
                                    4 int32
                                    lfortran_intrinsic_iso_fortran_env
                                    []
                                    int32
                                    Public
                                ),
                            block_kind:
                                (ExternalSymbol
                                    2
                                    block_kind
                                    4 int64
                                    lfortran_intrinsic_iso_fortran_env
                                    []
                                    int64
                                    Public
                                ),
                            block_size:
                                (Variable
                                    2
                                    block_size
                                    []
                                    Local
                                    (Cast
                                        (TypeInquiry
                                            BitSize
                                            (Integer 8)
                                            (IntegerConstant 0 (Integer 8) Decimal)
                                            (Integer 8)
                                            (IntegerConstant 64 (Integer 8) Decimal)
                                        )
                                        IntegerToInteger
                                        (Integer 4)
                                        (IntegerConstant 64 (Integer 4) Decimal)
                                    )
                                    (IntegerConstant 64 (Integer 4) Decimal)
                                    Parameter
                                    (Integer 4)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                )
                        })
                    bits_02
                    [iso_fortran_env]
                    [(Print
                        (StringFormat
                            ()
                            [(Var 2 block_size)]
                            FormatFortran
                            (String -1 0 () PointerString)
                            ()
                        )
                    )
                    (Print
                        (StringFormat
                            ()
                            [(Var 2 all_zeros)]
                            FormatFortran
                            (String -1 0 () PointerString)
                            ()
                        )
                    )
                    (Print
                        (StringFormat
                            ()
                            [(Var 2 all_ones)]
                            FormatFortran
                            (String -1 0 () PointerString)
                            ()
                        )
                    )]
                ),
            iso_fortran_env:
                (IntrinsicModule lfortran_intrinsic_iso_fortran_env)
        })
    []
)
