(TranslationUnit
    (SymbolTable
        1
        {
            intrinsics_36:
                (Program
                    (SymbolTable
                        2
                        {
                            all_spaces:
                                (Variable
                                    2
                                    all_spaces
                                    []
                                    Local
                                    (IntrinsicElementalFunction
                                        Adjustl
                                        [(StringConstant
                                            "    "
                                            (String 1 4 () PointerString)
                                        )]
                                        0
                                        (String 1 4 () PointerString)
                                        (StringConstant
                                            "    "
                                            (String 1 4 () PointerString)
                                        )
                                    )
                                    (StringConstant
                                        "    "
                                        (String 1 4 () PointerString)
                                    )
                                    Save
                                    (String 1 25 () PointerString)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                ),
                            empty:
                                (Variable
                                    2
                                    empty
                                    []
                                    Local
                                    (IntrinsicElementalFunction
                                        Adjustl
                                        [(StringConstant
                                            ""
                                            (String 1 0 () PointerString)
                                        )]
                                        0
                                        (String 1 0 () PointerString)
                                        (StringConstant
                                            ""
                                            (String 1 0 () PointerString)
                                        )
                                    )
                                    (StringConstant
                                        ""
                                        (String 1 0 () PointerString)
                                    )
                                    Save
                                    (String 1 25 () PointerString)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                ),
                            simple:
                                (Variable
                                    2
                                    simple
                                    []
                                    Local
                                    (IntrinsicElementalFunction
                                        Adjustl
                                        [(StringConstant
                                            "gfortran"
                                            (String 1 8 () PointerString)
                                        )]
                                        0
                                        (String 1 8 () PointerString)
                                        (StringConstant
                                            "gfortran"
                                            (String 1 8 () PointerString)
                                        )
                                    )
                                    (StringConstant
                                        "gfortran"
                                        (String 1 8 () PointerString)
                                    )
                                    Save
                                    (String 1 25 () PointerString)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                ),
                            space_at_end:
                                (Variable
                                    2
                                    space_at_end
                                    []
                                    Local
                                    (IntrinsicElementalFunction
                                        Adjustl
                                        [(StringConstant
                                            "gfortran   "
                                            (String 1 11 () PointerString)
                                        )]
                                        0
                                        (String 1 11 () PointerString)
                                        (StringConstant
                                            "gfortran   "
                                            (String 1 11 () PointerString)
                                        )
                                    )
                                    (StringConstant
                                        "gfortran   "
                                        (String 1 11 () PointerString)
                                    )
                                    Save
                                    (String 1 25 () PointerString)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                ),
                            space_at_start:
                                (Variable
                                    2
                                    space_at_start
                                    []
                                    Local
                                    (IntrinsicElementalFunction
                                        Adjustl
                                        [(StringConstant
                                            "   gfortran"
                                            (String 1 11 () PointerString)
                                        )]
                                        0
                                        (String 1 11 () PointerString)
                                        (StringConstant
                                            "gfortran   "
                                            (String 1 11 () PointerString)
                                        )
                                    )
                                    (StringConstant
                                        "gfortran   "
                                        (String 1 11 () PointerString)
                                    )
                                    Save
                                    (String 1 25 () PointerString)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                ),
                            space_in_between:
                                (Variable
                                    2
                                    space_in_between
                                    []
                                    Local
                                    (IntrinsicElementalFunction
                                        Adjustl
                                        [(StringConstant
                                            "   g for tran   "
                                            (String 1 16 () PointerString)
                                        )]
                                        0
                                        (String 1 16 () PointerString)
                                        (StringConstant
                                            "g for tran      "
                                            (String 1 16 () PointerString)
                                        )
                                    )
                                    (StringConstant
                                        "g for tran      "
                                        (String 1 16 () PointerString)
                                    )
                                    Save
                                    (String 1 25 () PointerString)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                ),
                            spaces_with_symbols:
                                (Variable
                                    2
                                    spaces_with_symbols
                                    []
                                    Local
                                    (IntrinsicElementalFunction
                                        Adjustl
                                        [(StringConstant
                                            "  # gfor* t $ ran &    "
                                            (String 1 23 () PointerString)
                                        )]
                                        0
                                        (String 1 23 () PointerString)
                                        (StringConstant
                                            "# gfor* t $ ran &      "
                                            (String 1 23 () PointerString)
                                        )
                                    )
                                    (StringConstant
                                        "# gfor* t $ ran &      "
                                        (String 1 23 () PointerString)
                                    )
                                    Save
                                    (String 1 25 () PointerString)
                                    ()
                                    Source
                                    Public
                                    Required
                                    .false.
                                    .false.
                                )
                        })
                    intrinsics_36
                    []
                    [(Print
                        (Var 2 empty)
                    )
                    (If
                        (StringCompare
                            (Var 2 empty)
                            NotEq
                            (StringConstant
                                ""
                                (String 1 0 () PointerString)
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (Print
                        (Var 2 all_spaces)
                    )
                    (If
                        (StringCompare
                            (Var 2 all_spaces)
                            NotEq
                            (StringConstant
                                "    "
                                (String 1 4 () PointerString)
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (Print
                        (Var 2 simple)
                    )
                    (If
                        (StringCompare
                            (Var 2 simple)
                            NotEq
                            (StringConstant
                                "gfortran"
                                (String 1 8 () PointerString)
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (Print
                        (Var 2 space_at_start)
                    )
                    (If
                        (StringCompare
                            (Var 2 space_at_start)
                            NotEq
                            (StringConstant
                                "gfortran   "
                                (String 1 11 () PointerString)
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (Print
                        (Var 2 space_at_end)
                    )
                    (If
                        (StringCompare
                            (Var 2 space_at_end)
                            NotEq
                            (StringConstant
                                "gfortran   "
                                (String 1 11 () PointerString)
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (Print
                        (Var 2 space_in_between)
                    )
                    (If
                        (StringCompare
                            (Var 2 space_in_between)
                            NotEq
                            (StringConstant
                                "g for tran      "
                                (String 1 16 () PointerString)
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )
                    (Print
                        (Var 2 spaces_with_symbols)
                    )
                    (If
                        (StringCompare
                            (Var 2 spaces_with_symbols)
                            NotEq
                            (StringConstant
                                "# gfor* t $ ran &      "
                                (String 1 23 () PointerString)
                            )
                            (Logical 4)
                            ()
                        )
                        [(ErrorStop
                            ()
                        )]
                        []
                    )]
                )
        })
    []
)
